Microsoft 365 Copier Feuille Macro en effaçant une plage de cellules

wiwi520 · 6 Avril 2020

Bonjour,

Besoin d'un code please.
J'ai une feuille contenant des macros que j'ai renommé "Passe 1". Je souhaiterais dans la même feuille créer une autre commande macro qui permet de copier/dupliquer automatiquement toutes les données (Et les macros) dans la nouvelle feuille " Passe 2" tout en effaçant les données de la plage B13100. En gros les données se trouvant dans la plage B13100 doivent juste être effacées dans la feuille "Passe 2" et non dans la "Passe 1". Cette plage je la remplirais manuellement.
Et ensuite dans la "Passe 2", une fois que j'aurais rempli la plage, activer la macro "copier/dupliquer" pour créer une nouvelle feuille "passe 3" avec le contenu de la même plage B13100 effacé dans la feuille passe 3.... et ainsi de suite jusqu'à Passe 40.
Je ne sais pas si j'ai été assez claire, mais mon niveau en VBA est égale à 0.

Merci de votre aide

wiwi520 · 6 Avril 2020

Plage B13 : D 100

sousou · 6 Avril 2020

Bonsoir.
Sans fichier peu de salut!

wiwi520 · 6 Avril 2020

sousou à dit:
Bonsoir.
Sans fichier peu de salut!

Bonsoir,
Evidemment c'est plus simple avec le fichier. Je le mets en PJ

sousou · 7 Avril 2020

Bonjour.
Si tu ne souhaites pas garder les données.
Sub copiefeuille()
With Sheets("passe 1")
Set zone = .Range("b3:d100")
zone.ClearContents
.Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = "Passe " & Sheets.Count
End With

End Sub
Si tu souhaites les garder,
Sub copiefeuille()
With Sheets("passe 1")
Set zone = .Range("b3:d100")
zone.ClearContents
.Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = "Passe " & Sheets.Count
Set zone = activesheet.Range("b3:d100")
zone.ClearContents
End With

End Sub
A suivre, mais tu as des données après la ligne 100?

wiwi520 · 7 Avril 2020

sousou à dit:
Bonjour.
Si tu ne souhaites pas garder les données.
Sub copiefeuille()
With Sheets("passe 1")
Set zone = .Range("b3:d100")
zone.ClearContents
.Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = "Passe " & Sheets.Count
End With

End Sub
Si tu souhaites les garder,
Sub copiefeuille()
With Sheets("passe 1")
Set zone = .Range("b3:d100")
zone.ClearContents
.Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = "Passe " & Sheets.Count
Set zone = activesheet.Range("b3:d100")
zone.ClearContents
End With

End Sub
A suivre, mais tu as des données après la ligne 100?

Bonjour,

Le code que tu m'as filé marche super bien. Merci beaucoup tu es au top.
Non je n'ai pas de ligne après 100. J'imagine que si j'avais plus de 100 lignes, 150 par exemple je remplacerais le 100 du code par 150?

sousou · 7 Avril 2020

Re
Et si ,tu as des données jusqu'a la ligne 712 supprime tes volets pour voir.
Si non ta réponse est bonnes, mais tu pourrais aussi ne pas connaître la fin de test données,!

Microsoft 365 Copier Feuille Macro en effaçant une plage de cellules

wiwi520

XLDnaute Nouveau

wiwi520

XLDnaute Nouveau

sousou

XLDnaute Barbatruc

wiwi520

XLDnaute Nouveau

Pièces jointes

sousou

XLDnaute Barbatruc

wiwi520

XLDnaute Nouveau

sousou

XLDnaute Barbatruc

Discussions similaires