Faire une recherche sur excellRésolu

Question

bonjour j'aimerai utiliser la fonction recherche d'excell (ou &#233;quivalent en code) lorsqu'un userform est actif, est ce que quelqu'un aurait cette fonction? &#231;a m'aiderai beaucoup, merci d'avance

BZY1 · Accepted Answer

apr&#232;s recherche sur ce site j'ai trouv&#233; &#231;a (la question avait d&#233;ja &#233;t&#233; pos&#233;):
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:="elec", 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

Faire une recherche sur excell

1 réponse

Discussions similaires