Déplacement automatique d'une ligne selon valeur
RésoluLe Pingou Messages postés 12249 Date d'inscription Statut Contributeur Dernière intervention -
- Déplacement automatique d'une ligne selon valeur
- Réponse automatique thunderbird - Guide
- Partager photos en ligne - Guide
- Déplacer une colonne excel - Guide
- Word ligne horizontale automatique - Guide
- Mètre en ligne - Guide
4 réponses
Bonjour Ascalon,
Il suffit de faire un tri à chaque ajout de nouvelle ligne, non ?
On peut lancer ce tri en VBA
A+
Bonjour Ascalon.
"cela suppose que j'ai une manipulation à effectuer" :
Un clic sur un bouton, ce n'est quand même pas épuisant !
Monsieur Pentier,
Croyez-moi, je ne suis pas flemmard et je suis entièrement d'accord avec vous, mais là n'est pas la question.
Excel est un logiciel intelligent avec la qualité de pouvoir automatiser un certain nombre de choses.
Ma tâche étant régulière et quotidienne, cela représente pour moi un réel gain de temps.
Bien cordialement,
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
Bonjour NonoM45,
En effet un tri via les filtres fonctionne, mais cela suppose que j'ai une manipulation à effectuer.
Je souhaite rendre cela automatique au moment où la marque est renseignée.
S'il s'agit de VBA, auriez-vous un code à me proposer ?
Merci par avance :)