une variable et une constante

C

CBernardT

Guest

• 23 Novembre 2004

• #2

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

 

Vote positif 0 Vote négatif

T

tatiak

Guest

• 23 Novembre 2004

• #3

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

 

Vote positif 0 Vote négatif

T

tatiak

Guest

• 23 Novembre 2004

• #4

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

 

Vote positif 0 Vote négatif

M

Montana

Guest

• 23 Novembre 2004

• #5

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

 

Vote positif 0 Vote négatif

C

CBernardT

Guest

• 23 Novembre 2004

• #6

Bonjour Tatiak

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

Salut

CBernardT

 

Vote positif 0 Vote négatif

C

CBernardT

Guest

• 23 Novembre 2004

• #7

Re Montana

Pas très clair ???

A+

CBernardT

 

Vote positif 0 Vote négatif

T

tatiak

Guest

• 23 Novembre 2004

• #8

Re Montana

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

 

Vote positif 0 Vote négatif