Recherche particulière ...

[karinette]

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 ....

 

[Bernard_XLD]

Re : Recherche particulière ...

Bonjour Karinette

Private Sub CommandButton1_Click()
mot = TextBox1.Value
For feuille = 1 To Sheets.Count
If Sheets(feuille).Name = "COMPTA1" Or Sheets(feuille).Name = "COMPTA2" Or Sheets(feuille).Name = "COMPTA3" Then Else Exit For
On Error Resume Next
Sheets(feuille).Select
On Error GoTo 0
Set trouvé1 = Range("B3:W3").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 = Range("B3:W3").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

 

[karinette]

Re : Recherche particulière ...

ça marche très bien ... Merci beaucoup 🙂