Discussion :

[renaultt2]

Bonjour

j'ai 2 tableaux de 2 colonnes et de "n" lignes.

Tableau 1 Tableau 2

A A toto
B B toto
C C titi
D D toto
EPF709 EPF709 titi
F F titi
G G titi
H H toto

j'ai créé une variable tableau 1 et une variable tableau 2
j'ai créé nbligne pour tableau 1 et nbligne2 pour le tableau 2.

Je veux dire :
SI A (1er tableau) = A (deuxième Tableau) mettre toto sur la colonne à coté de A (premier tableau)
mais A n'est pas forcément en premier dans le tableau 2

en VBA :
ActiveCell.FormulaR1C1 = "=IF cells(nbligne,1) = cells(nbligne2,1) then toto else titi
et je boucle
mais la formule n'est pas bonne.
pouvez vous m'aider ???
Merci

[Invité]

Bonjour,
regarde du coté du recherchev!

[MicroMatz]

Bonjour,
Peut être quelque chose du genre :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
tab1 = range("A1:B8") 'mise en mémoire du tableau 1
tab2 = range("C1:D8") 'mise en mémoire du tableau 2
for i=1 to 8
  for j=1 to 8
    if tab1(i,1)=tab2(j,1) then 'test de correspondance
      tab1(i,2)=tab2(j,2) 'recopie de la valeur
    end if
  next
next

[renaultt2]

Bonjour

je peux faire

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
objtab = range("A1").currentregion.select      ' select du tableau 1
objtab2 = range("C1").currentregion.select      ' select du tableau 2
 
nbligne = objtab.rows.count    'nombre de ligne du tableau 1
nbligne2 = objtab2.rows.count    'nombre de ligne du tableau 2
 
tab1 = range("A1:nbligne")  'mise en mémoire du tableau 1
tab2 = range("C1:Nbligne2")  'mise en mémoire du tableau 2
for i=1 to nbligne
  for j=1 to nbligne2    if tab1(i,1)=tab2(j,1) then    'test de correspondance
      tab1(i,2)=tab2(j,2)    'recopie de la valeur
    end if
  next
next

[MicroMatz]

Je ne sais pas trop comment tu comptes tes lignes et où sont situées tes données.
Par contre je peux déjà te corriger sur ça :

Code :

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

1
2
tab1 = range("A1:B" & nbligne1)  'mise en mémoire du tableau 1
tab2 = range("C1:D" & Nbligne2)  'mise en mémoire du tableau 2

Bon courage