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

Résolu/Fermé
philippe - 29 juil. 2016 à 08:45
 philippe - 29 juil. 2016 à 09:08
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.


A voir également:

1 réponse

gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 684
29 juil. 2016 à 09:02
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
Bonjour,
Merci beaucoup cela marche parfaitement.
Bonne journée.
Philippe.
0