classement alphabetique

[carloutch]

Bonjour,
comment mettre automatiquement les nouvelles saisies dans l'ordre chronologique?
et egalement ne pas pouvoir encoder des dates qui se chevauchent.

 

[porcinet82]

Re : classement alphabetique

Salut,

Rapidement, peut etre une piste via le code suivant, a placer dans le code de la feuille concernée (click droit sur l'onglet de la feuille, puis visualiser le code et le copier dans la fenetre qui s'ouvre) :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
    If Target.Value = Target.Offset(0, -1).Value Then
        MsgBox "Vous ne pouvez pas saisir une valeur identique à celle de la cellule départ !!!"
        Target.Select
        Exit Sub
    End If
    If Not Intersect(Target, Columns("C:C")) Is Nothing Then
        Range("A3:C" & Range("C65536").End(xlUp).Row).Select
        Selection.Sort Key1:=Range("B3"), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    End If
End If
End Sub

@+

 

[carloutch]

Re : classement alphabetique

super un grand meci pour un debut
est il possible de filtrer plus precisement les dates afin de ne pas pouvoir encoder deux fois la meme date.


par ex : voir fichier ci joint