recherche une macro

[PC_TRUC]

Bonjour à tous, le Forum,
Je cherche une macro pour compter les A qui se trouve dans la colonne A
Et envoyer une valeur dans la colonne B
ci-joint un fichier

merci a tous

 

[jeanpierre]

Re : recherche une macro

Bonssoir PC TRUC et bienvenue,

Avec Compteur, le titre de ton fichier, plus de mille réponses dans RECHERCHE en haut...

Je ne peux ouvrir ton fichier.... pour ce soir du moins...
Mais l'explication semble claire et cela sent le VBA....

A suivre donc....

Bonne nuit et bonnes fêtes.

Jean-Pierre

 

[bqtr]

Re : recherche une macro

Bonsoir PC_TRUC, jeanpierre

Teste ceci:

Sub Compte_A()
Dim i As Long, Cpt As Long
Cpt = 1
    For i = 1 To Range("A65536").End(xlUp).Row
      If Cells(i, 1) = "A" Then
           Cells(i, 2) = Cpt
           Cpt = Cpt + 1
      End If
    Next
End Sub

A+

 

[ERIC S]

Re : recherche une macro

Bonjour à tous

si il n'y a pas trop de lignes, par formules

=SI(A4="";"";NB.SI($A$1:A4;A4))

tu peux figer la numérotation à A seulement

=SI(A4="";"";NB.SI($A$1:A4;"A"))

à mettre en B4 et tirer vers le bas

 

[PC_TRUC]

Re : recherche une macro

Merci a tous
Le code que ma donné bqtr me
Convient bien j’ai pu l’intégrer dans mon programme
Il tourne très bien

Je trouve que ce cite et très bien fait pour un novice comme moi
Vous avez toute ma reconnaissance
a+