Denombrement & VBA

2 réponses

Golem13

30/01/2005 à 09:55

Bonjour .

Voila je recherche un exemple de code VBA pour le topo Suivant .

Faire une recherche du nombre de sorties d'une liste de Valeurs, dans un
champ de donnée , le comptage s'effectuant ligne par ligne .

Avec ensuite affichage des resultats possibles.

= = = =

Champ de donnée = A1:J100

Valeurs à chercher en L1 / M2 / N2

Puis incription des resultats possibles.

En O1 pour le nombre de fois ou les 3 valeurs sont presentes 0 fois .
En P1 pour le nombre de fois ou les 3 valeurs sont presentes 1 fois
En Q1 pour le nombre de fois ou les 3 valeurs sont presentes 2 fois
En R1 pour le nombre de fois ou les 3 valeurs sont presentes 3 fois

= = =

Merci pour tout bout de Code .

@ +

2 réponses

30/01/2005 à 10:50

Sub zzz()
For i = 1 To 100
x1 = Application.CountIf(Range("A" & i & ":J" & i), [L1])
x2 = Application.CountIf(Range("A" & i & ":J" & i), [M2])
x3 = Application.CountIf(Range("A" & i & ":J" & i), [N2])
If x1 = 1 And x2 = 1 And x3 = 1 Then
Qté1 = Qté1 + 1
ElseIf x1 = 2 And x2 = 2 And x3 = 2 Then
Qté2 = Qté2 + 1
ElseIf x1 = 3 And x2 = 3 And x3 = 3 Then
Qté3 = Qté3 + 1
Else: Qté0 = Qté0 + 1
End If
x1 = "": x2 = "": x3 = ""
Next
[O1] = Qté0: [P1] = Qté1: [Q1] = Qté2: [R1] = Qté3
End Sub

AV

Golem13

30/01/2005 à 22:46

"AV" a écrit dans le message de
news:

Sub zzz()
For i = 1 To 100
x1 = Application.CountIf(Range("A" & i & ":J" & i), [L1])
x2 = Application.CountIf(Range("A" & i & ":J" & i), [M2])
x3 = Application.CountIf(Range("A" & i & ":J" & i), [N2])
If x1 = 1 And x2 = 1 And x3 = 1 Then
Qté1 = Qté1 + 1
ElseIf x1 = 2 And x2 = 2 And x3 = 2 Then
Qté2 = Qté2 + 1
ElseIf x1 = 3 And x2 = 3 And x3 = 3 Then
Qté3 = Qté3 + 1
Else: Qté0 = Qté0 + 1
End If
x1 = "": x2 = "": x3 = ""
Next
[O1] = Qté0: [P1] = Qté1: [Q1] = Qté2: [R1] = Qté3
End Sub

AV

Bonsoir .

Merci AV , pour cet exemple , cela me rend un grand un service .

@ +

Denombrement & VBA

2 réponses

Veuillez sélectionner un problème