Je souhaite dulpiquer un onglet r=E9f=E9rentiel x fois dans=20
une feuille de calcul. Pour ce faire, j'utilise le code=20
suivant :
Sub NomFeuil()
For I =3D 1 To 65
ActiveWorkbook.Sheets.Add after:=3DWorksheets
(Worksheets.Count)
Next I
End Sub
Cependant, je voudrais donner le meme nom plus un num=E9ro=20
incr=E9mental =E0 chaque onglet et que cela se r=E9p=E8te autant=20
de fois que le nombre d'onglet, Ex : Show 01, Show 02 etc.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Ellimac
Bonjour,
Sub NomFeuil() For i = 1 To 65 ActiveWorkbook.Sheets.Add after:=Worksheets (Worksheets.Count) ActiveSheet.Name = "Show " & Format(i, "00") Next i End Sub
Camille
-----Message d'origine----- Bonjour,
Je souhaite dulpiquer un onglet référentiel x fois dans une feuille de calcul. Pour ce faire, j'utilise le code suivant :
Sub NomFeuil() For I = 1 To 65 ActiveWorkbook.Sheets.Add after:=Worksheets (Worksheets.Count) Next I End Sub
Cependant, je voudrais donner le meme nom plus un numéro incrémental à chaque onglet et que cela se répète autant de fois que le nombre d'onglet, Ex : Show 01, Show 02 etc.
D'avance merci à qui pourra me dépanner.
Bien cordialement, .
Bonjour,
Sub NomFeuil()
For i = 1 To 65
ActiveWorkbook.Sheets.Add after:=Worksheets
(Worksheets.Count)
ActiveSheet.Name = "Show " & Format(i, "00")
Next i
End Sub
Camille
-----Message d'origine-----
Bonjour,
Je souhaite dulpiquer un onglet référentiel x fois dans
une feuille de calcul. Pour ce faire, j'utilise le code
suivant :
Sub NomFeuil()
For I = 1 To 65
ActiveWorkbook.Sheets.Add after:=Worksheets
(Worksheets.Count)
Next I
End Sub
Cependant, je voudrais donner le meme nom plus un numéro
incrémental à chaque onglet et que cela se répète autant
de fois que le nombre d'onglet, Ex : Show 01, Show 02 etc.
Sub NomFeuil() For i = 1 To 65 ActiveWorkbook.Sheets.Add after:=Worksheets (Worksheets.Count) ActiveSheet.Name = "Show " & Format(i, "00") Next i End Sub
Camille
-----Message d'origine----- Bonjour,
Je souhaite dulpiquer un onglet référentiel x fois dans une feuille de calcul. Pour ce faire, j'utilise le code suivant :
Sub NomFeuil() For I = 1 To 65 ActiveWorkbook.Sheets.Add after:=Worksheets (Worksheets.Count) Next I End Sub
Cependant, je voudrais donner le meme nom plus un numéro incrémental à chaque onglet et que cela se répète autant de fois que le nombre d'onglet, Ex : Show 01, Show 02 etc.
D'avance merci à qui pourra me dépanner.
Bien cordialement, .
Régis
Merci bcp pour ta réponse.
Bien cordialement,
-----Message d'origine----- Bonjour,
Sub NomFeuil() For i = 1 To 65 ActiveWorkbook.Sheets.Add after:=Worksheets (Worksheets.Count) ActiveSheet.Name = "Show " & Format(i, "00") Next i End Sub
Camille
-----Message d'origine----- Bonjour,
Je souhaite dulpiquer un onglet référentiel x fois dans une feuille de calcul. Pour ce faire, j'utilise le code suivant :
Sub NomFeuil() For I = 1 To 65 ActiveWorkbook.Sheets.Add after:=Worksheets (Worksheets.Count) Next I End Sub
Cependant, je voudrais donner le meme nom plus un numéro incrémental à chaque onglet et que cela se répète autant de fois que le nombre d'onglet, Ex : Show 01, Show 02 etc.
D'avance merci à qui pourra me dépanner.
Bien cordialement, .
.
Merci bcp pour ta réponse.
Bien cordialement,
-----Message d'origine-----
Bonjour,
Sub NomFeuil()
For i = 1 To 65
ActiveWorkbook.Sheets.Add after:=Worksheets
(Worksheets.Count)
ActiveSheet.Name = "Show " & Format(i, "00")
Next i
End Sub
Camille
-----Message d'origine-----
Bonjour,
Je souhaite dulpiquer un onglet référentiel x fois dans
une feuille de calcul. Pour ce faire, j'utilise le code
suivant :
Sub NomFeuil()
For I = 1 To 65
ActiveWorkbook.Sheets.Add after:=Worksheets
(Worksheets.Count)
Next I
End Sub
Cependant, je voudrais donner le meme nom plus un numéro
incrémental à chaque onglet et que cela se répète autant
de fois que le nombre d'onglet, Ex : Show 01, Show 02
etc.
Sub NomFeuil() For i = 1 To 65 ActiveWorkbook.Sheets.Add after:=Worksheets (Worksheets.Count) ActiveSheet.Name = "Show " & Format(i, "00") Next i End Sub
Camille
-----Message d'origine----- Bonjour,
Je souhaite dulpiquer un onglet référentiel x fois dans une feuille de calcul. Pour ce faire, j'utilise le code suivant :
Sub NomFeuil() For I = 1 To 65 ActiveWorkbook.Sheets.Add after:=Worksheets (Worksheets.Count) Next I End Sub
Cependant, je voudrais donner le meme nom plus un numéro incrémental à chaque onglet et que cela se répète autant de fois que le nombre d'onglet, Ex : Show 01, Show 02 etc.
