Discussion :

[pilounet54]

bonjour a tous
Je souhaite utilise une fonction afin simplement de compter le nombre de valeur identique de la colonne A commençant par ligne 3
Fonction que je pourrai réutiliser
Dans la colonne j’ai que des valeurs comme ci-dessous

Code :

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

1
2
3
4
5
6
7
8
vals = Array("1", "2", "3", "4", "5", "6", "7","8", "9", "10", "11", "12", "13", "14""15", "16", "17", "18", "19", "20")
 
If (lcell.text = vals) then 
lcompteur= lcompteur +1
 
tablresultatligne = 3
 
tablresultatcolum= Array("j", "k", "l", "m", "n", "o", "p","q", “r", "s", "t", "u", "v", "w""x", "y", "z", "aa", "ab", "ac")

si une fonction c'est compliqué rien de grave

pour moi ce n'est pas simple

je vous remercie cordialement

[Nico Chg]

Bonjour,

Dans ta colonne A, tu souhaite obtenir le nombre de fois qu'il y a "toto" dans ta cellule, ou le nombre de valeurs présente au moins en double ? Exemple :

toto

mama

toto

mama

toto

wiwi

Tu souhaite connaître 3, le nombre de fois que tu vois "toto", ou 2, le nombre de valeurs qui sont au moins en double (toto et mama ?)

[pilounet54]

bonjour
je souhaite simplement avoir le nombre de fois que tu vois "toto", mais aussi le nombre de fois que tu vois"mama" et "wiwi"et le reste dans un tableau déjà cité ligne 3 colonne j,k....
en vous remerciant

[Nico Chg]

Dans mon exemple, ça donne :

toto		toto	3
mama		mama	2
toto		wiwi	1
mama
toto
wiwi

Si c'est bien ça, tu peux le faire avec des formules Excel :

Code :

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

1
2
3
=NB.SI(A:A;"toto")
=NB.SI(A:A;"mama")
=NB.SI(A:A;"wiwi")

[pilounet54]

bonjour dans l'exemple que tu donne le résultat serai pour toto= 3 ,mama= 2,wiwi 1 sachant pour pour ce que je veux faire je ne travaille que sur la colonne A commençant par ligne 3
je ne souhaite utiliser aucune formule et c'est la que cela ce complique dans le principe oui"NBSI" pourrai convenir ,mais ce n'est pas le but ,j'ai trop trop de formule .
merci

[Nico Chg]

Normalement, c'est l'inverse qui est préconisé (dans le sens ou on préféreras utiliser des formules Excel plutôt que du VBA) , mais admettons
Dans ce cas, il te faut juste un compteur de valeur. Si on optimise un peu :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Function ComptageIdentique (plage as range, valeur as string)
Dim TempArray
Dim result as single
Dim I as single
 
TempArray = plage
 
result = 0
For I = LBound(TempArray, 1) To UBound(TempArray, 1)
    If TempArray(I, 1) = valeur Then result = result + 1
Next I
ComptageIdentique = result
End function

Voici une fonction qui va compter les valeurs identiques. Tu lui passe une plage de valeur, et une valeur, et ça renvoie le nombre d’occurrence de ta valeur dans la plage :

Code :

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

1
2
3
4
5
sub test
Dim NbToto as single
NbToto = ComptageIdentique(Worksheets("TaFeuille").range("A:A"), "toto")
msgbox NbToto
End sub

NB : la fonction n'est pas à insérer dans le sub, tu dois la mettre en dehors, et même dans un autre module, pour plus de clarté !