Bouton qui ajouter un -i a une cellule ( i = nombre entier)

Résolu
philippe -  
 philippe -
Bonjour,
Je dispose d'un fichier avec une macro, qui créée un nouvel onglet à partir du nom d'une cellule lorsque j'appuie sur un bouton.
Par exemple il est écrit dans ma cellule A1 "123" , lorsque j'appuie sur le bouton il me créée un nouvel onglet qui porte le nom "123".
Voici mon problème : j'aimerais que lorsque j'appuie sur le bouton, la cellule A1 se transforme en "123-2" et si je réappui à nouveau elle se transforme en "123-3" et ainsi de suite.
Merci à ceux qui prendront le temps de m'aider.


1 réponse

Réponse 1 / 1
gbinforme Messages postés 14946 Date d'inscription   Statut Contributeur Dernière intervention   4 724
 
Bonjour,

En rajoutant ces instructions, cela devrait le faire : 
Dim pos As Integer
pos = InStr(1, [A1].Value, "-")
If pos Then
    [A1].Value = Left([A1].Value, pos - 1) & "-" & Mid([A1].Value, pos + 1) + 1
Else
    [A1].Value = [A1].Value & "-2"
End If
0
philippe
 
Bonjour,
Merci beaucoup cela marche parfaitement.
Bonne journée.
Philippe.
0

Discussions similaires

Bouton ON OFF, O ou I ?
Stargirlfr -
kaparzo23 -

12 réponses
symbole arrêt marche
strumpfi -
Raymond PENTIER -

2 réponses
i tréma
Anonyme -
Anonyme -

6 réponses
Comment écrire le symbole On/Off
strumpfi -
brucine -

3 réponses
les 2 petits points sur le e ou sur le i
mimjca -
mimjca -

2 réponses