XL 2010 Incrémenter compteur dans texte

[Wyrgle]

Bonjour à tous,

J'au petit problème de compteur à incrémenter dans un texte.
Voici la ligne de code qui pose problème :

Cells(ligne, 9).Value = "launched " & Cells(ligne, 9).Value + 1 & " times"

Lors du 1er lancement de ma macro, cette ligne écrit correctement "launched 1 times".
Puis dès le 2eme, elle plante car elle ne distingue plus les chaines de caractères du compteur
(erreur : type mismatch).

Comment incrémenter correctement ma cellule svp ?

Merci pour votre aide.
Wyrgle

 

[Paf]

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+

 

[mapomme]

Bonsoir à tous,

Ou si au départ la cellule est vide:

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

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

 

[Wyrgle]

Bonsoir à tous,

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

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

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

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