Macro : Suite par une boucle

ycoquen -  
Patrice33740 Messages postés 8561 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,


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
A voir également:

1 réponse

Patrice33740 Messages postés 8561 Date d'inscription   Statut Membre Dernière intervention   1 780
 
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
0