Function compter valeur

Version imprimable

Voir 40 message(s) de cette discussion en une page

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:

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

26/03/2015, 10h39
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 ?)
26/03/2015, 10h54
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
26/03/2015, 11h13
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:

1 2 3 =NB.SI(A:A;"toto") =NB.SI(A:A;"mama") =NB.SI(A:A;"wiwi")
26/03/2015, 11h27
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

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 :mrgreen:
Dans ce cas, il te faut juste un compteur de valeur. Si on optimise un peu :
Code:

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:

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é !

26/03/2015, 13h06
pilounet54

merci déjà pour ce travail mais comment je fais svp pour renvoyer toutes ces valeurs

dans le tableau résultat

Code:

tablresultatligne = 3

Code:

tablresultatcolum= Array("j", "k", "l", "m", "n", "o", "p","q", “r", "s", "t", "u", "v", "w""x", "y", "z", "aa", "ab", "ac")

je rappelle que je compte tous les chiffres"1", "2" ...et jusqu’à "20" qui correspond au nombre de colonne
qu'es que cela donnerai avec mon exemple ? SVP
26/03/2015, 13h30
Nico Chg

Pour tout dire, je n'ai absolument pas compris cet exemple. A quoi correspond la première variable, "tableauresultatligne", et à quoi correspond le second tableau ?
Au passage, petite faute dans la déclaration du tableau, au niveau de "r", ce n'est pas le bon symbole de quotation (la coloration syntaxique aide à y voir plus claire)

Dans mon exemple, j'utilise une fonction qui me permet de compter le nombre de "toto" dans la colonne A, que faut il faire de plus ?
26/03/2015, 13h59
pilounet54

l'exemple que tu m'a donnée fonctionne pour une donnée es qui fonctionne pour plusieurs données moi j'ai plein de donnée "1","2"... jusqu’à 20
et après c'est me semble t'il intéressant c'est d'avoir dans un tableau résultat peu importe la variable ou les variables ou pas de variable du tout
tous ces compteurs de résultats mais j'essaye d'expliquer au mieux, par ces variables
j'ai plein de colonnes à faire avec le même principe donc très intéressants en matière de résultat
pour l'instant j'avance avec ce que tu me propose, mais cela ne répond pas à tous les résultats
exemple :si tu compte tous les "1" et tous "2"... et que tu me renvoie les résultats en colonne j 3, k 3 ...
voila le problème de départ
mais il y a peut être pas grand chose à modifier
en te remerciant cordialement
26/03/2015, 14h08
Nico Chg
Citation:

Envoyé par pilounnet54

mais il y a peut être pas grand chose à modifier

Peut être même rien ?
Je t'ai donnée une fonction qui est réutilisable à volonté, ce qui répond à ta première demande :

Citation:

Envoyé par pilounnet54

Fonction que je pourrai réutiliser

Il faut adapter le code qui appelle la fonction ! D'ou ma demande sur tes besoins. J'ai fait une fonction simple et générique de tel sorte que tu puisse la réutiliser dans n'importe quel autre programme.

Si tu cherche plusieurs valeurs, tu appelle plusieurs fois la fonction !

Au risque de me répéter :

Citation:

Envoyé par moi

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é !

Un exemple qui va compter les valeurs "toto" et "tata" et les mettre dans un tableau :
Code:

1 2 3 4 Dim MonArray(1) as variant MonArray(0) = ComptageIdentique(Worksheets("TaFeuille").range("A:A"), "toto") MonArray(1) = ComptageIdentique(Worksheets("TaFeuille").range("A:A"), "tata")
J'ai rempli un tableau avec deux valeurs : le nombre d'occurrence de "toto" dans la colonne A, et le nombre d'occurrence de "tata" dans la colonne A. Au vu des explications peu claire que j'ai, je peux difficilement faire mieux. Ou alors pas réutilisable, mais dans ce cas, il faut savoir ce que l'on veut.

dans cet état esprit es que l'on peu simplifier au maximum stp

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
NbToto1 = ComptageIdentique(Worksheets("Feuil2").Range("A:A"), "1")
NbToto2 = ComptageIdentique(Worksheets("Feuil2").Range("A:A"), "2")
NbToto3 = ComptageIdentique(Worksheets("Feuil2").Range("A:A"), "3")
NbToto4 = ComptageIdentique(Worksheets("Feuil2").Range("A:A"), "4")
NbToto5 = ComptageIdentique(Worksheets("Feuil2").Range("A:A"), "5")
NbToto6 = ComptageIdentique(Worksheets("Feuil2").Range("A:A"), "6")
NbToto7 = ComptageIdentique(Worksheets("Feuil2").Range("A:A"), "7")
NbToto8 = ComptageIdentique(Worksheets("Feuil2").Range("A:A"), "8")
NbToto9 = ComptageIdentique(Worksheets("Feuil2").Range("A:A"), "9")
NbToto10 = ComptageIdentique(Worksheets("Feuil2").Range("A:A"), "10")
NbToto11 = ComptageIdentique(Worksheets("Feuil2").Range("A:A"), "11")
NbToto12 = ComptageIdentique(Worksheets("Feuil2").Range("A:A"), "12")
NbToto13 = ComptageIdentique(Worksheets("Feuil2").Range("A:A"), "13")
NbToto14 = ComptageIdentique(Worksheets("Feuil2").Range("A:A"), "14")
NbToto15 = ComptageIdentique(Worksheets("Feuil2").Range("A:A"), "15")
NbToto16 = ComptageIdentique(Worksheets("Feuil2").Range("A:A"), "16")
NbToto17 = ComptageIdentique(Worksheets("Feuil2").Range("A:A"), "17")
NbToto18 = ComptageIdentique(Worksheets("Feuil2").Range("A:A"), "18")
NbToto19 = ComptageIdentique(Worksheets("Feuil2").Range("A:A"), "19")
NbToto20 = ComptageIdentique(Worksheets("Feuil2").Range("A:A"), "20")
 
Dim MonArray(1) As Variant
 
MonArray(0) = ComptageIdentique(Worksheets("Feuil2").Range("A:A"), "1")
MonArray(1) = ComptageIdentique(Worksheets("Feuil2").Range("A:A"), "2")
MonArray(2) = ComptageIdentique(Worksheets("Feuil2").Range("A:A"), "3")
MonArray(3) = ComptageIdentique(Worksheets("Feuil2").Range("A:A"), "4")
MonArray(4) = ComptageIdentique(Worksheets("Feuil2").Range("A:A"), "5")
MonArray(5) = ComptageIdentique(Worksheets("Feuil2").Range("A:A"), "6")
MonArray(6) = ComptageIdentique(Worksheets("Feuil2").Range("A:A"), "7")
MonArray(7) = ComptageIdentique(Worksheets("Feuil2").Range("A:A"), "8")
MonArray(8) = ComptageIdentique(Worksheets("Feuil2").Range("A:A"), "9")
MonArray(9) = ComptageIdentique(Worksheets("Feuil2").Range("A:A"), "10")
MonArray(10) = ComptageIdentique(Worksheets("Feuil2").Range("A:A"), "11")
MonArray(11) = ComptageIdentique(Worksheets("Feuil2").Range("A:A"), "12")
MonArray(12) = ComptageIdentique(Worksheets("Feuil2").Range("A:A"), "13")
MonArray(13) = ComptageIdentique(Worksheets("Feuil2").Range("A:A"), "14")
MonArray(14) = ComptageIdentique(Worksheets("Feuil2").Range("A:A"), "15")
MonArray(15) = ComptageIdentique(Worksheets("Feuil2").Range("A:A"), "16")
MonArray(12) = ComptageIdentique(Worksheets("Feuil2").Range("A:A"), "17")
MonArray(13) = ComptageIdentique(Worksheets("Feuil2").Range("A:A"), "18")
MonArray(14) = ComptageIdentique(Worksheets("Feuil2").Range("A:A"), "19")
MonArray(15) = ComptageIdentique(Worksheets("Feuil2").Range("A:A"), "20")
 
Worksheets("Feuil2").Cells(3, 10) = MonArray(0)
Worksheets("Feuil2").Cells(3, 11) = MonArray(1)
Worksheets("Feuil2").Cells(3, 12) = MonArray(2)
Worksheets("Feuil2").Cells(3, 13) = MonArray(3)
Worksheets("Feuil2").Cells(3, 14) = MonArray(4)
Worksheets("Feuil2").Cells(3, 15) = MonArray(5)
Worksheets("Feuil2").Cells(3, 16) = MonArray(6)
Worksheets("Feuil2").Cells(3, 17) = MonArray(7)
Worksheets("Feuil2").Cells(3, 18) = MonArray(8)
Worksheets("Feuil2").Cells(3, 19) = MonArray(9)
Worksheets("Feuil2").Cells(3, 20) = MonArray(10)
Worksheets("Feuil2").Cells(3, 21) = MonArray(11)
Worksheets("Feuil2").Cells(3, 22) = MonArray(12)
Worksheets("Feuil2").Cells(3, 23) = MonArray(13)
Worksheets("Feuil2").Cells(3, 24) = MonArray(14)
Worksheets("Feuil2").Cells(3, 25) = MonArray(15)
Worksheets("Feuil2").Cells(3, 26) = MonArray(16)
Worksheets("Feuil2").Cells(3, 28) = MonArray(17)
Worksheets("Feuil2").Cells(3, 29) = MonArray(18)

merci

26/03/2015, 15h17
Nico Chg
Alors ya un truc plutôt utile en programmation, que l'on appelle "Boucles" !

Alors si on regarde ta procédure, ya un paquet de chose qui ne serve à rien. Tu calcul des NbToto (alors rien n'interdit de changer le nom de la variable) que tu n'utilise pas dans la suite de ta procédure.

Si j'ai Dim MonArray(1), c'est parceque j'ai 2 valeurs à mettre dans mon tableau, donc deux indices : 0 et 1

Ensuite, pour simplifier, POURQUOI passes tu par un tableau ? A ce stade de programmation, il ne sert à rien, a part écrire des lignes de code pour la beauté du geste. Non, réellement, si les valeurs que tu recherche sont dans un tableau, parcours le ... Je veux bien croire que la programmation c'est difficile, mais ça fait tout de même bientôt 400 post que tu est là ...

...

...

...
Code:

1 2 3 4 5 6 With Worksheets("Feuil2") For I = 1 to 20 .Cells(3, 9 + I) = ComptageIdentique(.Range("A:A"), I) Next I End With
Permet moi également de douter de la pertinence de ce que tu veux faire ? Avoir une vision d'ensemble pour résoudre un problème me semble assez primordial, et la, on a que des fragments de problème avec des posts à droite à gauche sur des petits problèmes. On est tout de même là pour s'entraider, donc avec un peu de recul, on pourrait peut être te conseiller des méthodes plus pratiques pour ton problème en particulier ?

bonjour
je t’empêcherai pas de douter ou me prendre pour un fou! j'ai l'habitude
l'informatique ce n'est alors vraiment pas mon métier ,je bricole, aussi ,avec ce que l'on me donne ,et cela me passe aussi le temps" retraite" mais ne te trompe pas à l'arriver cela peux être un programme d'enfer
je ne peu pour l'instant données un vision ensemble, même si pour l'instant cela pourrai intéresse plein de monde
dur de me comprendre, je le sais pardon pour l'incompréhension que je donne mais je ne le fais pas exprès.
es que tu as regarde tous ce que j'ai mis dans la dernière réponse ? je pense que l'on peu encore avec ce que j'ai mis simplifier regarde jusqu’au bout stp
cordialement

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
Dim NbToto1 As Single
Dim NbToto2 As Single
Dim NbToto3 As Single
Dim NbToto4 As Single
Dim NbToto5 As Single
Dim NbToto6 As Single
Dim NbToto7 As Single
Dim NbToto8 As Single
Dim NbToto9 As Single
Dim NbToto10 As Single
Dim NbToto11 As Single
Dim NbToto12 As Single
Dim NbToto13 As Single
Dim NbToto14 As Single
Dim NbToto15 As Single
Dim NbToto16 As Single
Dim NbToto17 As Single
Dim NbToto18 As Single
Dim NbToto19 As Single
Dim NbToto20 As Single
NbToto1 = ComptageIdentique(Worksheets("Feuil2").Range("A:A"), "1")
NbToto2 = ComptageIdentique(Worksheets("Feuil2").Range("A:A"), "2")
NbToto3 = ComptageIdentique(Worksheets("Feuil2").Range("A:A"), "3")
NbToto4 = ComptageIdentique(Worksheets("Feuil2").Range("A:A"), "4")
NbToto5 = ComptageIdentique(Worksheets("Feuil2").Range("A:A"), "5")
NbToto6 = ComptageIdentique(Worksheets("Feuil2").Range("A:A"), "6")
NbToto7 = ComptageIdentique(Worksheets("Feuil2").Range("A:A"), "7")
NbToto8 = ComptageIdentique(Worksheets("Feuil2").Range("A:A"), "8")
NbToto9 = ComptageIdentique(Worksheets("Feuil2").Range("A:A"), "9")
NbToto10 = ComptageIdentique(Worksheets("Feuil2").Range("A:A"), "10")
NbToto11 = ComptageIdentique(Worksheets("Feuil2").Range("A:A"), "11")
NbToto12 = ComptageIdentique(Worksheets("Feuil2").Range("A:A"), "12")
NbToto13 = ComptageIdentique(Worksheets("Feuil2").Range("A:A"), "13")
NbToto14 = ComptageIdentique(Worksheets("Feuil2").Range("A:A"), "14")
NbToto15 = ComptageIdentique(Worksheets("Feuil2").Range("A:A"), "15")
NbToto16 = ComptageIdentique(Worksheets("Feuil2").Range("A:A"), "16")
NbToto17 = ComptageIdentique(Worksheets("Feuil2").Range("A:A"), "17")
NbToto18 = ComptageIdentique(Worksheets("Feuil2").Range("A:A"), "18")
NbToto19 = ComptageIdentique(Worksheets("Feuil2").Range("A:A"), "19")
NbToto20 = ComptageIdentique(Worksheets("Feuil2").Range("A:A"), "20")
Dim MonArray(20) As Variant
MonArray(0) = ComptageIdentique(Worksheets("Feuil2").Range("A:A"), "1")
MonArray(1) = ComptageIdentique(Worksheets("Feuil2").Range("A:A"), "2")
MonArray(2) = ComptageIdentique(Worksheets("Feuil2").Range("A:A"), "3")
MonArray(3) = ComptageIdentique(Worksheets("Feuil2").Range("A:A"), "4")
MonArray(4) = ComptageIdentique(Worksheets("Feuil2").Range("A:A"), "5")
MonArray(5) = ComptageIdentique(Worksheets("Feuil2").Range("A:A"), "6")
MonArray(6) = ComptageIdentique(Worksheets("Feuil2").Range("A:A"), "7")
MonArray(7) = ComptageIdentique(Worksheets("Feuil2").Range("A:A"), "8")
MonArray(8) = ComptageIdentique(Worksheets("Feuil2").Range("A:A"), "9")
MonArray(9) = ComptageIdentique(Worksheets("Feuil2").Range("A:A"), "10")
MonArray(10) = ComptageIdentique(Worksheets("Feuil2").Range("A:A"), "11")
MonArray(11) = ComptageIdentique(Worksheets("Feuil2").Range("A:A"), "12")
MonArray(12) = ComptageIdentique(Worksheets("Feuil2").Range("A:A"), "13")
MonArray(13) = ComptageIdentique(Worksheets("Feuil2").Range("A:A"), "14")
MonArray(14) = ComptageIdentique(Worksheets("Feuil2").Range("A:A"), "15")
MonArray(15) = ComptageIdentique(Worksheets("Feuil2").Range("A:A"), "16")
MonArray(12) = ComptageIdentique(Worksheets("Feuil2").Range("A:A"), "17")
MonArray(13) = ComptageIdentique(Worksheets("Feuil2").Range("A:A"), "18")
MonArray(14) = ComptageIdentique(Worksheets("Feuil2").Range("A:A"), "19")
MonArray(15) = ComptageIdentique(Worksheets("Feuil2").Range("A:A"), "20")
Worksheets("Feuil2").Cells(3, 10) = MonArray(0)
Worksheets("Feuil2").Cells(3, 11) = MonArray(1)
Worksheets("Feuil2").Cells(3, 12) = MonArray(2)
Worksheets("Feuil2").Cells(3, 13) = MonArray(3)
Worksheets("Feuil2").Cells(3, 14) = MonArray(4)
Worksheets("Feuil2").Cells(3, 15) = MonArray(5)
Worksheets("Feuil2").Cells(3, 16) = MonArray(6)
Worksheets("Feuil2").Cells(3, 17) = MonArray(7)
Worksheets("Feuil2").Cells(3, 18) = MonArray(8)
Worksheets("Feuil2").Cells(3, 19) = MonArray(9)
Worksheets("Feuil2").Cells(3, 20) = MonArray(10)
Worksheets("Feuil2").Cells(3, 21) = MonArray(11)
Worksheets("Feuil2").Cells(3, 22) = MonArray(12)
Worksheets("Feuil2").Cells(3, 23) = MonArray(13)
Worksheets("Feuil2").Cells(3, 24) = MonArray(14)
Worksheets("Feuil2").Cells(3, 25) = MonArray(15)
Worksheets("Feuil2").Cells(3, 26) = MonArray(16)
Worksheets("Feuil2").Cells(3, 28) = MonArray(17)
Worksheets("Feuil2").Cells(3, 29) = MonArray(18)
Worksheets("Feuil2").Cells(3, 30) = MonArray(19)

Dans son ensemble cela donnerai quoi si tu simplifie tout ceci
En tous les cas je te remercie pour tout
cordialement

26/03/2015, 16h16
Nico Chg

Le code que j'ai posté est exactement une simplification de ce que tu as écris.

donc stp l'ensemble du code donne ceci ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
Sub test1()
Dim MonArray(20) As Variant
 
Dim I As Integer
 
Dim NbToto1 As Single
Dim NbToto2 As Single
Dim NbToto3 As Single
Dim NbToto4 As Single
Dim NbToto5 As Single
Dim NbToto6 As Single
Dim NbToto7 As Single
Dim NbToto8 As Single
Dim NbToto9 As Single
Dim NbToto10 As Single
Dim NbToto11 As Single
Dim NbToto12 As Single
Dim NbToto13 As Single
Dim NbToto14 As Single
Dim NbToto15 As Single
Dim NbToto16 As Single
Dim NbToto17 As Single
Dim NbToto18 As Single
Dim NbToto19 As Single
Dim NbToto20 As Single
 
 
NbToto1 = ComptageIdentique(Worksheets("Feuil3").Range("A:A"), "1")
NbToto2 = ComptageIdentique(Worksheets("Feuil3").Range("A:A"), "2")
NbToto3 = ComptageIdentique(Worksheets("Feuil3").Range("A:A"), "3")
NbToto4 = ComptageIdentique(Worksheets("Feuil3").Range("A:A"), "4")
NbToto5 = ComptageIdentique(Worksheets("Feuil3").Range("A:A"), "5")
NbToto6 = ComptageIdentique(Worksheets("Feuil3").Range("A:A"), "6")
NbToto7 = ComptageIdentique(Worksheets("Feuil3").Range("A:A"), "7")
NbToto8 = ComptageIdentique(Worksheets("Feuil3").Range("A:A"), "8")
NbToto9 = ComptageIdentique(Worksheets("Feuil3").Range("A:A"), "9")
NbToto10 = ComptageIdentique(Worksheets("Feuil3").Range("A:A"), "10")
NbToto11 = ComptageIdentique(Worksheets("Feuil3").Range("A:A"), "11")
NbToto12 = ComptageIdentique(Worksheets("Feuil3").Range("A:A"), "12")
NbToto13 = ComptageIdentique(Worksheets("Feuil3").Range("A:A"), "13")
NbToto14 = ComptageIdentique(Worksheets("Feuil3").Range("A:A"), "14")
NbToto15 = ComptageIdentique(Worksheets("Feuil3").Range("A:A"), "15")
NbToto16 = ComptageIdentique(Worksheets("Feuil3").Range("A:A"), "16")
NbToto17 = ComptageIdentique(Worksheets("Feuil3").Range("A:A"), "17")
NbToto18 = ComptageIdentique(Worksheets("Feuil3").Range("A:A"), "18")
NbToto19 = ComptageIdentique(Worksheets("Feuil3").Range("A:A"), "19")
NbToto20 = ComptageIdentique(Worksheets("Feuil3").Range("A:A"), "20")
 
 
 
 
With Worksheets("Feuil3")
    For I = 1 To 20
        .Cells(3, 9 + I) = ComptageIdentique(.Range("A:A"), I)
    Next I
End With
 
 
End Sub

cordiament

26/03/2015, 18h19
Nico Chg

Pas du tout. Comme je l'ai dit un peu avant :

Citation:

Envoyé par moi

Le code que j'ai posté est EXACTEMENT une simplification de ce que tu as écris.
26/03/2015, 19h50
pilounet54
message d'erreur : type d'argument byref incompatible et cela pointe sur le I après le A:A
Code:

1 2 3 4 5 6 7 8 With Worksheets("Feuil3") For I = 1 To 20 .Cells(3, 9 + I) = ComptageIdentique(.Range("A:A"), I) Next I End With End Sub
j'ai déclarer le I
dim I as integer

peut tu m'aider
26/03/2015, 21h10
OBO29

-> Essaye ça peut-être ?

Code:

.Cells(3, 9 + I) = ComptageIdentique(.Range("A:A"), cstr(I))

Bonne continuation
26/03/2015, 21h20
pilounet54

OK avec ce code cela fonctionne
c'est a mon sens un tout peu long dans le résultât ,mais cela fonctionne très très bien merci
bonne soirée
26/03/2015, 21h43
Nico Chg

Bonsoir,

Un petit message pour m'excuser pour les messages un peu austère, j'étais dans les transports, pas facile de tout expliquer quand on est coincé dans le f***** RER C !

Bonne continuation !

PS : Et merci à OBO29, en effet, le paramètre est défini en tant que "string", et je lui passe un single, fatigue, quand tu nous tiens :mrgreen:

Voir 40 message(s) de cette discussion en une page

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