Problème de syntaxe

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:

---

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

Citation:

---

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

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

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 To 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 GoTo ici   End If Next i Sheets(j + 3).Cells(l, 1) = Sheets(j).Cells(k, 1) l = l + 1 ici: Next k Next j End Sub

---

merci ! j'ai plus d'erreur de syntaxe

Par contre le code marche pas :(

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

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 To 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, 5) Then GoTo ici   End If Next i Sheets(j + 3).Cells(l, 1) = Sheets(j).Cells(k, 1) l = l + 1 ici: Next k Next j End Sub

---

arf toujours pas...
je te mets l'excel dans un ZIP

ta macros est dans le module 7

si ca peut aider

bonjour,

Dubbleu: Pour un meilleur suivi, merci à l'avenir de ne pas changer l'intitulé de ta question pour le même problème.

"par contre le code ne marche pas". Qu'est-ce qui ne marche pas ? Il ne fait rien de ce que tu souhaites? Il fait des choses inattendues ?

EngueEngue : je ne vois pas de différence entre ton avant dernière proposition et la dernière. Sont-ce mes yeux qui me trahissent ?

Cordialement.

Bonjour. désolé du changement d'intitulé.
Le code ne semble pas s’exécuter. il ne coupe ni ne colle aucune ligne...
(hormis trois cellules qui sont copiées)

Le code marche très bien mais ta feuille 3 4 et 5 n'avient pas d'entêtes..

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Sub refer() Dim i As Long, k As Long, l As Long Dim j As Integer application.screenupdating=false l = 2 For j = 3 To 5 For k = 2 To Sheets(j).Range("A2").End(xlDown).Row For i = 2 To Sheets(1).Range("E1").End(xlDown).Row If Sheets(j).Cells(k, 1) = Sheets(1).Cells(i, 5) Then GoTo ici   End If Next i Sheets(j + 3).Cells(l, 1) = Sheets(j).Cells(k, 1) Sheets(j + 3).Cells(l, 2) = Sheets(j).Cells(k, 2) l = l + 1 ici: Next k l = 2 Next j application.screenupdating=true End Sub

---

Citation:

---

Envoyé par nibledispo

bonjour,
EngueEngue : je ne vois pas de différence entre ton avant dernière proposition et la dernière. Sont-ce mes yeux qui me trahissent ?
Cordialement.

---

Tes yeux te trahissent dans le if je regarde la colonne 5

bonjour après vérification.
La macro ne coupe/colle pas la ligne mais la copie/colle
autre soucis, la macro ne s'applique que sur la cellule contenant la ref et non sur la ligne complete...

du coup jui un peu perdu :D

Vos désirs sont des ordres

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

Sub refer() Dim i As Long, k As Long, l As Long Dim j As Integer application.screenupdating=false l = 2 For j = 3 To 5 For k = 2 To Sheets(j).Range("A2").End(xlDown).Row For i = 2 To Sheets(1).Range("E1").End(xlDown).Row If Sheets(j).Cells(k, 1) = Sheets(1).Cells(i, 5) Then GoTo ici   End If Next i Sheets(j + 3).Cells(l, 1) = Sheets(j).Cells(k, 1) Sheets(j + 3).Cells(l, 2) = Sheets(j).Cells(k, 2) Sheets(j).Cells(k, 1)="" Sheets(j).Cells(k, 2)="" l = l + 1 ici: Next k l = 2 Next j application.screenupdating=true End Sub

---

Alors la !
Je ne vais pas faire une déclaration d'amour mais presque !

Un immense merci
ca fait un bon moment que je galère avec ces EXCEL et comme je commence en VBA...

Un immense merci c'est parfait

Heureusement, je préfère les gonzesses!

Moi aussi :D