XL 2016 Macro à faire sur plusieurs onglets

Claudy

XLDnaute Accro
Bonsoir,
Un classeur, des onglets de janvier à décembre...
J'ai la macro ci dessous qui fonctionne très bien sur un mois:
Sub Détail()
Dim zaza As String
Dim i As Double
Dim derlig As Double
Application.EnableEvents = False
Range("O15:Q125").ClearContents
zaza = InputBox("Entrer un mot à détailler le montant", , "SSD")

Range("N10") = UCase(zaza)

derlig = Range("I1000").End(xlUp).Row
'MsgBox (derlig)
i = 0
nb = 0
'Range("O" & 15 + i).Select
'Exit Sub
For Each cel In Range("I4:I" & derlig)

If UCase(cel.Value) Like "*" & Range("N10").Value & "*" Then

Range("O" & 15 + i) = cel.Text
Range("P" & 15 + i) = cel.Offset(0, -2).Value
Range("Q" & 15 + i) = "Lig " & cel.Row() & "/" & cel.Offset(0, 1).Text

i = i + 1
nb = nb + 1
End If

Next
Range("M11") = UCase(zaza) & " // Trouvé: " & nb & " lig.."
Range("P15:p125").Select

Application.EnableEvents = True
End Sub

Comment adapter cette macro pour qu'elle travaille sur les douze mois/onglets précédents?
Merci d'avance,
Claudy
 

Staple1600

XLDnaute Barbatruc
Bonsoir le fil, Claudy

Claudy
Voir ta macro ainsi modifiée
VB:
Sub Détail()
Dim zaza As String
Dim i As Double
Dim derlig As Double
Dim ws As Worksheet
Application.EnableEvents = False
zaza = InputBox("Entrer un mot à détailler le montant", , "SSD")
For Each ws In Worksheets
ws.Range("O15:Q125").ClearContents
ws.Range("N10") = UCase(zaza)
derlig = Range("I1000").End(xlUp).Row
i = 0
nb = 0
For Each cel In ws.Range("I4:I" & derlig)
If UCase(cel.Value) Like "*" & Range("N10").Value & "*" Then
ws.Range("O" & 15 + i) = cel.Text
ws.Range("P" & 15 + i) = cel.Offset(0, -2).Value
ws.Range("Q" & 15 + i) = "Lig " & cel.Row() & "/" & cel.Offset(0, 1).Text
i = i + 1
nb = nb + 1
End If
Next
ws.Range("M11") = UCase(zaza) & " // Trouvé: " & nb & " lig.."
Next ws
Application.EnableEvents = True
End Sub

PS: CTRL+F fait trés bien le job ;) (sans macro et sans boucle)
( Choisir Classeur dans la rubrique Dans puis cliquer sur Rechercher tout )
 

Claudy

XLDnaute Accro
Bonjour Stape1600
merci pour le code , je vais adapter à mes besoins.
Pour le Ctrl+ F, je connaissais et j'utilise tous les jours dans des classeurs avec des milliers de lignes et dizaines de colonnes, c'est vraiment très très pratique.
Bonne journée,
Claudy
 

Discussions similaires

Statistiques des forums

Discussions
311 711
Messages
2 081 796
Membres
101 817
dernier inscrit
carvajal