Variante Denombrement & Tableau "Variant"

Bonjour .


Grace à AV , et petite modification la Macro de denombrement fonctionne .

**********************************************************************

Sub zzz()
'----Champs de donnés en A1:J100
'----Valeurs à denombrer en L1 / M1 / N1
'----Resultats en O1 / P1 / Q1 / R1 pour le total en 0 / 1 / 2 / 3
'-----------------------------------------------------
For I = 1 To 100
x1 = Application.CountIf(Range("A" & I & ":J" & I), [L1])
x2 = Application.CountIf(Range("A" & I & ":J" & I), [M1])
x3 = Application.CountIf(Range("A" & I & ":J" & I), [N1])
'===============================================pour 1 / 3
If x1 + x2 + x3 = 1 Then
Qté1 = Qté1 + 1
'===============================================pour 2 / 3
ElseIf x1 + x2 + x3 = 2 Then
Qté2 = Qté2 + 1
'===============================================pour 3 / 3
ElseIf x1 + x2 + x3 = 3 Then
Qté3 = Qté3 + 1
'===============================================pour 0 / 3
Else: Qté0 = Qté0 + 1
'==========================Variables de Comptage à zero
End If
x1 = 0: x2 = 0: x3 = 0
Next
'==========================Sortie Boucle = Ecriture Resultats
[O1] = Qté0: [P1] = Qté1: [Q1] = Qté2: [R1] = Qté3
'==============================================================
End Sub

**********************************************************************

La je souhaiterai passer par une Variante, les Plages et tableaux "variants"
(vu sur le site de L.Longre ).
C'est à dire, mettre le champs de Données à traiter dans une "Variable" et
ensuite les Calculs.

**** Petit Debut de code

Dim Tabl
Tabl = range("A1:J100") '--- Mise en variable du champ de données

C'est ensuite que je coince , CountIf(Range, peut'on l'utiliser dans un
Tableau "variant" ?
Ou faut'il passer par une lecture cellule par cellule = Tabl(A,B), donc une
boucle ligne et une boucle colonne ?


Merci pour tout exemple