problème VBA

[jeff]

Bonjour,

Le code suivant me permet d'afficher automatiquement
une suite croissante de nombre de 1 à n à partir d'un nombre n
entré dans une cellule

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

Ainsi en encodant le chiffre 4
on obtient automatiquement
1
2
3
4


Je souhaiterais maintenant que cette suite commence à partir
de la 2ème ligne et non pas la première comme c'est le
cas actuellement..

Merci d'avance pour vos idées!

Jeff

 

[bertrand]

bonjour jeff

jeff écrit:

Bonjour,

Le code suivant me permet d'afficher automatiquement
une suite croissante de nombre de 1 à n à partir d'un nombre n
entré dans une cellule

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

Ainsi en encodant le chiffre 4
on obtient automatiquement
1
2
3
4


Je souhaiterais maintenant que cette suite commence à partir
de la 2ème ligne et non pas la première comme c'est le
cas actuellement..

Merci d'avance pour vos idées!

Jeff

juste une petite modif

Sheets('Feuil2').Range('B' & i+1) = i

@+

 

[Gérard DEZAMIS]

Bonjour Jeff

Une simple Modif

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' & (1 + i)) = i End If
Next
End Sub

devrait être suffisante

@+ GD

 

[Gérard DEZAMIS]

Bonjour Bertrand

Excuses pour le télescopage !

@+ GD

 

[bertrand]

bonjour GD,

même pas mal, et en plus même réponse comme les grands esprits se rencontrent, ça explique tout, non ?

@+