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