Discussion :

[pilounet54]

bonjour
Avec cette fonction et cette sub qui fontionne très très bien pour une colonne qu'es qui selon vous je dois modifié pour quelle fonctionne

valeur recherchées à partir de la ligne 3 colonne A & B & C & D & E jusqu’à des valeurs diff vide

j'ai bien commence par .Range("A:E") mais les résultats sont pas juste, il fait toujours la même colonne A .
j'ai même essayer de modifier différente valeur mais pas concluent pour l'instant .

et es que l'on peu aussi rendre le résultât plus rapide ?

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub test3() 'fontionne avec la fonction module 1  ComptageIdentique
With Worksheets("Notes")
    For I = 1 To 20 Step 2 
        .Cells(13, 10 + I) = ComptageIdentique(.Range("A:E"), CStr(I))
          Next I
   For I = 1 To 20 Step 2 
        .Cells(14, 9 + I) = ComptageIdentique(.Range("A:E"), CStr(I))
Next I
End With
End Sub

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Function ComptageIdentique(plage As Range, valeur As String)
Dim TempArray
Dim result As Single
Dim I As Single
''Dim I As String
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

Cordialement à vous tous

[Philippe Tulliez]

Bonjour,
La fonction que tu utilises est issue d'une réponse que l'on t'a proposée à une de tes autres discussions.
Dans cette discussion qui était résolue, j'ai proposé une autre solution avec une fonction personnalisée et celle-ci te permettra de faire ce que tu souhaites comme par exemple

Code :

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

=CountIfSum(A2:C15;F2)

[pilounet54]

bonjour ce code est issue d'une réponse bien sur ! j 'essaye de l'adapter et aussi de comprendre pourquoi je ne peux modifier .
mais pour mon problème de départ à bien été résolu
La formule que vous me proposer me conviens pas pour la raison suivante j'ai actuellement un ordre idée 600 formules par pages sur plusieurs pages 4 ou 5 que j’essaye à mon niveau de synthétiser et de rassemble tout cela sur une seule feuille donc formules j exclue et on peu le comprendre
mais merci malgré tout de l’impulsion sur une formule ,je comprend

[Philippe Tulliez]

Bonjour,
Mais comme je l'ai indiqué dans l'autre discussion, tu peux l'utiliser comme fonction dans excel ou en VBA
Comme par exemple

Code :

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

MsgBox CountIfSum(Range("A2:E100"), Range("G2"))

Ou

Code :

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

MsgBox CountIfSum(Range("A2:E100"), Join(Array("toto", "mama", "titi"), ";"))

[pilounet54]

bonjour je souhaite regarder la solution que vous proposez mais le CountIfSum vous le déclarer comment
message d'erreur il ne connait pas le CountIfSum

et si vous pouviez répondre aux questions je suis aussi preneur cordialement Bon dimanche

[Philippe Tulliez]

Bonjour,
J'ai pourtant donné le lien dans ma réponse d'hier à 13h58 et cette discussion c'est vous même qui l'avez initiée. Le lien est en rouge.

Dans cette discussion qui était résolue, j'ai proposé une autre solution avec une fonction personnalisée et celle-ci te permettra de faire ce que tu souhaites comme par exemple