Discussion :

[Jerez62]

bonjour j'aimerais avoir votre avis sur quelques lignes de codes. Les dates doivent etre inscritent les unes en dessous des autres et etre trié par ordre chronologique, elles proviennent d'un calendrier.

Code :

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

1
2
3
4
5
6
7
8
Private Sub Debit_Click()
Range("c6").End(xlDown).Offset(1, 0).Value = Calendrier.Value
 
 Range("c6").End(xlDown).Offset(1, 0).Select
    Selection.Sort Key1:=Range("C6"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
End Sub

Excel me renvoit l'erreur sur la 2e ligne or cela me semble bon !!!
Merci de votre aide

[AlainTech]

Si ta feuille est vide en dessous de la cellule C6, le .End va te positionner sur la dernière ligne.
Un Offset d'une ligne vers le bas te met en dehors des limites de la feuille.

[SfJ5Rpw8]

....
Excel me renvoit l'erreur sur la 2e ligne or cela me semble bon !!!
Merci de votre aide

ben cela dépends du contenu des Cellules C6 et C7 de la feuille active.. pour t'en convaincre place toi sur ta feuille en C6 ( je suppose que tu as des données en C7...) puis actionne la touche Fin puis fléche ves le bas .. équivalent à End(..) et ensuite descend d'une cellule ( équivalent à offset..) ...

fais ensuite la même chose avec cellules de C7...C65535 vides.....par exemple..

[Edit] oups ... Alain à été plus rapide...