Incrémenter une chaine de caractère

[fleet21]

Bonjour à tous,

Le but de ma macro est de scanner tous les numéros d’une série dans un fichier txt. Je dispose donc d’une chaine de caractère du type MM1234R80001, stockée dans une variable ’’ns’’ saisie en inputbox en début de macro.

Ma problèmatique est d’agir directement sur la valeur de la variable ’’ns’’ en l’incrémentant par pas de 1 : MM1234R80001 à MM1234R80002 et ainsi de suite (le dernier numéro en cours sera détecté par la macro).

Quel commande utilisée pour passer de MM1234R80001 à MM1234R80002 ?

Je n’ai pas de début de macro pour cette étape puisque je ne sais pas trop comment m’y prendre et les commandes à utiliser.

Merci

 

[Lolote83]

Salut Fleet21,
Il te faut donc récupérer le dernier caractère de ta variable NS.
En imaginant que la variable NS soit en cellule D9

Sub Test()
    NS = [D9]
    xDerCar = Val(Right(NS, 1))
    xDébutNS = "MM1234R8000"
    xIncrement = xDerCar + 1
    NS = NS & xDébutNS & xIncrement
    [D9] = NS
End Sub

Voili voilà, si j'ai bien compris
@+ Lolote83

 

[fleet21]

Tu as effectivement bien compris ma demande .
Par contre en incrémentant ns prend la valeur MM1234R80001MM1234R80002 alors qu'il faudrait seulement MM1234R80002.

 

[fleet21]

Je viens de trouver la solution : remplacer ns = ns & xDébutNS & xIncrement par ns = xDébutNS & xIncrement

 

[fleet21]

le sujet est clos merci à lolote83 comment fais t'on pour clore un sujet ?

 

[Lolote83]

Re salut,
Pour clore, je crois qu'il faut que tu tre connectes et et tu reprennes l'intitulé de la demande et inscrire RESOLU, ce qui donnerait : (RESOLU) Incrémenter une chaine de caractère
Sinon, je ne vois pas
@+ Lolote83

 

[fleet21]

je viens de regarder plusieurs posts et pas de RESOLU, je laisse comme ça pour l'instant on viendra surement me contacter si il manque quelquechose .