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