Bonjour, j'essaye de faire une macro afin de trouver une valeur dans une feuille et d'extraire les coordonnées de la cellule
Merci de votre aide
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15 Private Sub CommandButton1_Click() With Feuil1 nomcherche = TextBox1.Value On Error Resume Next Set result = Cells.Find(What:=nomcherche, LookIn:=xlPart) On Error GoTo 0 If result Is Nothing Then MsgBox "Non trouvé" Else Unload Me ActiveWindow.ScrollRow = result.Row ActiveWindow.ScrollColumn = result.Column End If End With End Sub
Partager