Macro copie de 2 feuilles sélectionnées

[Christophe]

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

 

[myDearFriend]

Bonsoir Christophe,

Peut-être peux-tu essayer ça :

Sub CopiesAgogo2()
Dim Repet As Integer, i As Integer
Dim SelSh As Variant

Set SelSh = ThisWorkbook.Windows(1).SelectedSheets

Repet = Application.InputBox("Combien voulez-vous de copies?", Type:=1)
For i = 1 To Repet
SelSh.Copy after:=Sheets(Sheets.Count)
Next i
End Sub


Ca fera la copie des feuilles sélectionnées (quelque soit leur nombre) en fin de classeur.

Cordialement,
Didier_mDF

 

[Christophe]

bonjour didier
C'est nickel, ça fontionne très bien qq soit le nombre de feuilles
Vraiment sympa ce forum 🙂
Merci de ta réponse rapide, car je devais régler ça aujourd'hui avant mon départ en congés : double remerciement 🙂
Christophe