almas
XLDnaute Occasionnel
Bonjour a tous
Voila j 'ai trouvé et transposé un code que j 'ai trouvé sur le forum
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$D$3" Then Exit Sub
Application.EnableEvents = False
tx = [D3]
lig = 8
[C8:H200].ClearContents
For k = 1 To Sheets.Count
If Left(Sheets(k).Name, 1) = "T" Then
With Sheets(k).[A3:A27]
Set c = .Find(tx, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
Cells(lig, 3) = Sheets(k).Name
Cells(lig, 4) = Sheets(k).Cells(c.Row, 2)
Cells(lig, 5) = Sheets(k).Cells(c.Row, 3)
lig = lig + 1
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
End If
Next
Application.EnableEvents = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub
Mais je voudrai que la recherche se fasse non pas sur , un chiffre +1 et une lettre , mais par rapport a une liste "noms" qui contient les noms d' onglet
et je sais pas modifier cette partit du code
ci joint petit fichier test (edit: je viens de m 'apercevoir que j 'ai pas changer la lettre dans la lettre dans la liste des onglets de "S"a "T")
Voila j 'ai trouvé et transposé un code que j 'ai trouvé sur le forum
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$D$3" Then Exit Sub
Application.EnableEvents = False
tx = [D3]
lig = 8
[C8:H200].ClearContents
For k = 1 To Sheets.Count
If Left(Sheets(k).Name, 1) = "T" Then
With Sheets(k).[A3:A27]
Set c = .Find(tx, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
Cells(lig, 3) = Sheets(k).Name
Cells(lig, 4) = Sheets(k).Cells(c.Row, 2)
Cells(lig, 5) = Sheets(k).Cells(c.Row, 3)
lig = lig + 1
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
End If
Next
Application.EnableEvents = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub
Mais je voudrai que la recherche se fasse non pas sur , un chiffre +1 et une lettre , mais par rapport a une liste "noms" qui contient les noms d' onglet
et je sais pas modifier cette partit du code
ci joint petit fichier test (edit: je viens de m 'apercevoir que j 'ai pas changer la lettre dans la lettre dans la liste des onglets de "S"a "T")
Pièces jointes
Dernière édition: