Macro : Suite par une boucle

ycoquen -  
Patrice33740 Messages postés 8400 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

1 réponse

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

Discussions similaires

Transformer un chiffre en lettres dans excel sans macro
vincentphilippos -
tontong -

6 réponses
recup couleur de cellule sans macro
magouero -
JvDo -

7 réponses
convertir des chiffres en lettres avec une unique formule
FOUAD_9000 -
Mike-31 -

34 réponses