Je souhaite ecrire en colonne les listes suivantes :
Colonne 1 : 1 12 123 1234 ...
Colonne 2 : 2 33 444 5555...
Après moult essais, je ne vois pas comment m'en sortir.
Pourriez vous m'aider s'il vous plaît ?
Merci
1 réponse
Votes
Date
Date décroissante
Patrice33740
Essaies :
Option Explicit
Sub Suite()
Dim s1 As String
Dim s2 As String
Dim lig As Integer
Cells.Clear
Columns("A:B").NumberFormat = "@"
For lig = 1 To 200
s1 = s1 & lig
Cells(lig, 1).Value = s1
s2 = WorksheetFunction.Rept(lig, lig)
Cells(lig, 2).Value = s2
Next lig
End Sub
