XL 2010 Alimenter une variable répondant à critère

cp4

XLDnaute Barbatruc
Bonjour:),

Pour aider je sèche un peu.
VB:
For i = 1 To UBound(T2)
         For k = 1 To UBound(T1)
         m = 0
         For j = 1 To UBound(T2, 2)
               For n = 1 To UBound(T1, 2)
                  If T2(i, j) = T1(k, n) Then m = m + 1
                  If m = 3 Then 'ici tous les k dans une variable
            Next n
         Next j
      Next k
   Next i
Là où c'est indiqué dans le code je voudrais récupérer dans une variable tous les k (indice de ligne de T1).
En vous remerciant par avance.

Bonne journée.
 

CHALET53

XLDnaute Barbatruc
Bonjour,
Peut-être en créant un tableau que tu alimentes dès que la condition est réunie
Dim tbdesk(100) en début de pgm
Juste après le sub :cpt=0
et if m=3 then cpt=cpt+1 : tbddesk(cpt)=k
Après le Next i tu fais une lecture de ce tableau pour récupérer les k concernés
a+
 

cp4

XLDnaute Barbatruc
Bonjour Chalet53:),

C'est ce que je voulais faire. J'ai essayé ta proposition mais je ne connais pas au préalable le nombre d'éléments. C'est pour aider dans ce fil.

Le problème posé: 2 tableaux , l'un à 5 colonnes et l'autre 3 colonnes. Le but supprimer ligne, si les 3 valeurs de la même ligne sont trouvées sur un ligne du tableau à 5 colonnes.
Mais vu, le grand nombre de lignes le parcourt des feuilles est interminable.
J'ai pensé utiliser les variables tableaux, mais depuis ce matin je patine sur place:(:(.
Merci pour ta suggestion. Sinon, pourrais-tu lui venir en aide?
 

Discussions similaires

Réponses
7
Affichages
292
Réponses
23
Affichages
1 K

Statistiques des forums

Discussions
311 720
Messages
2 081 923
Membres
101 840
dernier inscrit
SamynoT