Discussion :

[tranksen76]

Bonsoir,

J'ai besoin de lancer un COUNTIF sur plusieurs lignes successives mais je n'arrive pas à lancer cette commande en boucle.
Dans ma colonne D, j'ai une liste de valeurs alphanumériques. La longueur de cette liste peut fluctuer. Cette liste contient des doublons.

Dans la colonne I, je souhaite afficher le résultat du décompte des doublons pour chacune des valeurs de D.

Mon code VBA contient ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
With Sheets("Feuil1")
Set Data = .Range(.Cells(2, 4), .Cells(Rows.Count, 1).End(xlUp))
End With
Cells(2, 9) = Application.Evaluate("CountIf(" & Data.Address & ",D2)")

Je souhaite répéter cette opération sur chaque ligne mais je ne sais pas comment donner une itération à D2.

J'ai essayé ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim derniereLigne As Long
derniereLigne = Range("D" & Rows.Count).End(xlUp).Row
for i = 2 to derniereligne ' car je veux commencer les répétitions à la ligne 2 jusqu'en bas de ma liste
cells(c,9)= Application.Evaluate("CountIf(" & Data.Address & ",cells(c,4))")

ca me renvoie un message d'erreur sur la valeur.
J'ai essayé alors:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

cells(c,9)= Application.Evaluate("CountIf(" & Data.Address & ",cells(c,4).Valeur)")

mais sans succès. puis j'ai essayé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

cells(c,9)= Application.Evaluate("CountIf(" & Data.Address & ",cells(c,4).Address)")

mais pas mieux donc je suis passé à

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cells(c, 9) = Application.Evaluate("CountIf(" & Data.Address & ","D"&i)")

mais idem ça me renvoie une erreur.

je suis à cours d'idée.

Le moindre conseil m'aiderait fortement.

vous remerciant à l'avance pour toute suggestion.

Cordialement,
Tranksen.

[Marc-L]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
    Dim Rg As Range
    Application.ScreenUpdating = False
 
    With Feuil1.Range("D2", Feuil1.Cells(Rows.Count, 4).End(xlUp))
        For Each Rg In .Cells
            Rg(, 6).Value = Feuil1.Evaluate("COUNTIF(" & .Address & "," & Rg.Address & ")")
        Next
    End With

_______________ _____________________________________ _____________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[tranksen76]

Bonjour Marc-L,

merci pour votre réponse rapide.
J'ai essayé votre script mais hélas il ne se passe strictement rien dans ma feuille.

Peut-être me suis-je mal exprimé en décrivant ce que je cherche à faire.
dan sune colonne j'ai une liste de valeur alphanumérique et dans la colonne suivante je veux compter le nombre de fois que chacune de ces valeurs apparait dans ma plage:

CLHU8854820 2
CPSU1080493 2
GESU5644628
TOTO 1
HLXU4119936
HLXU4389356
HLXU4433783
HLXU4465230
HLXU4495640
HLXU5032276
HLXU5040939
HLXU5104611
HLXU5134093
HLXU6216730
SCZU3282260
CLHU8854820
CPSU1080493
GESU5644628
HLXU4119936
HLXU4389356
HLXU4433783
HLXU4465230
HLXU4495640
HLXU5032276
HLXU5040939
HLXU5104611
HLXU5134093
HLXU6216730
SCZU3282260
TRLU6588521
TRLU6588521

je veux répéter le comptage sur chacune des lignes en faces de la valeur alphanumérique.
je sais utiliser la formule pour une seule opération mais je ne sais pas lancer d'itération pour chaque ligne.

Toute suggestion m'aiderait fortement.

Merci encore.

Cordialement,
Tranksen

[Marc-L]

Dans la demande initiale, les données sont dans la colonne D et le résultat doit être en colonne I,
sans souci de mon côté sous Excel 2003 !

Consulter dans l'aide VBA la propriété Range.Offset pour changer de colonne …

Sinon commencer par tester directement une formule NB.SI dans la première cellule résultat et,
une fois au point, la poster ici …

Autre moyen simple : activer l'Enregistreur de macros, entrer la formule dans la première cellule
puis la recopier vers le bas : le code est livré sur un plateau !

[tranksen76]

Marc-L,

tu avais vu juste : j'ai dû utiliser offset et ça fonctionne.
Ma formule initiale était :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cells(2, 10) = Application.Evaluate("CountIf(" & Data.Address & ",D2)")

Et mon problème était de répéter cette opération sur chaque ligne contenant des valeur car je n'arrivais pas à incrémenter D2.
J'ai réussi avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For c = 2 To derniereLigne
Critere = Range("D2").Offset(c - 2, 0).Address
Cells(c, 10) = Application.Evaluate("CountIf(" & Data.Address & "," & Critere & ")")

Merci pour ta suggestion.

Si ça peut aider quelqu'un d'autre, tant mieux

Bonne journée à toi.
Cordialement
Tranksen

[Marc-L]

Je viens de tester sans souci mon code sous la version 2007 ! …