Copie d'une feuille sur une autre dans meme classeur.

[yves03]

Bonjour à tous,

J'ai un fichier avec 2 feuilles "Inventaire" et "Movex", avec une macro qui me recopie les quantitées de la colonne E (Feuille Inventaire) vers la colonne F (Feuille Movex).
Par contre si ma référence n'existe pas (Colonne A feuille Movex) , evidemment la macro ne copie rien.

J'aimerais, si c'est possible !
Pouvoir copier la reference (Colonne B feuille Inventaire) avec sa quantité(Colonne E feuille Inventaire) vers la feuille "Movex", si celle ci n'existe pas, mais uniquement si une quantité est renseignée.

Pour que ce soit plus clair, regarder au bas de la feuille "inventaire" il y a des réferences qui n'existent pas dans la feuille "Movex", j'aimerais que la macro les copies à la suite des autres.

Je vous joint l'exemple.
Merci d'avance

 

[kjin]

Re : Copie d'une feuille sur une autre dans meme classeur.

Bonsoir,
Un essai à adapter
A+
kjin

 

[yves03]

Re : Copie d'une feuille sur une autre dans meme classeur.

Merci ça fonctionne bien.
Est il possible que les references qui sont rajoutées soient mis en Rouge
Merci beaucoup de votre aide.

 

[kjin]

Re : Copie d'une feuille sur une autre dans meme classeur.

Re,
Insere les lignes bleues dans la macro

...
Derlign = .Range("A2").End(xlDown).Row + 1
.Cells(Derlign, 1) = Sheets("Inventaire").Cells(i, 2)
.Cells(Derlign, 1).Font.ColorIndex = 3
.Cells(Derlign, 2) = Sheets("Inventaire").Cells(i, 3)
.Cells(Derlign, 2).Font.ColorIndex = 3
.Cells(Derlign, 6) = Sheets("Inventaire").Cells(i, 5)
.Cells(Derlign, 6).Font.ColorIndex = 3
...

A+
kjin

 

[yves03]

Re : Copie d'une feuille sur une autre dans meme classeur.

Merci, vraiment sympa.
J'ai encore une petite question, si je peux abuser 😱
Il faudrait que lorsque les lignes s'ecrivent en fin de colonne , elles repoussent les autres, car j'ai un tableau apres et ça empiete dessus.
Merci pour tout

 

[kjin]

Re : Copie d'une feuille sur une autre dans meme classeur.

Re,
Du coup ça donne ça

Sub RecopieMovex()
With Sheets("Movex")
Set plage = .Range("A2:A" & .Range("A2").End(xlDown).Row)
For i = 2 To Range("A65000").End(xlUp).Row
If Cells(i, 5) <> "" Then
Set C = plage.Find(Cells(i, 2).Value)
If Not C Is Nothing Then
C.Offset(0, 5).Value = Cells(i, 5).Value
Else
Derlign = .Range("A2").End(xlDown).Row + 1
.Rows(Derlign).Insert Shift:=xlShiftDown
.Cells(Derlign, 1) = Sheets("Inventaire").Cells(i, 2)
.Cells(Derlign, 1).Font.ColorIndex = 3
.Cells(Derlign, 2) = Sheets("Inventaire").Cells(i, 3)
.Cells(Derlign, 2).Font.ColorIndex = 3
.Cells(Derlign, 6) = Sheets("Inventaire").Cells(i, 5)
.Cells(Derlign, 6).Font.ColorIndex = 3
End If
End If
Next
With .Columns(6)
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.Font.Bold = True
End With
End With

End Sub

A+
kjin

 

[yves03]

Re : Copie d'une feuille sur une autre dans meme classeur.

C'est PARFAIT
Je te remercie beaucoup pour ton aide.
A bientot
😉