Soit une feuil1 avec les colonnes A et B renseignées sur une base de 100
lignes pouvant augmenter.
Soit un tri sur la colonne A (avec en tête de colonne)
Est'il possible de créer sur une feuil2 le même tableau avec les colonnes A
et B avec un tri sur la colonne B automatique ?
Automatique, car à chaque ajout de données à partir de la 101ème ligne sur
la feuil1, la feuil2 serait mise à jour et triée en même temps.
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. Mets la macro suivante dans le code de Feuil1 :
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column < 2 Or Target.Count > 1 Then Exit Sub If Target.Column = 1 And Target.Offset(0, 1) = "" Then Exit Sub ElseIf Target.Offset(0, -1) = "" Then Exit Sub End If Range("A1", Range("B65536").End(xlUp)).Sort _ key1:=Range("A1"), header:=xlYes Range("A1", Range("B65536").End(xlUp)).Copy _ Sheets("Feuil2").Range("A1") Sheets("Feuil2").Range("A1", _ Sheets("Feuil2").Range("B65536").End(xlUp)).Sort _ key1:=Sheets("Feuil2").Range("B1"), header:=xlYes End Sub
Cordialement. Daniel "Britannicus" a écrit dans le message de news:
Bonjour,
Soit une feuil1 avec les colonnes A et B renseignées sur une base de 100 lignes pouvant augmenter. Soit un tri sur la colonne A (avec en tête de colonne) Est'il possible de créer sur une feuil2 le même tableau avec les colonnes A et B avec un tri sur la colonne B automatique ? Automatique, car à chaque ajout de données à partir de la 101ème ligne sur la feuil1, la feuil2 serait mise à jour et triée en même temps.
Merci, Britannicus
Bonjour.
Mets la macro suivante dans le code de Feuil1 :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column < 2 Or Target.Count > 1 Then Exit Sub
If Target.Column = 1 And Target.Offset(0, 1) = "" Then
Exit Sub
ElseIf Target.Offset(0, -1) = "" Then
Exit Sub
End If
Range("A1", Range("B65536").End(xlUp)).Sort _
key1:=Range("A1"), header:=xlYes
Range("A1", Range("B65536").End(xlUp)).Copy _
Sheets("Feuil2").Range("A1")
Sheets("Feuil2").Range("A1", _
Sheets("Feuil2").Range("B65536").End(xlUp)).Sort _
key1:=Sheets("Feuil2").Range("B1"), header:=xlYes
End Sub
Cordialement.
Daniel
"Britannicus" <britannicus60@wanadoo.fr> a écrit dans le message de news:
eoY5NmYlHHA.3736@TK2MSFTNGP03.phx.gbl...
Bonjour,
Soit une feuil1 avec les colonnes A et B renseignées sur une base de 100
lignes pouvant augmenter.
Soit un tri sur la colonne A (avec en tête de colonne)
Est'il possible de créer sur une feuil2 le même tableau avec les colonnes
A et B avec un tri sur la colonne B automatique ?
Automatique, car à chaque ajout de données à partir de la 101ème ligne sur
la feuil1, la feuil2 serait mise à jour et triée en même temps.
Bonjour. Mets la macro suivante dans le code de Feuil1 :
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column < 2 Or Target.Count > 1 Then Exit Sub If Target.Column = 1 And Target.Offset(0, 1) = "" Then Exit Sub ElseIf Target.Offset(0, -1) = "" Then Exit Sub End If Range("A1", Range("B65536").End(xlUp)).Sort _ key1:=Range("A1"), header:=xlYes Range("A1", Range("B65536").End(xlUp)).Copy _ Sheets("Feuil2").Range("A1") Sheets("Feuil2").Range("A1", _ Sheets("Feuil2").Range("B65536").End(xlUp)).Sort _ key1:=Sheets("Feuil2").Range("B1"), header:=xlYes End Sub
Cordialement. Daniel "Britannicus" a écrit dans le message de news:
Bonjour,
Soit une feuil1 avec les colonnes A et B renseignées sur une base de 100 lignes pouvant augmenter. Soit un tri sur la colonne A (avec en tête de colonne) Est'il possible de créer sur une feuil2 le même tableau avec les colonnes A et B avec un tri sur la colonne B automatique ? Automatique, car à chaque ajout de données à partir de la 101ème ligne sur la feuil1, la feuil2 serait mise à jour et triée en même temps.