Discussion :

[laetitia]

re,essai comme cela si j'ai compris j' ai pas simplifier!!

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
Sub Test()
Dim f As Range, c As Variant
Application.ScreenUpdating = False
Sheets("Tableau").Activate
With Sheets("Detail")
For Each c In .Range("a7:a" & .Range("a65000").End(xlUp).Row)
Set f = Sheets("Tableau").Range("f2:f" & Range("f65000").End(xlUp).Row).Find(c, LookIn:=xlValues, LookAt:=xlWhole)
If Not f Is Nothing Then
Rows(f.Row + 1).Insert Shift:=xlDown
Cells(f.Row + 1, 1).Select
Cells(f.Row + 1, 2) = Sheets("Detail").Range("a" & c.Row)
Cells(f.Row + 1, 4) = Sheets("Detail").Range("b" & c.Row)
Cells(f.Row + 1, 6) = Sheets("Detail").Range("c" & c.Row)
Cells(f.Row + 1, 9) = Sheets("Detail").Range("d" & c.Row)
Cells(f.Row + 1, 10) = Sheets("Detail").Range("e" & c.Row)
End If: Next: End With
End Sub

[joums]

C'est quasiment ca,
il y a juste le "code5" qui doit être soit dans la colonne I si = D et colonne J si=C

Peux tu m'expliquer le code que tu as écrit, je ne veux pas recopier "bêtement" le code mais aussi le comprendre

Peux t-on mettre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
If Sheets("Detail").Range("e" & c.Row) ="C" then
Cells(f.Row + 1, 9) = Sheets("Detail").Range("e" & c.Row)
Elseif 
Cells(f.Row + 1, 10) = Sheets("Detail").Range("e" & c.Row)

Encore Merci

[laetitia]

re , maintemant j' ai plus le temps je ferais la modif en fin d'apres midi plus explications que tu demande a+

[joums]

ok biensur je comprends
j'essaie de me dépatouiller,
merci
@+

[laetitia]

re, j'ai trouve 2 minutes j' ai supprimer le dessert

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 Test()
Dim f As Range, c As Variant
Application.ScreenUpdating = False
Sheets("Tableau").Activate
With Sheets("Detail")
For Each c In .Range("a7:a" & .Range("a65000").End(xlUp).Row)
Set f = Sheets("Tableau").Range("f2:f" & Range("f65000").End(xlUp).Row).Find(c, LookIn:=xlValues, LookAt:=xlWhole)
If Not f Is Nothing Then
Rows(f.Row + 1).Insert Shift:=xlDown
Cells(f.Row + 1, 2) = Sheets("Detail").Range("a" & c.Row)
Cells(f.Row + 1, 4) = Sheets("Detail").Range("b" & c.Row)
Cells(f.Row + 1, 6) = Sheets("Detail").Range("c" & c.Row)
If Sheets("Detail").Range("e" & c.Row) = "D" Then
Cells(f.Row + 1, 9) = Sheets("Detail").Range("e" & c.Row)
Else
Cells(f.Row + 1, 10) = Sheets("Detail").Range("e" & c.Row)
End If: End If: Next: End With
End Sub

je boucle sur la feuille "detail" de a7 a la derniere non vide

dans l'ex on cherche voiture
je cherche sur la feuil tableau si une donnee correspond

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set f = Sheets("Tableau").Range("f2:f" & Range("f65000").End(xlUp).Row).Find(c, LookIn:=xlValues, LookAt:=xlWhole)

si ok j'insere une ligne puis copy
de nouveau voiture
insere une ligne puis copy


comme tu le dit find =variable vu qu'on insérent des lignes
nouvelle recherche
colonne f3,f4,ect jusque qu'il trouve une autre donnee dans l'exemple quad qui va se trouver en f9 ect...

[joums]

Merci d'avoir trouver du temps pour me répondre, et pas seulement ces 2 min à la place du dessert...


J'ai bien compris la 1ere partie de la macro
La 2è partie est un peu plus obscure car je connaissait pas cette méthode

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Rows(f.Row + 1).Insert Shift:=xlDown

Ni

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cells(f.Row + 1, 2) = Sheets("Detail").Range("a" & c.Row)

Encore merci à tous ceux qui ont particpé ( laëtitia)
En espérant que ca puisse aider d'autre personne
A bientôt