J
jbr
Guest
bonjour,
Je vous prie de m'excuser si cette question a ete traitee dans un message precedant.
Je n ai que quelques mois d experience en VBA et je cherche a faire la macro suivante :
Sub macro_compteur()
Dim k As Integer
k = 0
For i = 0 To 17
If Range("A1").Offset(i + 1, 0) <> Range("A1").Offset(i, 0) Then k = k + 1 And Range("A1").Offset(i, 1) = Range("A1").Offset(k, 2) Else Range("A1").Offset(i, 1) = Range("A1").Offset(k, 2)
Next i
End Sub
Ci-joint le fichier un fichier excel avec les donnes de depart et les donnes auquel je souhaite acceder.
Merci d avance!
Je vous prie de m'excuser si cette question a ete traitee dans un message precedant.
Je n ai que quelques mois d experience en VBA et je cherche a faire la macro suivante :
Sub macro_compteur()
Dim k As Integer
k = 0
For i = 0 To 17
If Range("A1").Offset(i + 1, 0) <> Range("A1").Offset(i, 0) Then k = k + 1 And Range("A1").Offset(i, 1) = Range("A1").Offset(k, 2) Else Range("A1").Offset(i, 1) = Range("A1").Offset(k, 2)
Next i
End Sub
Ci-joint le fichier un fichier excel avec les donnes de depart et les donnes auquel je souhaite acceder.
Merci d avance!