Discussion :

[DonKnacki]

Bonjour , je souhaiterai créer une petite fonction qui me permette de compter le nombre de cellule ayant la même information

Par exemple supposont que dans la cellule B1 , B2 et B3 j'ai la même chose
je souhaiterai (et cela peut importe que je soit sur B1 , B2 ou B3) qu'on m'affiche 3

Pour l'instant j'ai un bout de code mais lorsque je suis en B1 il me met 3 , en B2 : 2 et en B3 : 1

Code :

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

1
2
3
4
5
6
7
8
9
10
11
NbRevision = 1
    For j = 1 To ligne 'ligne correspond à la derniere ligne non vide du classeur 
        If Cells(j, 2).Value = Cells(j + 1, 2).Value Then
            NbRevision = NbRevision + 1
        Else
            GoTo Suite
        End If
    Next j
Suite: 
 
MsgBox (Nbrevision)

PS : on ne peut pas avoir la meme info en B1 et C1 par exemple

[Jean-Philippe André]

bonjour,
quel est cet horrible goto suite ? tu souhaites gérer quel type d'erreur avec ca ?

[DonKnacki]

ce n'est pas pour une erreur
J'ai fais ca pour ne pas chercher jusqu'a la derniere ligne car si la cellule B4 n'est pas "égale" à la cellule B3, inutile d'aller plus loin (mes cellules sont triés par odres croissant sur la colonne B)

[wilfried_42]

Bonjour à tous

C'est vrai qu'il n'est pas beau ce goto, et sortir d'une boucle de cette facon devrait à la longue provoquer une erreur

Voici un boucle qui fonctionne sur le pricipe suivant :

calcul dans une colonne, le nombre d'occurences identiques à la cellule ou l'on se trouve en fonction de la colonne ou l'on se trouve

Code :

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

1
2
3
4
5
6
7
sub nombre()
dim i as long, total as long
for i = 1 to cells(65536,selection.column).end(xlup).row
    if cells(i,selection.column) = selection then total = total + 1
next i
msgbox "il y a " & total & " " & selection
end sub

cordialement

[DonKnacki]

Bon je vais essayer d'être un peu plus précis car malgres votre aide , je n'arrive pas à réaliser ce que je souhaite

prenons un exemple (je pense que cela sera plus clair)
Supposons que j'ai cette feuille :
A gauche les numéro de ligne et à droite la colonne B


1 | Doc1
2 | Doc1
3 | Doc1
4 | Doc2
5 | Doc2
6 | Doc3


Je rappel d'abord que la cellule B est trié par ordre alphabétique donc la ligne 6est forcement apres la 5

Mon besoin est le suivant : il faut que je parcours toute la feuille, et que dans une variable je récupere le nombre de celule identique à celle active

[patbou]

bonjour,

Mon besoin est le suivant : il faut que je parcours toute la feuille, et que dans une variable je récupere le nombre de celule identique à celle active

donc ta procedure est declenché par l evenement Worksheet_SelectionChange ?

si tel est le cas le code de wilfried_42 doit convenir a ta demande.

[RemiT]

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 val as string
dim compteur as long
 
compteur = 1
 
range("B1").select
val = activecell.value
do until activecell.value = ""
    compteur = compteur +1
    activecell.offset(1,0).select
loop
 
msgbox "il y a " & compteur & " occurences de " & val
 
end sub

A TESTER...

[mordrhim]

Ton raisonnement est quelque peu erroné.
En traduisant en francais ton code on a :

Code :

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

1
2
3
4
5
6
7
Pour chaque ligne du classeur
   Si les cellules deux cellules consécutives sont égales alors 
      Incrémenter le compteur.
   Sinon
      arreter tout.
   Finsi
Afficher le compteur

Maintenant il faut plus de précision sur ce que tu veux faire :

• Les cellules qui sont comptés sont elles forcément consécutives ?
• Veux tu compter le nombre d'occurence de la cellule active dans la colonne active quelque soit leur position ?

On va prendre le cas ou la consécutivité des cellules n'est pas une condition nécéssaire. Pensons en algorithme avant de coder.

On défini les variables : Ligne, Compteur
La constante : ValeurActive

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
ValeurActive <- Valeur(CelluleActive)
Compteur <- 0
Ligne <- 1

Tantque Ligne <= Derniere(Ligne)
    Si Valeur(CelluleTestee) = ValeurActive alors
        Compteur +1
    Fin Si
    Ligne +1
Fin Tantque

Afficher(Compteur)

Avec :
Valeur(Cellule) Donnant la valeur de la cellule testée
Derniere(Ligne) Donnant la dernière ligne non vide.
Afficher(Element) Affichant l'élément entré en paramètres

Je me tiens à disposition si tu as des questions

EDIT : Oops avais oublié de valider le message T_T