Déplacement automatique d'une ligne selon valeur Résolu/Fermé

Question

Bonjour,

Je renseigne un fichier Excel d'électroménagers chaque jour.

Les nouvelles lignes que j'insère, se situe tout en bas de mon tableau, et j'aimerais qu'elle se déplace automatiquement à tel ou tel ligne dans mon tableau en fonction d'une valeur entrée, notamment dans mon cas la marque de l'électroménager.

Par exemple, mes four Electrolux se situe entre les lignes 3 et 23 et la marque "Electrolux" est renseignée en colonne B. A l'insertion d'une nouvelle ligne en 66, je renseigne "Electrolux" en colonne B. La ligne se déplace alors automatiquement en ligne 24.

Merci d'avance pour votre aide et vos conseils :)

Cordialement,

NonoM45 · Answer

Bonjour Ascalon,

Il suffit de faire un tri à chaque ajout de nouvelle ligne, non ?

On peut lancer ce tri en VBA

A+

Raymond PENTIER · Answer

Bonjour Ascalon.

"cela suppose que j'ai une manipulation à effectuer" :

Un clic sur un bouton, ce n'est quand même pas épuisant !

Le Pingou · Answer

Bonjour,

S'il s'agit de VBA, auriez-vous un code à me proposer ?

En utilisant l'enregistrement de macro, vous faites une fois le travail et ensuite vous utiliserai la macro qui a été enregistré.

Exemple ; Trier la base "A1:K200" sur la colonne B

Sub Macro2()
'
'Trier la base "A1:K200" sur la colonne B
    Range("A1:K200").Select
    Range("K1").Activate
    ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add2 Key:=Range("B2:B166" _
        ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Feuil1").Sort
        .SetRange Range("A1:J166")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A2").Select
End Sub

Le Pingou · Answer

Merci, penser de marquer comme résolu si c'est le cas.

Déplacement automatique d'une ligne selon valeur

4 réponses

Discussions similaires