Discussion :

[Dubbleu]

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

[EngueEngue]

Supposant que tu as des entêtes dans des feuilles

Navré, je me suis trompé dans ma syntaxe

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).cells(rows.count,"A").end(xlup).row
For i = 2 to sheets(1).cells(rows.count,"E").end(xlup).row
if Sheets(j).cells(k,1)=Sheets(1).cells(i,1)
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

[Dubbleu]

hey

j'ai des entetes en effet par contre, impossible de compiler. erreur de syntaxe

du coup j'ai ajouté un To mais pour le if je vois pas

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
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("A" & Rows.Count).End(xlUp).Row
        For i = 2 To Sheets(1).Range("E" & Rows.Count).End(xlUp).Row
 
if Sheets(j).cells(k,1)=Sheets(1).cells(i,1)
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

[nibledispo]

bonjour,

Il manque un then dans ton if.
Par ailleurs, n'est-ce pas plutôt "exit for" et non "next k" que tu veux faire. Ce dernier est de toute façon rejeté avec le message "next sans for".

cordialement.

[Dubbleu]

c'est bon tout est reglé merci