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