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("P15125").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
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("P15125").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