I folima Elda
XLDnaute Nouveau
Bonjour à tous,
Voilà, j'aurai besoin d'un coup de main afin de perfectionner une macro. J'ai chercher sur le forum mais les réponse ne m'ont pas beaucoup convaincu.
En effet, j'ai une liste qui contient plusieurs terme
exple:
Comme vous pouvez le voir cette liste comporte plusieurs fois certains termes, comme "pomme"
J'utilise donc une macro afin de compter chacun de ces termes
Cependant il va me répéter à chaque fois qu'il y a 3*pomme à chaque mots "pomme" et ainsi pour chacun des fruits du genre:
Merci de votre aide, et je continue à chercher dans mon coin
I folima Elda
Voilà, j'aurai besoin d'un coup de main afin de perfectionner une macro. J'ai chercher sur le forum mais les réponse ne m'ont pas beaucoup convaincu.
En effet, j'ai une liste qui contient plusieurs terme
exple:
pomme
pomme
banane
poire
banane
pomme
orange
poire
poire
banane
pomme
banane
poire
banane
pomme
orange
poire
poire
banane
Comme vous pouvez le voir cette liste comporte plusieurs fois certains termes, comme "pomme"
J'utilise donc une macro afin de compter chacun de ces termes
Sub Test()
For x = 16 To 30
a = Cells(x, 2)
'If Cells(x, 1) = "type" Then
'GoTo retour
'Else
y = y + (a & " * " & Application.WorksheetFunction.CountIf(Range("B16:B30"), a)) & Chr(13)
'End If
'retour:
Next
MsgBox (y)
End Sub
Cependant il va me répéter à chaque fois qu'il y a 3*pomme à chaque mots "pomme" et ainsi pour chacun des fruits du genre:
pomme * 3
pomme * 3
banane * 3
poire * 3
banane * 3
pomme * 3
orange * 1
poire * 3
poire * 3
banane * 3
La question est donc: est-il possible d'éviter de lui faire faire des répétitions inutiles? En gros je voudrais qu'il m'indique cecipomme * 3
banane * 3
poire * 3
banane * 3
pomme * 3
orange * 1
poire * 3
poire * 3
banane * 3
pomme * 3
banane * 3
poire * 3
orange * 1
banane * 3
poire * 3
orange * 1
Merci de votre aide, et je continue à chercher dans mon coin
I folima Elda