Auto incrémenter un label sur evenement clique

Bonjour à tous,

Donc j'aurais voulu savoir comment faire pour qu'un label ou textbox soit auto-incrémenter lorsque je clique sur un bouton "suivant"..

Merci à tous

Bonjour,

un code a placer dans un module

Voir fichier joint

amicalement

Pierrot

Sub Nouveau_Bon()
    I = Sheets.Count

      Sheets("Bon 1").Copy after:=Sheets(Sheets.Count)

      With ActiveSheet
        .Name = "Bon " & I + 1
        .Shapes("ZoneTexte 3").Delete
      End With

    End Sub

Bonjour Pierrot,

Merci de votre réponse, mais cela ne correspond pas a ce que je souhaite, je me suis peut être mal expliqué,

En faite, j'ai un tableau excel accompagné d'un USF, cette USF comprend plusieur controle dont un Label nommé N° fiche ANFM, dessous y est placé une TextBox, je voudrais que celle ci soit en auto-incrément, du style 1, 2 etc.... et ce lorsque je clique sur mon bouton "nouveau défaut"

Merci pour votre aide

Bonsoir, cco86260

votre demande dépasse mes compétences.

Postez un fichier exemple sur le forum et peut-être aurez-vous plus de chances.

Pierrot