Aide incrementation

[washkalrabdi]

Bonjour a tous,

J'ai un problem de code concernant une macro, le but est d'incrementer une colonne en fonction d'une valeur entrée en A2 via une inputbox.
Je ne suis plus tres loin mais je bloque sur la formule d'incrementation....

Voici mon debut de code

L’idée est de poser une question avec valeur à rentrer dans la cellule A2 commancant par PSS- et un nombre
Puis de incrémenter ce nombre dans la colonne A jusqu’a la dernière ligne de la colonne B en augmentant le nombre de 1 a chaque cellule.

Pour l’instant j’ai un probleme de valeur je ne peu pas ajouter 1 car je ne travail pas avec des chiffres.

J’espere avoir été assez clair…Merci de votre aide


Voice mon code

Windows("HSSXXX_combi1.xls").Activate
Sheets("Enumeration 4").Select
Message = InputBox("Enter the first PSS ID for this Library", "PSS ", "PSS-")
If Message = "" Then Exit Sub
Range("A2").Value = Message

nbLignes = Columns("B:B").Find("*", Range("B1"), , , xlByRows, xlPrevious).Row
Range("A3:A" & nbLignes).Formula = "=(A2+1)"

Columns("A:A").EntireColumn.AutoFit

J’espere avoir été assez clair…Merci de votre aide

 

[job75]

Re : Aide incrementation

Bonjour,

Le bon code pour entrer la formule d'incréméntation :

Range("A3:A" & nbLignes).FormulaR1C1 = "=R[-1]C+1"

Maintenant pas compris ceci :

Pour l’instant j’ai un probleme de valeur je ne peu pas ajouter 1 car je ne travail pas avec des chiffres.

Edit : ah oui je comprends. Si vous voulez voir PSS- devant les nombres, mettez la colonne A au format personnalisé "PSS-"0. C'est la meilleure solution.

Sinon vous pouvez aussi utiliser le code suivant :

Range("A3:A" & nbLignes).FormulaR1C1 = "=""PSS-""&MID(R[-1]C,5,9^9)+1"

A+

 

[washkalrabdi]

Re : Aide incrementation

Merci beaucoup de cette reponse
ca marche tres bien
tout est résolu

Bonne journée

 

[job75]

Re : Aide incrementation

Re,

Une autre solution pour incrémenter un texte, sans entrer de formule :

Range("A2").AutoFill Destination:=Range("A2:A" & nbLignes)

Le nombre à droite de PSS ne peut pas dépasser 4294967295.

A+