Bonsoir Marion, Titi, Ândré, C@thy, le Forum
Et bien je te le souhaite Marion, et aussi à Titi. Je pense d'ailleurs que le code Proposé par C@thy est parfait et très simple d'emploi, car comme promis je viens d'y jetter un oeil.
C'est même instructif pour moi, je ne connaissais pas :
toto = Target.Address(RowAbsolute:=False, ColumnAbsolute:=False)
C'est une bonne astuce pour retourner la Lettre de la Colonne.
Par contre, niark !!! (à la Vincent !! lol) que vois-je un horrible "Select", en plus en évènementielle de Feuille on est sans soucis, donc on peut directement faire, je mets la macro entière car elle me plait !!!
But !!!! à la 45em minutes !! arf c'est chaud !!!
Private Sub Worksheet_Change(ByVal Target As Range)
Dim toto As String, derlig As Byte
toto = Target.Address(RowAbsolute:=False, ColumnAbsolute:=False)
If Left(toto, 1) = "C" Or Left(toto, 1) = "E" Or Left(toto, 1) = "G" Then
derlig = Range("A65535").End(xlUp).Row
Range("A" & derlig) = Target.Value
Range("A7").Sort Key1:=Range("A7"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End If
End Sub
Bonne soirée
@+Thierry