Bouton qui ajouter un -i a une cellule ( i = nombre entier) [Résolu/Fermé]

Signaler
-
 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

Messages postés
14934
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 256
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
Bonjour,
Merci beaucoup cela marche parfaitement.
Bonne journée.
Philippe.