Lorsque je complète un tableau de 4 colonnes et de plusieurs lignes ( 50 ),
y-a-t'il une solution pour effectuer le tri autre que celle de passer par
données et trier ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel
Bonjour. A la question que tu avais déjà postée le 30 septembre je t'avais publié le même jour le code suivant :
Bonjour. Essaie le code suivant; les colonnes sont A, B, C et D, les données commencent en colonne A et son triées sur cette colonne.
Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("A:D")) Is Nothing Then Exit Sub If Range("A" & Target.Row) <> "" And Range("B" & Target.Row) <> "" And _ Range("C" & Target.Row) <> "" And Range("D" & Target.Row) <> "" Then Application.EnableEvents = False Range("A1", Range("D" & Target.Row)).Sort Range("A1") Application.EnableEvents = True End If End Sub
Y a-t-il des problèmes de fonctionnement ou as tu des problèmes de compréhension ? Cordialement. Daniel "sourirecalmeira" a écrit dans le message de news:
Lorsque je complète un tableau de 4 colonnes et de plusieurs lignes ( 50 ), y-a-t'il une solution pour effectuer le tri autre que celle de passer par données et trier ?
Bonjour.
A la question que tu avais déjà postée le 30 septembre je t'avais publié le
même jour le code suivant :
Bonjour.
Essaie le code suivant; les colonnes sont A, B, C et D, les données
commencent en colonne A et son triées sur cette colonne.
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A:D")) Is Nothing Then Exit Sub
If Range("A" & Target.Row) <> "" And Range("B" & Target.Row) <> "" And _
Range("C" & Target.Row) <> "" And Range("D" & Target.Row) <> "" Then
Application.EnableEvents = False
Range("A1", Range("D" & Target.Row)).Sort Range("A1")
Application.EnableEvents = True
End If
End Sub
Y a-t-il des problèmes de fonctionnement ou as tu des problèmes de
compréhension ?
Cordialement.
Daniel
"sourirecalmeira" <sourirecalmeira@discussions.microsoft.com> a écrit dans
le message de news: 3A154AA4-953E-49D2-BA5E-F37B388C384C@microsoft.com...
Lorsque je complète un tableau de 4 colonnes et de plusieurs lignes (
50 ),
y-a-t'il une solution pour effectuer le tri autre que celle de passer par
données et trier ?
Bonjour. A la question que tu avais déjà postée le 30 septembre je t'avais publié le même jour le code suivant :
Bonjour. Essaie le code suivant; les colonnes sont A, B, C et D, les données commencent en colonne A et son triées sur cette colonne.
Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("A:D")) Is Nothing Then Exit Sub If Range("A" & Target.Row) <> "" And Range("B" & Target.Row) <> "" And _ Range("C" & Target.Row) <> "" And Range("D" & Target.Row) <> "" Then Application.EnableEvents = False Range("A1", Range("D" & Target.Row)).Sort Range("A1") Application.EnableEvents = True End If End Sub
Y a-t-il des problèmes de fonctionnement ou as tu des problèmes de compréhension ? Cordialement. Daniel "sourirecalmeira" a écrit dans le message de news:
Lorsque je complète un tableau de 4 colonnes et de plusieurs lignes ( 50 ), y-a-t'il une solution pour effectuer le tri autre que celle de passer par données et trier ?
