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

Question

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.


Configuration: Windows 7 / Firefox 47.0

gbinforme · Answer

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

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

1 réponse

Discussions similaires