macro compteur

[jbr]

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!

 

[Papou-net]

Re : macro compteur

Bonjour jbr, et bienvenue,

Je ne suis pas certain d'avoir bien compris la question, mais si je me fie à ton fichier exemple, je te propose de tester la macro suivante :

Sub macro_compteur()
Dim k As Integer
k = 0
For i = 1 To 18
  If Range("A" & i + 1) <> Range("A" & i) Then
    k = k + 1
    Range("D1").Offset(k - 1, 0) = k
  End If
Next i
End Sub

A +

Cordialement.

 

[jbr]

Re : macro compteur

Merci beaucoup papou-net pour cette reponse si rapide!

Effectivemment je me suis mal exprime, veuillez trouver ci-joint un fichier avec une meilleure explication

 

[Papou-net]

Re : macro compteur

RE jbr,


Alors peut-être comme ceci :

Sub macro_compteur()
Dim k As Integer
k = 0
For i = 1 To 18
  If Range("A" & i + 1) <> Range("A" & i) Then
    Range("B" & i) = Range("C1").Offset(k, 0)
    k = k + 1
    Else
    Range("B" & i) = Range("C1").Offset(k, 0)
  End If
Next i
End Sub

Voir fichier joint.

Cordialement.

 

[jbr]

Re : macro compteur

Merci beaucoup! J'avais fini par la trouver moi aussi.