Compter le nombre de cellules distinctes dans une colonne VBA

Bonjour,

J'ai trouvé cette formule pour compter le nombre de valeurs différentes dans une colonne mais c'est juste limité à 20 lignes.

Code:

---

Range("B1").FormulaR1C1 = "=SUMPRODUCT(1/COUNTIF(R1C1:R20C1,R1C1:R20C1))"

---

Est ce que quelqu'un aurait une idée pour appliquer cette formule à une colonne à taille variable et donner le résultat sur une autre feuille que celle où on compte les différentes valeurs?

Merci de votre aide

https://www.developpez.net/forums/d1...s-colonne-vba/
https://www.developpez.net/forums/d1...nctes-colonne/

Bonjour,

En supposant que tes données soient dans la Feuil1 en colonne A et que tu écris ta formules en Feuil2 en cellule B1 :

Code:

---

1 2 3 4 5 6 7 8 9

Public Sub psg()   Dim nbligne As Integer   nbligne = Sheets("Feuil1").Cells(Rows.Count, 1).End(xlUp).Row   Sheets("Feuil2").Range("B1").Formula = "=SUMPRODUCT(1/COUNTIF(Feuil1!A1:A" & nbligne & ",Feuil1!A1:A" & nbligne & "))"   End Sub

---

Citation:

---

Envoyé par Oudouner

Bonjour,

En supposant que tes données soient dans la Feuil1 en colonne A et que tu écris ta formules en Feuil2 en cellule B1 :

Code:

---

1 2 3 4 5 6 7 8 9

Public Sub psg()   Dim nbligne As Integer   nbligne = Sheets("Feuil1").Cells(Rows.Count, 1).End(xlUp).Row   Sheets("Feuil2").Range("B1").Formula = "=SUMPRODUCT(1/COUNTIF(Feuil1!A1:A" & nbligne & ",Feuil1!A1:A" & nbligne & "))"   End Sub

---

---

Merci, c'est exactement ce que je voulais!

Si j'applique ce code sur une seule feuille, cela fonctionne parfaitement!

Code:

---

1 2 3 4 5 6 7 8 9

Public Sub psg()   Dim nbligne As Integer   nbligne = Sheets("Feuil1").Cells(Rows.Count, 1).End(xlUp).Row   Sheets("Feuil2").Range("B1").Formula = "=SUMPRODUCT(1/COUNTIF(Feuil1!A1:A" & nbligne & ",Feuil1!A1:A" & nbligne & "))"   End Sub

---

J'aimerais pouvoir l'appliquer à plusieurs feuilles dans une boucle for, j'ai écrit une ligne de code mais elle ne fonctionne pas et ce, depuis hier!

Code:

---

Sheets(RésultatsAnnée).Cells(indice_ligne_écriture_résultat, 2).Value = "=SUMPRODUCT(1/COUNTIF(sheets(k).G2:G" & nbligne & ",sheets(k).G2:G" & nbligne & "))"

---

Voila la partie du code où elle est insérée:

Code:

---

1 2 3 4 5 6 7

For k = 3 To 14 Sheets(k).Activate Sheets(RésultatsAnnée).Range("A" & CStr(indice_ligne_écriture_résultat)).Value = "Résultats trouvé pour le mois de " & Sheets(k).Name Dim nbligne As Integer nbligne = Sheets(k).Cells(Rows.Count, 1).End(xlUp).Row Sheets(RésultatsAnnée).Cells(indice_ligne_écriture_résultat, 2).Value = "=SUMPRODUCT(1/COUNTIF(sheets(k).G2:G" & nbligne & ",sheets(k).G2:G" & nbligne & "))" indice_ligne_écriture_résultat = indice_ligne_écriture_résultat + 1

---

merci de votre aide!

Bonjour,
Plusieurs remarques/pistes de réflexions :

1. Code:

   ---

   1 2 3 4

   Dim i As Integer i = 3 MsgBox "La famille comporte " & i & " enfants." 'renvoie : La famille comporte 3 enfants. MsgBox "La famille comporte i enfants." 'renvoie : La famille comporte i enfants.

   ---

2. Tu n'utilises pas la même syntaxe sans et avec les variables/objets. Compare ce que tu écris :
   
   Code:

   ---

   1 2	Sheets("Feuil2").Range("B1").Formula = "=SUMPRODUCT(1/COUNTIF(Feuil1!A1:A" & nbligne & ",Feuil1!A1:A" & nbligne & "))" Sheets(RésultatsAnnée).Cells(indice_ligne_écriture_résultat, 2).Value = "=SUMPRODUCT(1/COUNTIF(sheets(k).G2:G" & nbligne & ",sheets(k).G2:G" & nbligne & "))"

   ---

3. Quand tu écris sheets(k) tu t'intéresses à la kème feuille : c'est un objet, pas le nom de la feuille !
4. indice_ligne_écriture_résultat : évite d'utiliser des nom à rallonge pour les variables, c'est une manière très facile de faire des erreurs difficilement repérables ... Et évite aussi les caractères spéciaux (é,è,à ...) en programmation.
   Au lieu d'utiliser cette variable que tu incrémentes de 1 à chaque pas de la boucle, utilise l'indice k de la boucle. Si indice_ligne_écriture_résultat vaut 1 au début, tu utiliseras k-2 à la place de indice_ligne_écriture_résultat.

Bonjour,

Citation:

---

mais elle ne fonctionne pas

---

ne veut rien dire, explique

j'ajouterai qu'avec Dim nbligne As Integer tu ne pourras aller que jusqu'à 32767, As Long est plus adapté pour les lignes.
Et on déclare les variable en début de module, pas en plein milieu même si ça fonctionne.
eric