Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

  • Initiateur de la discussion Initiateur de la discussion cp4
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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.
 
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+
 
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?
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 Erreur UBound
Réponses
4
Affichages
217
Réponses
8
Affichages
270
Réponses
5
Affichages
707
Réponses
4
Affichages
581
Réponses
2
Affichages
186
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…