INCREMENTER UNE FEUILLE EN FCN D UN TEXTBOX

Bonjour Peace, bonjour le forum,

Désolé mais j'ai pas bien compris ce que tu voulais exactement. Qu'est-ce que tu entends par incrémenter une feuille ? Est-ce que tu désires ajouter +1 à toutes les valeurs de cette feuille ou plus simplement rajouter un onglet nommé de la valeur du TextBox6 (DURAND dans ton exemple) à ton classeur ?
Si tu souhaites rajouter cette feuille, où ? au début, à la fin, avant la feuille active, après la feuille active ?
Ci dessous le code pour rajouter une feuille à la fin si ça peut te dépanner :

Dim x As Byte 'déclare la variable x

'évite le bug si le nom existe déjà
For x = 1 To Sheets.Count 'boucle sur tous les onglets du classeur
'si l'onglet existe déjà, sort de la peocédure
If Sheets(x).Name = UserForm2.TextBox6.Value Then Exit Sub
Next x 'prochain onglet du classeur

If UserForm2.TextBox6.Value <> '' Then 'condition : si le textbox6 n'est pas vide
Sheets.Add 'ajoute un onglet
ActiveSheet.Name = UserForm2.TextBox6.Value 'le nomme
ActiveSheet.Move After:=Sheets(Sheets.Count) 'le place en fin de classeur
End If 'fin de la condition

Cliquez pour agrandir...

Bonjour,

Merci pour ta réponse pour la création de l'onglet j'ai déja la solution. Ce qui m'intéressais . La même chose avec un autre nom sur un autre onglet à ce nom. Mais à chaque fois cela n'est possible que si l'onglet a été créé au préalable. (cette dernière partie j'ai le code).

Je suis désolé de ne pouvoir envoyer mon exemple mais je n'arrve pas à comprimer suffisamment mon fichier pour qu'il rentre sur le forum.

Merci quand même

A bientôt sur le forum

Cordialement

Peace B)

Re bonjour

C'est ce que je vais faire dès que j'ai 5 minutes. Merci quand même

@ +

Peace