VBA tri automatique par ordre alphabétique

Bonjour à tous,

Je viens implorer votre aide car j'ai un soucis de VBA. Je m'explique, dans le tableau joint, onglet "feuille type ide" j'ai trouvé un code sur le net pour classer par ordre alphabétique le premier tableau colonne A. Quand je glisse un nom de la colonne K dans la colonne A est ce place automatiquement dans le bonne ordre avec sa ligne de planning. Donc jusque là pas de problème, mais je n'arrive pas à faire la même chose sur les 4 tableaux suivants.

Si quelqu'un peut m'aider ce serai cool.

Merci d'avance

Bonjour,

Le code de ton fichier ne correspondait aux plages de ton fichier.

Remarque que j'en enlevé "Header:=xlGuess," il n'est pas nécessaire de mentionner qu'il y a "entête".

À titre d'exemple ... à ajuster au besoin.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
   If Not Application.Intersect(Target, Range("A5:A31")) Is Nothing Then
      Range("A5:H31").Sort Key1:=Cells(1, 1), Order1:=xlAscending, _
                          OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
   End If

   If Not Application.Intersect(Target, Range("A47:A58")) Is Nothing Then
      Range("A47:H58").Sort Key1:=Cells(1, 1), Order1:=xlAscending, _
                           OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
   End If
End Sub

ric

Ok merci je regarderai demain au taf car je n'ai pas excel à la maison

Salut c'est nickel c'est ce que je voulais grand merci à toi