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

[wiwi520]

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 B13😀100. En gros les données se trouvant dans la plage B13😀100 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 B13😀100 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]

Plage B13 : D 100

 

[sousou]

Bonsoir.
Sans fichier peu de salut!

 

[wiwi520]

Bonsoir.
Sans fichier peu de salut!

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

 

[sousou]

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]

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]

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,!