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