afficher valeur VBA

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

Merci MichelXld

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