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

yves03 · 30 Août 2008

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 · 30 Août 2008

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

Bonsoir,
Un essai à adapter
A+
kjin

yves03 · 30 Août 2008

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 · 30 Août 2008

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 · 30 Août 2008

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 · 30 Août 2008

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 · 30 Août 2008

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

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

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

yves03

XLDnaute Occasionnel

Pièces jointes

kjin

XLDnaute Barbatruc

Pièces jointes

yves03

XLDnaute Occasionnel

kjin

XLDnaute Barbatruc

yves03

XLDnaute Occasionnel

kjin

XLDnaute Barbatruc

yves03

XLDnaute Occasionnel

Discussions similaires

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

yves03

XLDnaute Occasionnel

Pièces jointes

kjin

XLDnaute Barbatruc

Pièces jointes

yves03

XLDnaute Occasionnel

kjin

XLDnaute Barbatruc

yves03

XLDnaute Occasionnel

kjin

XLDnaute Barbatruc

yves03

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency