afficher valeur VBA

[micheline]

bonjour ,
j'ai besoin d'un petit coup de pouce car
je n'arrive pas a faire afficher les valeurs comme ci-dessous avec un programme VBA (nombre ligne saisi par l'utilisateur)

1
12
123
1234
12345
...........

merci

 

[michel]

bonsoir Micheline

tu peux essayer


Sub Test()
Dim i As Byte, j As Byte
Dim Valeur As String
Dim NbLigne As Byte

NbLigne = InputBox("saisir le nombre de lignes", "Message", 1)

For i = 1 To NbLigne
Valeur = ""
For j = 1 To i
Valeur = Valeur & CStr(j)
Next j
Cells(i, 1) = Valeur

Next i
Columns(1).HorizontalAlignment = xlLeft
End Sub


bonne soirée
MichelXld

 

[micheline]

Merci MichelXld

bonjour Michel
merci pour ce petit programme c'est super sympas
passe un bon apre'm
a plus