Discussion :

[big1]

Bonjour,
comment faire pour remplir 10000 cellules d'une même colonne par les nombre de 1 à 10000 de façon automatique?
D'avance merci.

[SfJ5Rpw8]

Bonjour,

tu écrit 1 en A1 , 2 en A2 , puis tu sélectionne les 2 cellules puis tu étire ta sélection en "tirant" sur le petit carré noir en bas à droite de ta sélection...

[big1]

Merci.
J'utilise cela quand j'ai 10,100, 200 lignes à remplir.
Mais quand il y a 10000 lignes aller jusqu'au 10000 éme lignes n'est pas pratique.
Une autre manière s'il vous plait ?

[SfJ5Rpw8]

et bien vu qu'il semble s'agir d'un exercice essai de faire cela avec une boucle FOR :

tu as un exemple à adapter la :
http://silkyroad.developpez.com/vba/boucles/#LIII

[Invité]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub test()
Range("A1") = 1
Range("A2:A10000").FormulaR1c1 = "=R[-1]C+1"
Range("A2:A10000") = Range("A2:A10000").Value
End Sub

[big1]

Merci.
J'ai créé un macro et ai collé le code dans ceci. Et en exécutant le macro je reçois l'erreur suivant :



Merci pour ton aide.

[davido84]

Bonjour,
comme précisé par bbil ce code doit être adapté et non lancé tel quel...ne teste que la boucle For...Next.
A+

[SfJ5Rpw8]

Ton erreur viens des 4 ou 5 dernières lignes de codes ... pourquoi rajouter ces lignes qui font que ta procédure se rappelle elle même ...

relis le Tutorial accompagnant ton code et essai de comprendre le fonctionnement d'une boucle FOR..

[big1]

oui, effectivement.
En guise de test j'ai voulu juste essayer le code tel quel. La partie :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Range("C5").Select
    Application.Run "Classeur1!Test_V01"
    Range("A3:A10").Select
    Selection.ClearContents
    Range("L9").Select
    Application.Goto Reference:="Test_V01"

C'est l'Excel qui l'ajoute après chaque exécution et cela génère une erreur pour deuxième exécution.
Comment empêcher l'Excel d'ajouter ceci ?


D'avance merci.

[Invité]

Bonjour,
comment faire pour remplir 10000 cellules d'une même colonne par les nombre de 1 à 10000 de façon automatique?
D'avance merci.

vraisemblablement j'ai rien compris!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub test()
Range("A1:A65536") = "A" 'Exemple pour numéroter toute une colonne!
Range("A1") = 1
Range("A2:A" & Cells(Cells.Rows.Count, "A").End(xlUp).Row).FormulaR1C1 = "=R[-1]C+1"
Range("A2:A" & Cells(Cells.Rows.Count, "A").End(xlUp).Row) = Range("A2:A" & Cells(Cells.Rows.Count, "A").End(xlUp).Row).Value
End Sub

[Igloobel]

oui, effectivement.
En guise de test j'ai voulu juste essayer le code tel quel. La partie :
Range("C5").Select
Application.Run "Classeur1!Test_V01"
Range("A3:A10").Select
Selection.ClearContents
Range("L9").Select
Application.Goto Reference:="Test_V01"
C'est l'Excel qui l'ajoute après chaque exécution et cela génère une erreur pour deuxième exécution.
Comment empêcher l'Excel d'ajouter ceci ?


D'avance merci.

Ca c'est parce que tu as oublié de fermer l'assistant générateur de macro (déjà fait )


ton code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For x = 1 to 1000
cells(x,1).value =  x
Next

Suffit

A+

[Invité]

pas besoin de boucle!

[big1]

Oui, merci à tous, ça marche.

[Igloobel]

pas besoin de boucle!

Oui c'est vrai, rdurupt, ta solution est top mais j'ai juste donné Sa solution corrigé qu'il comprend peut-être mieux

En tout cas j'aime ta solution donc bien sur

Bonne journée à tous