Comparaison de variables tableaux

Fermé

nabhalia Messages postés 23 Date d'inscription vendredi 29 octobre 2010 Statut Membre Dernière intervention 12 mars 2015 - 12 mars 2015 à 12:06
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 - 15 mars 2015 à 18:55

Bonjour,

Je découvre les variables tableaux, mais j'ai encore des difficultés à m'en servir :

J'enregistre deux tableaux à une dimension, qui ne font pas la même taille.

' 1er tableau Req (Données String, par exemple "RENAULT MEGANE 1.6L")
derligR = Cells(Rows.Count, 2).End(xlUp).Row
Dim tabReq()
ReDim tabReq(derligR)
For i = 2 To derligR
tabReq(i) = Range("R" & i)
Next

' 2ème tableau Zap (Données String, par exemple "MEGANE")
derligZ = Workbooks("Zap.xlsx").Sheets("ReqDE").Cells(Rows.Count, 2).End(xlUp).Row
Dim tabZap()
ReDim tabZap(derligZ)
For j = 5 To derligZ
tabZap(j) = Workbooks("Zap.xlsx").Sheets("ReqDE").Range("B" & i)
Next

Une fois toutes mes données récupérées, j'aimerais savoir si un ou plusieurs tabZap (par exemple MEGANE) se trouvent dans tabReq (RENAULT MEGANE 1.6L), si c'est le cas, je lance une autre procédure.

Quelqu'un pourrait-il m'aider ?

En vous remerciant,

Nb

A voir également:

Comparaison de variables tableaux
Tableaux croisés dynamiques - Guide
Fusionner deux tableaux excel - Guide
Le fichier contient une liste de prénoms. triez ce tableau par ordre alphabétique des prénoms. quel mot est formé par les 6 premières lettres de la colonne code ? - Forum Bureautique
Tableau de combinaison loto 5/90 - Forum Excel
Citez un des logiciels lui permettant de faire des calculs sur des tableaux de nombres (tableur). ✓ - Forum Logiciels

1 réponse

Réponse 1 / 1

gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 684
15 mars 2015 à 18:55

Bonjour,

Tu as une fonction adaptée pour les tableaux à une dimension : filter

res = Filter(tabReq, tabZap élément recherché, True, 1)
                    If UBound(res) < 0 Then
                         l'élément n'est pas trouvé
                    Else
                         UBound(res)= nombre de présences
                    end if

Discussions similaires

programme qui n'affiche pas le mot secret

ou sont les bananes ?

Impossible d'afficher le rapport de tableau croisé dynamique sur un rapport

code ascii

Nom de champs du tableau croisé dynamique non valide

Discussions similaires

Newsletters