Comparer 2 tableaux et ajouter une valeur si difference

Bonjour,

Je pensais qu'avec 2 boucles et 1 ou 2 conditions IF il me serait possible de résoudre ce problème, mais je n'y arrive pas. Je fais donc appel à votre aide.

Ainsi, j'ai 2 tableaux d'une colonne, T1 et T2. Je voudrais que toute valeur de T2 ne figurant pas dans T1, soit ajoutée en bas de T1.

Mes tatonnements m'ont amené à ce bout de code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

sub t1t2()   Dim v_p As Range Dim v_p2 As Range Dim v_compteur2 As Integer Dim v_compteur As Integer   Sheets("p2").Select Set v_p2 = Range("a1").CurrentRegion   Sheets("p").Select Set v_p = Range("b2").CurrentRegion   For v_compteur = 2 To v_p.Rows.Count For v_compteur2 = 2 To v_p2.Rows.Count   If v_p2.Cells(v_compteur2, 1) = v_p.Cells(v_compteur, 1) Then Next 'ici ça coince : j'ai un NEXT sans FOR ? 'ensuite je ne sais pas quoi faire   Else   Next   end sub

---

------------

Suis-je sur la bonne voie ou utiliseriez vous une autre méthodee ?

Merci

1)le currentregion designe un range contenant toutes les cellules non vide a proximité, tu ne dois pas l'utiliser pour trouver le derniere ligne. pour ceci, tu as un post dans" vos contributions" fait par ouskelnor qui resumes les differentes manieres d'y arriver ou bien tu tapes derniere ligne dans la recherche
2)le chiffre 1 represente ta colonne, et la tu veux comparer une cellule de la colonne 1 sur une de la colonne 2

Code:

---

1 2 3

If v_p2.Cells(v_compteur2, 1) = v_p.Cells(v_compteur, 1) Then

---

3)next sans for parce que tu a placer le next au milieu de la boucle if

Code:

---

1 2 3 4 5 6 7 8

for vcompteur = 1 to x for vcompteur2 = 2 to y if cellule (x,1) = cellule(y,2) then action end if next vcompteur2 next vcompteur1

---

Citation:

---

Envoyé par jerem7w

Suis-je sur la bonne voie ou utiliseriez vous une autre méthodee ?

---

Bonjour, jerem7w,

Je m'arrête en ce qui me concerne à cette simple question, sans préjudice du reste (la justesse de ton code) dont alsimbad t'a déjà dit l'essentiel.

Tu es sur la bonne voie si tes 2 "tableaux" sont de petite taille.
Si, par contre ils sont de grande taille, une telle méthode sera assez gourmande en temps, par rapport au traitement sur deux listboxes alimentées par les données de tes 2 tableaux et gérées (par utilisation de la fonction SendMessage de l'Api de Windows) par une seule boucle For ... to ... next et non par deux boucles imbriquées dont la seconde aura pour effet, à chaque tour de la première, de reprendre la totalité des articles de l'autre "tableau".
Le gain de temps par cette deuxième méthode sera insignifiant sur des tableaux de petites tailles mais énorme (pouvant aller jusqu'à 400 fois moins) sur des tableaux de grande taille.
C'est là ma réponse à la question que tu as posée et que j'ai reprise en citation.

EDIT : tu peux même éviter l'utilisation de la fonction SendMessage en alimentant deux comboboxes au lieu de deux ListBoxes. ce sera un tout petit peux moins rapide qu'avec SendMessage, mais beaucoup plus rapide que deux boucles imbriquées. (valable - une autre fois - si tes deux "tableaux" sont de grande taille. Si non : cet effort-là n'est pas vraiment nécessaire).

serait-ce plus intelligent avec la fonction find...que je ne connais pas encore ?

Citation:

---

Envoyé par jerem7w

serait-ce plus intelligent avec la fonction find...que je ne connais pas encore ?

---

Je n'en ai pas fait l'essai, mais suis enclin à penser que ce serait plus rapide que deux boucles imbriquées... (Je suis à ce propos presque prêt à parier que la fonction Find D'Excel utilise la fonction SendMessage de l'Api de Windows ...;)... mais ce n'est que mon avis ...)