Discussion :

[Dubbleu]

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

[EngueEngue]

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
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

[Dubbleu]

merci ! j'ai plus d'erreur de syntaxe

Par contre le code marche pas

[EngueEngue]

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
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

[Dubbleu]

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

ta macros est dans le module 7

si ca peut aider

[EngueEngue]

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

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
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

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

[nibledispo]

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.

[Dubbleu]

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)

[Dubbleu]

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