Incertion de Zero dans une macro

[rchristian]

Bonjour,

J'ai dans un fichier Excel un feuille model que je veux recopier j'ai la macro suivante :

Sub InsertFeuille()
'Déclaration des variables

Dim MyValue As Variant, nfeuil, I, NomFeuil, MyValue1

MyValue1 = "001"
For I = 1 To 10

ActiveSheet.Copy after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = "M3PlaceC" & MyValue
ActiveSheet.Range("S2") = "C" & MyValue1

MyValue1 = MyValue1 + 1

Next I

End Sub


je veux nommer la nouvelle feuille de la manière suivante :
M3Place001, M3Place002, M3Place003, ...
Mais si je met MyValue1 à "001" je ne peux l'incrementé.

Merci pour votre aide.

 

[vbacrumble]

Re : Incertion de Zero dans une macro

Bonsoir


Essayes avec cette macro

Sub InsertFeuille()
'Déclaration des variables
Dim I As Long
For I = 1 To 10
    With ActiveSheet
        .Copy after:=Worksheets(Worksheets.Count)
        .Name = "M3PlaceC" & Format(I, "000")
        .Range("S2") = "C" & Format(I, "000")
    End With
    Next I
End Sub

A+

 

[rchristian]

Re : Incertion de Zero dans une macro

Merci pour la réponse
A+
Christian