Remplir

[jeff]

Bonjour,

je souhaiterais créer une macro dans Excel qui récupère
une valeur n et qui affiche ensuite dans une seule colonne
une liste de nombre croissant numéroté de 1 à n

Ex : valeur '15' dans la cellule A1 (sheet1)
afficherait automatiquement dans la colonne B (sheet2)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

Merci d'avance et bon WE!

🙂

Jeff

 

[Gérard DEZAMIS]

Bonjour Jeff

Un essai

@+ GD [file name=ValeursSuite.zip size=2971]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/ValeursSuite.zip[/file]

 

[sylv900]

essaye un truc du genre :

for i=1 to sheet1.cells(1,1).value
sheet2.cells(i,1)=i
next i

bon courage

 

[Gérard DEZAMIS]

Re Jeff

Essaye aussi

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For i = 1 To Range('A1').Value
If Range('A1') <> '' Then
Range('B' & i) = i
End If
Next
End Sub

Comme ça pas de formule

@+ GD

 

[Gérard DEZAMIS]

re de Re

Oups !

Décidement je n'avais pas

1 vu arriver Sylv900 (Salut à toi !)
2 vu qu'il fallait travailler sur 2 feuilles différentes ...

Niark Niark Niark

@+ Je vais me coucher !

GD

 

[Gérard DEZAMIS]

Re de Re de Re !

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Sheets('Feuil2').Range('B:B').ClearContents
For i = 1 To Range('A1').Value
If Range('A1') <> '' Then
Sheets('Feuil2').Range('B' & i) = i
End If
Next
End Sub

Marche mieux ainsi car il y avait un GROS inconvénient si la valeur entrée en A1 était inférieure à la saisie precedente les cellules ne s'actualisaient pas et gardaient les valeeurs supérieures à la nouvelle donnée saisie.
pas très clair tout ça me dis-je en me relisant mais ...

@+ GD

 

[Jeff]

Hello,

Gerard et Syl..Merci beaucoup pour vos réponses!!
çà marche bien..OK

J'ai cependant encore une petite question..je souhaiterais que la suite
des nombres apparaissent dans la feuille2 mais à partir
de la cellule A2 (et non pas A1 comme c'est le cas actuellement et ceci afin d'utiliser la première ligne comme en tête de colonne)

Comment réaliser celà?

Merci d'avance et bonne journée

Jeff

 

[Jeff]

Bonjour,

Vraiment pas d'idée sur ma demande précédente?

Un grand merci d'avance,

Jeff