Discussion :

[psg7835]

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 :

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

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

[unparia]

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

[Invité]

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 :

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

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

[psg7835]

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 :

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

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!

[psg7835]

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

Code :

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

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 :

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

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 :

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

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!

[riaolle]

Bonjour,
Plusieurs remarques/pistes de réflexions :

1. Code :

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

   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 :

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

   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.

[eriiic]

Bonjour,

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