Excel : un moyen d'automatiser cela?

Fred -  
kraze Messages postés 9 Statut Membre -
Bonjour,

je voudrais vous demander de m'aider pour ce problème concernant excel. Je veux construire une colonne comme celle-ci:
1
1
.
.
1
2
2
.
.
2
.
.
N
.
.
N

avec N= 1OO.OOO(N arbitraire). Petite précision: N=(N-1)+1 toutes les 35 lignes. Par exemple, A1 jusqu'à A35=1, puis A36 jusqu'à A71=2, ect...
Ma question est la suivante: Existe-il un moyen d'automatiser cela?
Je vous remercie d'avance.
Amitiés,
F.
Configuration: Windows XP
Internet Explorer 7.0

1 réponse

  1. xjl Messages postés 232 Statut Membre 183
     
    Salut,

    c'est une méthode, pas forcément la meilleure, mais ça fonctionne:

    Sub chiffres_colonne()
    nombre = 0
    For i = 1 To 65536 Step 35
    nombre = nombre + 1
    Cells(i, 1).Value = nombre
    Next i

    For i = 1 To 65536
    If Cells(i, 1).Value = "" Then Cells(i, 1).Value = Cells(i - 1, 1).Value
    Next i
    End Sub
    0
    1. kraze Messages postés 9 Statut Membre
       
      Oui, ceci fonctionne parfaitement.

      Je vous remercie beaucoup xjl.

      Cordialement,
      F.
      0