Incrémenter + une lettre

[nikkyb]

Bonjour à tous,

Comme dis dans le titre....j'ai un code qui fonctionne ;

.Cells(Derli, 1) = Application.WorksheetFunction.Max(.Range("A:A")) + 1

J'aimerais ajouter une lettre aprés l'incrementation ce qui donnera genre
1B
2B
3B
4B
ETC

Merci à ce qui pouroont m'aider !

 

[Excel-lent]

Re : Incrémenter + une lettre

Bonsoir Nikkyb,

Je ne comprend pas le sens de ta question!

Tu dis que ton code fonctionne. Et pourtant tu veux qu'on t'aide?

A te lire

Cordialement

 

[Paritec]

Re : Incrémenter + une lettre

bonsoir nikkyb
comme dab sans fichier alors si la dernière ligne correspond a ton numéro de ligne
.Cells(Derli, 1) = derli & "B"autrement
.cells(derli,1) = derli + (le nombre de différence en + ou en -) &"B"
bonne soirée
Papou

 

[camarchepas]

Re : Incrémenter + une lettre

Bonjour,

Comme cela peut être :

.Cells(derlig, 1) = Application.WorksheetFunction.Max(.Range("A:A")) + 1 & "B"

 

[nikkyb]

Re : Incrémenter + une lettre

Bonsoir à vous,

Je vous joins un bout de fichier.

Cijoint.fr - Service gratuit de dépôt de fichiers

Merci à vous

 

[Paritec]

Re : Incrémenter + une lettre

Bonjour nikkyb
ton fichier en retour avec des modifs, des mois des dépenses enfin
un peu plus que ce que tu nous as envoyé c'est à dire pas grand chose
a+
papou

 

[nikkyb]

Re : Incrémenter + une lettre

Bonjour à tous,

Merci paritec ca fonctionne bien.
Par contre, j'ai une tite question, pourquoi as tu rajouté ceci :

 .Cells(Derli, 10) = txtanne'Ca OK
            .Cells(Derli, 10) = .Cells(Derli, 10) * 1'Pourquoi cela?

Merci encore et à bientot

 

[Paritec]

Re : Incrémenter + une lettre

Re nikkyb,
pour avoir la cellule de la feuille au format chiffre et pas texte
a+
papou

 

[nikkyb]

Re : Incrémenter + une lettre

Re Paritec,
Y a un interet à cela ?

A bientot

 

[Paritec]

Re : Incrémenter + une lettre

Re nikkyb
Non cela ne sert à rien c'est pour cela que je l'ai fait !!!
bah évidemment qu'il y a un intérêt comment tu fais une addition d'un chiffre et de texte? là on converti tout en chiffre
a+
papou

 

[nikkyb]

Re : Incrémenter + une lettre

Re

Je partai pas dans l'esprit de te critiquer

Mais dans mon cas l'année ne bougera pas n'y ne sera par calculé donc je doit pouvoir le laisser sans que cela me cause de souci....encore une fois ce n'est qu'une question et non une attaque.....

A+