Bonjour,
Qq membres de ce forum m'avait aidé, y'a une quinzaine pour une macro activant une boite de dialogue permettant de choisir le nombre de copies souhaitées pour une feuille sélectionnée...voir ci-dessous
Sub CopiesAgogo()
Dim Repet%, NbFeuille%, i%
NbFeuille = ActiveSheet.Index
Repet = Application.InputBox("Combien voulez-vous de copies?", Type:=1)
For i = 1 To Repet
Sheets(NbFeuille).Copy Before:=Sheets(NbFeuille + i)
Next
End Sub
Elle marche nickel, mais bon les utilisateurs à qui j'vais proposé ça en veulent tjrs plus. Il s'agit maintenant de copier " 2 feuilles sélectionnées", j'ai essayé en sélectionant manuellement les feuilles , mais la macro ne fonctionne que pour la 1er sélectionnée...
1- Serait il possible à partir de 2 feuilles sélectionnées, d'avoir des copies (tjrs à travers la boite)
2 - Autres contraintes : les copies doivent se suivre
Ex : feuille "ctv",feuille "projet" doivent donner ds le cas d'une copie :
feuille "ctv",feuille "projet", feuille "ctv1",feuille "projet1".
.et non pas
feuille "ctv",feuilles "ctv1",feuille "projet", feuille "projet1"
Merci d'avance à tous pour votre aide
Christophe