une variable et une constante

[Montana]

Bonjour,
Help j'ai besoin de savoir comment ajouter +1 à une cellule qui contient une partie variable et une partie constante

1 / 2005
2 / 2005
3 / 2005
etc..
alors je sais qu'il faut déclarer la cellule en Texte
voila le début
i = 9
Do While Cells(i, 1).Value <> ""
i = i + 1
Loop
ensuite???????
merci

 

[CBernardT]

Bonjour Montana

Essayes avec ce code :

Sub Liste()
Dim i As Byte ' Byte jusqu'à 255 lignes et integer au-delà

For i = 1 To 100 ' 100 pour 100 boucles
Cells(i + 1, 1) = Str(i) & " / " & 2005 '+ 1 pour démarer à la ligne 2
Next i
End Sub

Cordialement

CBernardT

 

[tatiak]

pour créer une liste de 50 items contenant 1 / 2005, ... :

Sub créerliste()
For i = 1 To 50
Range("A" & i).Select
ActiveCell.Value = i & " / 2005"
Next i
End Sub

pour continuer la même liste, ligne par ligne :

Sub continuerliste()
L = Feuil1.Range("A65536").End(xlUp).Row
Cells(L, 1).Activate
valeur = ActiveCell.Value
i = 1
While Right(Left(valeur, i), 1) <> "/"
i = i + 1
Wend
valeur = (Left(valeur, i - 1) + 1) & " / 2005"
Cells(L + 1, 1).Activate
ActiveCell.Value = valeur
End Sub

 

[tatiak]

Oups!
désolé CBernardT, j'avais pas vu ta réponse.

 

[Montana]

merci mais ce n'est pas exactement ce que je souhaite
voila en gros le resultat voulu

A chaque fois que j'actionne la macro, elle verifie si la cellule est vide, si c'est la cas, la cellule doit inscrire i+1/ 2005, i etant la valeur sur la ligne precedente.
voila je ne sais pas si je suis clair

 

[CBernardT]

Bonjour Tatiak

C'est pas très grave, je oupsse une fois sur deux pour m'excuser Hi Hi

Salut

CBernardT

 

[CBernardT]

Re Montana

Pas très clair ???

A+

CBernardT

 

[tatiak]

Re Montana

heum, il me semble que la macro continuerliste() proposée plus haut fait ce que tu explique (???)