vba - Excel, petit problème de macro...

Question

Bonjour,

question simple  : 

j'ai viens de mettre en place un userform dans lequel j'ai un "textbox" et un "commandbutton". 
Je souhaiterai avoir une macro (sous le commandbutton) qui me permette de : 
rechercher la cellule comptenant ce que j'ai saisi dans la "texbox" (un mot ou un nombre...) et que, si cette recherche est infructueuse, qu'il me 
dise par un MsgBox "non trouvé". 

Merci d'avance à tous ceux qui auront pris qls instants pour me dépanner ! 

Cordialement à tous 

Tom

Ivan-hoe · Answer

Salut, 
tu peux utiliser la méthode Find (l'équivalent de Rechercher dans Excel)
Private Sub CommandButton_Click()
Dim Cellule As Range
Set Cellule = Cells.Find(TextBox.Value)
If Cellule Is Nothing Then
    MsgBox "non trouvé"
Else
    MsgBox Cellule.Address
End If
End Sub

Vba - Excel, petit problème de macro...

1 réponse

Discussions similaires

Newsletters