Comment coder des conditions logiques sur 2 tableaux

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.:ptdr:
pouvez vous m'aider ???:oops:
Merci

Bonjour,
regarde du coté du recherchev!

Bonjour,
Peut être quelque chose du genre :

Code:

---

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

---

Bonjour

je peux faire

Code:

---

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

---

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:

---

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