ajoutter et renommer une feuille en passant par une inputbox

[BBmarcus]

Bonjour à tous ! !

hier déjà je vous demandait de m'aider afin d'effectuer un rajout de feuille en passant par une inputbox.

J'avait oublié de vous demander s'il existe une méthode pour nommer ces feuilles (copies d'une feuille servant de matrice) dans la même msgbox genre:
nbre de participant ? on note 2
message suivant: notez leur nom: N°1 untel....

Merci pour votre aide

BBmarcus

 

[creepy]

Bonjour à Toutes & tous

BBmarcus voici ton code
A chaque passage le prog te demanderas quel nom tu veux donner à la feuille.

Dim NBPaticipant As Integer
Dim Qui As String
NBPaticipant = InputBox("Nombre de participants ???")

For i = 1 To NBPaticipant
Qui = InputBox("Nom du particiapant N°" & i & " ??")
ActiveWorkbook.Sheets("lenomdetafeuille").Copy After:=Worksheets(Worksheets.Count)
ActiveSheet.Name = Qui
Next i
End Sub

Ps : Je ne gère pas les erreurs comme par exemple deux feuilles avec un nom identique.

++

Creepy

 

[BBmarcus]

Merci pour m'avoir accordé du temps Creepy, c'est exactement ca que je cherchais....

Grace à tout vos bons conseils, je me perfectionne progressivement
@+ sur le forum !

BBmarcus