trouvé une valeur ds une colone sans find VBA excel2000Résolu

Question

Bonjour
ayant un probl&#232;me avec un findnext ki sur une seule valeur me f&#233; du n'importekoi, je souhaiterai savoir comment scruter une colonne &#224; la rechcerche d'une valeur et r&#233;cup&#233;r&#233; ladresse de la cellule o&#249; la valeur a &#233;t&#233; trouv&#233;, puis cherch&#233; a nouveau cette valeur dans le reste de la colone.
merci
Jordinette

Pierre_faucon · Accepted Answer

Bonjour

Derni&#232;rement, je te donnais ceci comme r&#233;ponse ( avec findnext )

Sub Recherche()
    Dim Premiere_Cellule_Trouvee As Range ' Sert &#224; &#233;viter une boucle sans fin
    Dim Cellule_Suivante As Range ' Correspond &#224; la cellule suivante trouv&#233;e
    Set Premiere_Cellule_Trouvee = _
        Range("a1:a10").Find(What:="martine", LookIn:=xlValues, LookAt:=xlPart)
    
    ' Si aucune correspondance, on sort de la proc&#233;dure
    If Premiere_Cellule_Trouvee Is Nothing Then Exit Sub
    
    Set Cellule_Suivante = Premiere_Cellule_Trouvee
    Do
        Cellule_Suivante.Interior.Color = vbRed
        Set Cellule_Suivante = Range("a1:a10").FindNext(after:=Cellule_Suivante)
        ' Si correspondance entre les cellules, on a boucl&#233; et on sort
        If Cellule_Suivante Is Nothing Then Exit Sub
        If Cellule_Suivante.Address = Premiere_Cellule_Trouvee.Address Then Exit Sub
    Loop
End Sub

Chez moi, avec une seule correspondance, aucun probl&#232;me. V&#233;rifie cependant que les plages du find et du findnext sont les m&#234;mes, sinon, plantage...

Ok?

Pierre Fauconnier

cs_jordinette · Answer

merci bcp!
jordinette

Trouvé une valeur ds une colone sans find VBA excel2000

2 réponses

Discussions similaires