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

cp4 · 8 Avril 2020

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 · 8 Avril 2020

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 · 8 Avril 2020

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?

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

cp4

XLDnaute Barbatruc

CHALET53

XLDnaute Barbatruc

cp4

XLDnaute Barbatruc

Discussions similaires