recherche dans un fichier excelRésolu

Question

Bonjour &#224; tous !

J'ai un fichier excel qui me sert de base de donn&#233;es. Mes champs sont de type : code soci&#233;t&#233;, code &#233;tablissement, nom, pr&#233;nom, matricule etc ...

Je dois rechercher dedans les personnes de code soci&#233;t&#233; 01, de code etablissement ROM, dont la date d'entr&#233;e est comprise entre le 28/02/2006 et le 30/03/2006.   Le champs date entr&#233;e est dans les champs, et sous format date normal.

Voici mon code : 

Sub recherche()

Dim i As Integer
i = 1

While Cells(i, 1) <> ""
    
    While Cells(i, 1) = "01"
        
        While Cells(i, 3) = "ROM"
        
            While "28/02/2006" < Cells(i, 17) < "30/03/2006"
            MsgBox (Cells(i, 6))
            
            Wend
            i = i + 1
        Wend
        i = i + 1
    Wend
i = i + 1
Wend

End Sub

Ce n'est qu'une bribe mais il ne fonctionne d&#233;ja pas ... En effet vb et excel plante, enfin il ne r&#233;pondent pas et rien n'abouti ... je suis oblig&#233; de faire Echap.
Je pense d&#233;ja que mon algo est faux et aussi que la recherche des dates dans mon while n'est pas correct mais je ne sais pas faire 

Please help ^^.

Merci beaucoup d'avance !!

Greg

econs · Accepted Answer

Salut,



Ptites corrections :





Sub recherche()



Dim i As Integer

i = 1



While Cells(i, 1) <> ""

    If Cells(i, 1) = "01" Then

        If Cells(i, 3) = "ROM" Then

            If "28/02/2006" < Cells(i, 17) And Cells(i,17) < "30/03/2006" Then

                MsgBox (Cells(i, 6))

            End If

        End If

    End If

    i = i + 1

Wend



End Sub




Manu

DarkRider26 · Answer

tu pense qu'il faut faire avec des if ?
En fait dans cette base d'une traitaine de champs, j'ai 1400 enregistrements lol !!!

Je viens de tenter &#231;a tourne, mais le soucis est que m&#234;me sur un essai de 5 enregistrement dont un qui doit marcher cad me mettre la MsgBox, et bien le teste sur la date ne fonctionne pas. La case cells(i,17) est en format date, mais je ne vois pas comment faire ...

En tout cas merci beaucoup d&#233;ja !!  Si tu as une petite id&#233;e pour la date ?

DarkRider26 · Answer

EUREKA !&#167;!  le secret est l&#224; : CDate

Sub recherche()

Dim i As Integer
i = 1

While Cells(i, 1) <> ""
    If Cells(i, 1) = "01" Then
        If Cells(i, 3) = "ROM" Then
            If CDate("28/02/2006") < Cells(i, 17) And Cells(i, 17) < CDate("30/03/2006") Then
                MsgBox (Cells(i, 6))
            End If
        End If
    End If
    i = i + 1
Wend

End Sub

Ca marche !! merci encore ! par contre comment fait tu pour mettre le code ici avec les couleurs ?

Recherche dans un fichier excel

3 réponses

Discussions similaires