Bonjour à tous
j'ai une macro qui utilise une condition qui marche nickel :
If WkB.Sheets(s).Range("H17") Like annee & "*" And .....
et maintenant je voulais l'utiliser pour
Dim année As Integer
année = Year(Now)
For j = 1 To 9
For i = 1 To derligne1
If Ws1.Cells(i, 2).Value Like année & "*" <> "" Then
Ws3.Cells(i, j).Value = Ws1.Cells(i, j).Value
il ne la prend pas du tout en compte
C'est vrai que j'aurais eu aimé avoir plutôt : "[$-40C]d-mmm-yy;@" et je n' avais plus plus qu'à remplacer
mmm par " janv." et yy par "14", enfin de ce style pour rassembler par mois des lignes
Si une âme charitable connait la réponse et veuille bien me dépatouiller !!