Incrémenter une chaine de caractère

fleet21 · 20 Octobre 2016

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 · 20 Octobre 2016

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

Code:

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 · 20 Octobre 2016

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

fleet21 · 20 Octobre 2016

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

fleet21 · 20 Octobre 2016

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

Lolote83 · 20 Octobre 2016

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 · 20 Octobre 2016

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 .

Incrémenter une chaine de caractère

fleet21

XLDnaute Junior

Lolote83

XLDnaute Barbatruc

fleet21

XLDnaute Junior

fleet21

XLDnaute Junior

fleet21

XLDnaute Junior

Lolote83

XLDnaute Barbatruc

fleet21

XLDnaute Junior

Discussions similaires