Discussion :

[Marion_Otz]

Bonjour à tous,

J'ai écumé tous les forums, testé toutes les syntaxes proposées mais ne trouve pas la réponse à mon problème...
En VBA, je cherche à retrouver le nombre de valeurs uniques (nombre de "code" unique sur le fichier joint, colonne A) pour une référence donnée (colonne U).

Pour cela, j'ai tenté de combiner les fonctions SumProduct et Countif, sans succès.
J'ai donc choisi d'effectuer le traitement en deux parties, en partant d'un exemple (fructueux) sur Excel :
1/ NB.SI (colonne U, Référence) / NB.SI.ENS (colonne U, Référence, colonne A, code)
Puis
2/ SOMME.SI(colonne U, ma Référence, Résultat du 1) / NB.SI(colonne U, ma Référence)

Lorsque je transpose ces formules en VBA (avec CountIf et SumIf), la macro traite les données et je n'ai pas d'erreur d'exécution mais le résultat renvoyé n'est pas le bon.
Pour essayer de comprendre pourquoi, j'ai décomposé ma formule et me suis rendue compte que ma fonction Countif ne me renvoyait pas les valeurs souhaitées.
En effet, si je teste COUNTIF seul sur un exemple (fichier ci-joint avec résultat de la macro en colonne U et V) : Au lieu d'avoir, pour la première occurence, le nombre d'occurence de la valeur dans la colonne, la formule se comporte comme si elle écrivait seulement le nombre d'occurence rencontrée.. Comme si elle ne prenait pas l'intégralité de la plage. Je vous invite à regarder le fichier ci-joint, illustrant mon propos. Extraction_BB.xlsx
Pour résumer, pour une occurrence apparaissant 4 fois, au lieu d'avoir "4" sur les lignes concernées, j'ai :
occ1 1
occ1 2
occ1 3
occ1 4


Le code de ma macro est le suivant :

Code :

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

1
2
3
4
5
6
7
8
9
Dim FichierED As Workbook
Dim Der_lign As Integer
Dim X As Integer
 
 
For X = 2 To Der_lign  
FichierED.Worksheets(1).Cells(X, 21).Value = Cells(X, 4) & Cells(X, 7)    'la colonne U est la concaténation des colonnes D et G
FichierED.Worksheets(1).Cells(X, 22).Formula = WorksheetFunction.CountIf(Range("U:U"), Cells(X, 21).Value)
Next X

Je ne comprend vraiment pas pourquoi Countif ne considère pas la totalité de la colonne.. J'ai essayé différentes syntaxes mais rien n'y fait. Quelqu'un peut-il m'éclairer ?

Je vous remercie par avance.
Bonne journée

[BENNASR]

bonsoir
essayer avec ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Option Explicit
Sub test()
Dim Plage As Range, i As Long, j As Integer
Application.ScreenUpdating = False
With Sheets("ED_2016_2017")
i = .Range("A" & Rows.Count).End(xlUp).Row
 j = 2
        For j = 2 To i
        Set Plage = .Range("U2:U" & j)
 
                .Cells(j, 22) = Application.CountIf(Plage, .Cells(j, 21))   
        Next j
    End With
    Application.ScreenUpdating = True
End Sub

[Marion_Otz]

Bonjour BENNASR,

Je vous remercie mais j'obtiens le même résultat que précédemment. Au lieu de m'écrire directement le nombre total d’occurrences, elles s'incrémentent au fur et à mesure...
occ1 1
occ1 2
occ1 3
occ1 4

Mis à part le remplacement de i par Der_Lign_ED, j'ai noté exactement ce que vous m'avez conseillé

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Dim Plage As Range, Der_Lign_ED As Long, j As Integer
Application.ScreenUpdating = False
With Sheets(1)
     Der_lign_ED = Range("A" & Rows.Count).End(xlUp).Row
 
        j = 2
        For j = 2 To Der_lign_ED
        Set Plage = .Range("U2:U" & Der_lign_ED)
 
            .Cells(j, 21).Value = Cells(j, 4) & Cells(j, 7)
 
            .Cells(j, 22) = Application.CountIf(Plage, .Cells(j, 21))
 
        Next j
      End With

Savez-vous d'où vient cette "anomalie" de Countif utilisé de cette façon ? y'a-t-il un autre moyen de faire ?

[BENNASR]

re
j'ai pensé que tu cherche à faire ça
mais si tu cherche à compter dans toute le colonne il suffit de changer le j par i dans la définition de la plage:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Option Explicit
Sub test()
Dim Plage As Range, i As Long, j As Integer
Application.ScreenUpdating = False
With Sheets("ED_2016_2017")
i = .Range("A" & Rows.Count).End(xlUp).Row
 j = 2
        For j = 2 To i
        Set Plage = .Range("U2:U" & i)
 
                .Cells(j, 22) = Application.CountIf(Plage, .Cells(j, 21))
 
        Next j
    End With
    Application.ScreenUpdating = True
End Sub

[Marion_Otz]

Re,

Oui j'ai déjà bien mis l'équivalent de votre i (pour moi c'est la variable Der_lign) dans la définition de la plage... Ca ne fonctionne pas et me renvoit toujours le même résultat...
occ1 1
occ1 2
occ1 3
occ1 4

au lieu de ce que je souhaiterais :
occ1 4
occ1 4
occ1 4
occ1 4

[BENNASR]

re
je sais pas d'ou tu appelle ton code
mais ajouter dans le with un point devant cells

.Cells(j, 21).Value = Cells(j, 4) & Cells(j, 7)

aussi un point devant :

Range("A" & Rows.Count).End(xlUp).Row

et ça fonctionne chez moi
ce qui donne :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub test()
Dim Plage As Range, Der_Lign_ED As Long, j As Integer
Application.ScreenUpdating = False
With Sheets(1)
Der_Lign_ED = .Range("A" & Rows.Count).End(xlUp).Row
 
j = 2
For j = 2 To Der_Lign_ED
Set Plage = .Range("U2:U" & Der_Lign_ED)
 
.Cells(j, 21).Value = .Cells(j, 4) & .Cells(j, 7)
 
.Cells(j, 22) = Application.CountIf(Plage, .Cells(j, 21))
 
Next j
End With
End Sub