bonjour à tous.

On m'a aidé ce matin pour un bout de code
Cependant j'ai des soucis de syntaxe et comme je suis encore très débutant je suis bloqué...

voici le 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
Sub refer()
Dim i as long, k as long, l as long
Dim j as integer
l=2
For j = 3 to 5
For k = 2 sheets(j).range("A1").end(xldown).row
For i = 2 to sheets(1).range("E1").end(xldown).row
if Sheets(j).cells(k,1)=Sheets(1).cells(i,1) then
next k
end if
next i
Sheets(j+3).cells(l,1)=Sheets(j).cells(k,1)
l=l+1
next k
next j
end sub
c'était en réponse à mon post
Bonjour à tous.

Je cherche à traiter certaines donnée.
Sur la feuille 1 en colonne E j'ai des références, sur les feuilles 3 - 4 - 5 en colonne A j'ai également des référence.

J'aimerais un moyen pour que lorsque une référence de la feuille 3 4 ou 5 ne soit pas dans la feuille 1, la ligne complete de cette référence soit coupée/collée dans les feuilles 6 7 ou 8

(3 -> 6 / 4 -> 7 ...)

Si je ne suis pas assez clair n'hésitez pas à me le dire...

Merci d'avance
Merci d'avance