XL 2010 Pop-up: remplir case en conservant 5 premieres chiffres deja présents

[Marie123]

Bonjour à tous

Je découvre les pop-up avec VBA et j'ai besoin de votre aide.
J'ai crée une pop-up pour remplir une cellule, jusque ici tout va bien

Par contre, j'aimerai que ce que je rempli dans la pop-up remplisse la cellule E8, mais en conservant les 5 premiers caractères (TP14-) déjà présents dans cette cellule.

Voici ma formule VBA actuelle:

Sub Autpen()
nom = InputBox("Quel est le numéro de l'affaire (sans le TP14-)?", "Votre nom")
Range("e8").Value = nom
End Sub

Que rajouter svp?

Merci et passez de bonnes fêtes de fin d'année

 

[sylvanu]

Bonjour Marie,
Testez ceci :

Sub Auto_Open()
    nom = InputBox("Quel est le numéro de l'affaire (sans le TP14-)?", "Votre nom")
    [E8] = Left([E8], 5) & nom
End Sub

(NB: [E8] c'est pareil que Range("E8") ... en plus court )

 

[Marie123]

Bonjour Sylvanu,

Merci, c'est exactement ce dont j'avais besoin!!

Merci infiniment et bonne année

 

[sylvanu]

Ou plus simplement [E8]=[E8] & nom si dans E8 il n'y a que TP14-
Ou encore au vu du contenu du popup : [E8]="TP14-" & nom