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. 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
Cordialement. Daniel "sourirecalmeira" a écrit dans le message de news:
En enrichissant un tabeau ligne par ligne, je voudrais que le tri puisse être effectué de façon automatique.
Le tableau comporte 4 colonnes et le nombre de lignes varie de 10 à 50
merci de votre aide
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
Cordialement.
Daniel
"sourirecalmeira" <sourirecalmeira@discussions.microsoft.com> a écrit dans
le message de news: 632C143E-2226-4AE5-AC5D-B51BE3435C61@microsoft.com...
En enrichissant un tabeau ligne par ligne, je voudrais que le tri puisse
être
effectué de façon automatique.
Le tableau comporte 4 colonnes et le nombre de lignes varie de 10 à 50
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
Cordialement. Daniel "sourirecalmeira" a écrit dans le message de news:
En enrichissant un tabeau ligne par ligne, je voudrais que le tri puisse être effectué de façon automatique.
Le tableau comporte 4 colonnes et le nombre de lignes varie de 10 à 50
