Aide pour un script VBA

[matrix]

Bonjour,

Je voudrais de l'aide pour un script VBA excel svp?

Dans ma feuille 1, dans la colonne A, ce trouve 2 mots. Sois Fruits ou Viandes.

Je voudrais que quand je clique sur le bouton vba, qu'il me mette un numéro qui incrémenterai de 1 à chaque fois.

Exemple :
dans la cellule A4 = Fruits qui deviendrait Fruits1
dans la cellule A5 = Fruits qui deviendrait Fruits2
dans la cellule e A3 = Viandes qui deviendrait Viandes1
dans la cellule e A4 = Fruits qui deviendrait Fruits3
dans la cellule e A5 = Viandes qui deviendrait Viandes2

etc. jusqu'à la dernière donnée inscrite dans la colonne A.

Comment faire S.V.P.

 

[mromain]

Re : Aide pour un script VBA

bonsoir matrix

Private Sub CommandButton1_Click()
Dim compteurFruits As Integer, compteurViandes As Integer
compteurFruits = 1: compteurViandes = 1
Dim curCell As Range
Set curCell = [A4]
While curCell.Value <> vbNullString
    If curCell.Value = "Fruits" Then curCell.Value = curCell.Value & CStr(compteurFruits): compteurFruits = compteurFruits + 1
    If curCell.Value = "viandes" Then curCell.Value = curCell.Value & CStr(compteurViandes): compteurViandes = compteurViandes + 1
    Set curCell = curCell.Offset(1, 0)
Wend
End Sub

un début : ça marche, mais pas si on rajoute "Légumes" par exemple.
C'est vraiment faisable, mais là : bonne nuit... 🙂

A+