Discussion :

[jerem7w]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[alsimbad]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ucfoutu]

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).

[jerem7w]

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

[ucfoutu]

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 ...)