Discussion :

[tontonTom]

Bonjour,
Je souhaite réaliser un compteur qui me permettrais de récupérer l'occurrence d'un mot qui se situe dans un tableau dans une autre page (mais sur le même fichier). Cette question à déjà été aborder dans plusieurs post mais je souhaite le faire de manière "automatisé". Mais n'étant pas très familier avec le langage VBA, je me retrouve bloquer.
Mon tableau se situe dans la page "Référence", je récupère les données dans la page "Donnée".
Pour moi l'erreur se situe dans ma seconde boucle for lors de mon changement de page. Mais je ne sais pas comment coder différemment.
Je suis preneur de toute idée. Merci d'avance

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
18
19
 
Sub Qte_secteurs()
    Worksheets("Donnée").Select
    Dim Compteur As Integer
    Nbre_ligne = Cells(1, 2)
    Nbre_secteur = Cells(16, 2)
 
    For i = 3 To i = Nbre_secteur + 2
        Compteur = 1
        For j = 6 To j = Nbre_ligne + 5
            Worksheets("Référence").Select
            If Cells(j, 2) = Cells(i, 2) Then
                Compteur = Compteur + 1
            End If
        Next j
        Worksheets("Donnée").Select
        Cells(i, 3) = Compteur
    Next i
End Sub

[Theze]

Bonjour,

Regarde du coté de "Application.CountIf" :

Code :

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

1
2
 
Compteur = Application.CountIf(Worksheets("Référence").UsedRange, ValeurCharchee)

Hervé.

[tontonTom]

Code :

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

1
2
3
4
 
 For i = 3 To i = Nbre_secteur + 2
        Cells(i, 3) = Application.CountIf(Worksheets("Référence").Range("B1:B200"), Cells(i, 2))
    Next i

Je viens d'essayer en mettant cette instruction mais rien n'y fais. Elle marche si je la sors de la boucle, mais du coup je suis obligé de faire variable par variable. Ce qui ne me convient pas car ces variables peuvent varier avec le temps.

[SfJ5Rpw8]

bonsoir,

de la même manière que tu précise la feuille excel concerné devant ton objet range, il faut que tu précise la feuille concernée devant tous tes objets Cells...

[tontonTom]

Bonsoir bbil,
Je vois ce que tu veux dire, j'ai déjà essayer cette manière (ça fait 2 jours que je planche dessus). Je te joint le code.
En l'exécutant pas à pas, il me met "j=vide" au sein de ma boucle.

Code :

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

1
2
3
4
5
6
7
8
9
10
 
For i = 3 To i = Nbre_secteur + 2
        Compteur = 1
        For j = 6 To j = Nbre_ligne + 5
            If Worksheets("Référence").Cells(j, 2) = Worksheets("Donnée").Cells(i, 2) Then
                Compteur = Compteur + 1
            End If
        Next j
        Worksheets("Donnée").Cells(i, 3) = Compteur
 Next i

[clementmarcotte]

Bonjour,


Moi, je dirais qu'il y a un problème sur cette ligne:

Code :

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

For j = 6 To j = Nbre_ligne + 5

Et que ceci serait bien suffisant:

Code :

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

For j = 6 To Nbre_ligne + 5

[tontonTom]

Un grand merci à toi clementmarcotte.
Il fallait effectivement supprimer le "j = " dans la deuxième partie de la boucle for. Il faut également supprimer le "i = " de la première boucle.
Je te remercie encore ainsi qu'à ceux qui ont proposés des idées.
Bonne soirée à vous tous