Rebonsoir @ tous ...
La création de macros est bien compliquée ... Mais c'est certainement en galérant qu'on apprend ....😱
Voila une macro de recherche sur tout un classeur qui m'est bien utile :
Private Sub CommandButton1_Click()
mot = TextBox1.Value
For Feuille = 1 To Sheets.Count
On Error Resume Next
Sheets(Feuille).Select
On Error GoTo 0
Set trouvé1 = Cells.Find(what:=mot)
If Not trouvé1 Is Nothing Then
trouvé1.Activate
étiq:
If MsgBox("Cellule " & ActiveCell.Address & vbLf & vbLf & _
LTrim(ActiveCell) & vbLf & vbLf & "Suivant ?", 4) = vbNo Then Exit Sub
Set trouvé2 = Cells.FindNext(After:=ActiveCell)
If trouvé2.Column <> trouvé1.Column Or trouvé2.Row <> trouvé1.Row Then
trouvé2.Activate
GoTo étiq
End If
End If
Next Feuille
UserForm1.Hide
End Sub
Je me demandais comment faire pour afiner, et que la recherche ne se fasse que dans les feuilles "COMPTA1", "COMPTA2" et "COMPTA3", et en plus uniquement dans la selection "B3:W3" ... Est ce que c'est possible ??
J'ai testé des exemples mais sans succès ...
Merci d'avance ....
La création de macros est bien compliquée ... Mais c'est certainement en galérant qu'on apprend ....😱
Voila une macro de recherche sur tout un classeur qui m'est bien utile :
Private Sub CommandButton1_Click()
mot = TextBox1.Value
For Feuille = 1 To Sheets.Count
On Error Resume Next
Sheets(Feuille).Select
On Error GoTo 0
Set trouvé1 = Cells.Find(what:=mot)
If Not trouvé1 Is Nothing Then
trouvé1.Activate
étiq:
If MsgBox("Cellule " & ActiveCell.Address & vbLf & vbLf & _
LTrim(ActiveCell) & vbLf & vbLf & "Suivant ?", 4) = vbNo Then Exit Sub
Set trouvé2 = Cells.FindNext(After:=ActiveCell)
If trouvé2.Column <> trouvé1.Column Or trouvé2.Row <> trouvé1.Row Then
trouvé2.Activate
GoTo étiq
End If
End If
Next Feuille
UserForm1.Hide
End Sub
Je me demandais comment faire pour afiner, et que la recherche ne se fasse que dans les feuilles "COMPTA1", "COMPTA2" et "COMPTA3", et en plus uniquement dans la selection "B3:W3" ... Est ce que c'est possible ??
J'ai testé des exemples mais sans succès ...
Merci d'avance ....