XL 2010 Incrémenter compteur dans texte

Bonjour,

Au premier lancement, Cells(ligne, 9) est vide , on va écrire "launched" et Cells(ligne, 9)qui vaut 'rien' + 1 et "times"
dans ce cas 'rien' + 1 = 1

Au deuxième lancement Cells(ligne, 9) contient "launched 1 times" et quand on fait Cells(ligne, 9).Value + 1 cela revient à
"launched 1 times" +1; la somme de texte et de numérique renvoie une erreur.

Une solution pourrait consister :
- à attribuer un format personnalisé ( "launched "0" times") aux cellules Cells(ligne, 9)
- modifier le code : Cells(ligne, 9).Value = Cells(ligne, 9).Value + 1

A+

Bonsoir à tous,

Ou si au départ la cellule est vide:

10 étant la longueur de la chaine "launched " + 1

mapomme à dit:

Bonsoir à tous,

Ou en VBA si au départ la cellule est vide:

VB:

Cells(ligne, 9) = "launched " & Val(Mid(Cells(ligne, 9), 10)) + 1 & " times"

10 étant la longueur de la chaine "launched " + 1

Cliquez pour agrandir...

Slt mapomme,
excellent ! ca marche parfaitement !
MERCI !
Wyrgle