VBA : comparaison de 2 Tableaux

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : VBA : comparaison de 2 Tableaux

manuuu

salut,

savez vous comment comparer deux tableaux SVP ? merci !

pour l'instant je passe par deux boucles imbriquées et c'est pas terrible

Publicité

drasche

premier truc: comparer les dimensions des tableaux, et s'ils sont identiques, seulement, tu compares le contenu. Si tu fais deux boucles, je suppose que ton tableau est bidimensionnel? Tu peux pas faire autrement en VB que de comparer valeur par valeur

---------------
Whichever format the fan may want to listen is fine with us – vinyl, wax cylinders, shellac, 8-track, iPod, cloud storage, cranial implants – just as long as it’s loud and rockin' (Billy Gibbons, ZZ Top)

manuuu

salut et merci de ton intervention
non pas bidimensionnel

je fais :

Code :

While i < 50
i = i + 1
While j < 50
j = j + 1
If "var3(i)" = "var4(j)" Then
Range("H1" ) = "ok"
End If
If var4(i) = var3(j) Then
Range("I1" ) = "ok"
End If
Wend

petite precision, je compare des string

Message édité par manuuu le 31-01-2004 à 23:44:43

drasche

je vois, tu compares donc chaque élément du premier array à chaque élément du second array. Mais je ne vois pas d'où viennent ces expressions "var3(i)", a priori c'est une chaîne et tu compares toujours la même chose j'ai l'impression :??:

manuuu

euh, dejà les " y sont pas, c'était un test non concluant

je te copie colle tout le code, tu vas mieux comprendre

Code :

'Si la ligne n'est pas directe on indique le mot clé "correspondance"
If Range(ligne_sansc) = "" Then
Range(correspondance) = "Correspondance"
'On cherche une station de la ligne d'arrivée qui comporte une des lignes de la station de depart
i = 0
j = 0
h = 0
While i < 379
i = i + 1
'On enregistre tous les noms de stations dans le tableau var3 qui ont une ligne comme la 1ere de l'arrivée
If Range("B" & i) = var2(1) Then
j = j + 1
var3(j) = Range("A" & i)
'Range("I" & j) = var3(j)
End If
'On enregistre tous les noms de stations dans le tableau var4 qui ont une ligne comme la 1ere du depart
If Range("B" & i) = var1(1) Then
h = h + 1
var4(h) = Range("A" & i)
'Range("J" & h) = var4(h)
End If
Wend
'On compare toutes les valeurs des tableaux entre elles pour voir si il y en a une en commun
'qu'on enregistre dans la cellule H1 ou H2
i = 0
j = 0
While i < 50
i = i + 1
While j < 50
j = j + 1
If var3(i) = var4(j) Then
Range("H1" ) = "ok"
End If
Wend
Wend
End If

Message édité par manuuu le 01-02-2004 à 00:06:44

FORUM HardWare.fr

Programmation

VB/VBA/VBS

VBA : comparaison de 2 Tableaux

Sujets relatifs
STL : se débarrasser des tableaux issus du C	Contrôle de Saisie VBA
[VBA] Demande d'information	Envoyer un document Word par email via VBA (solution de remplacement)
[VBA] Passer un tableau en parametre de fonction ?	[HTML] Site et Tableaux
[EXCEL][VBA] condition sautée ?	[VBA][Excel]definir la selection dans une macro [resolu]
[VBA Excel] Recherche spécial dans une chaine de caractère ?	[VBA Excel] Je suis nul en VBA aidez-moi svp
Plus de sujets relatifs à : VBA : comparaison de 2 Tableaux

Page générée en 0.068 secondes