Lier et trier trois colonnes
Résolu/Fermé
The_boss_68
Messages postés
925
Date d'inscription
dimanche 15 novembre 2015
Statut
Membre
Dernière intervention
23 avril 2024
-
9 déc. 2015 à 13:49
The_boss_68 Messages postés 925 Date d'inscription dimanche 15 novembre 2015 Statut Membre Dernière intervention 23 avril 2024 - 9 déc. 2015 à 17:52
The_boss_68 Messages postés 925 Date d'inscription dimanche 15 novembre 2015 Statut Membre Dernière intervention 23 avril 2024 - 9 déc. 2015 à 17:52
A voir également:
- Lier colonnes excel pour tri
- Liste déroulante excel - Guide
- Déplacer une colonne excel - Guide
- Tri excel - Guide
- Formule excel - Guide
- Si et excel - Guide
3 réponses
Gyrus
Messages postés
3334
Date d'inscription
samedi 20 juillet 2013
Statut
Membre
Dernière intervention
9 décembre 2016
523
9 déc. 2015 à 14:05
9 déc. 2015 à 14:05
Bonjour,
Essaie avec
A+
Essaie avec
Sub Trier()
With ActiveWorkbook.Worksheets("Feuil1")
.Range("A1:C1000").Sort .Range("A1"), xlAscending
End With
End Sub
A+
The_boss_68
Messages postés
925
Date d'inscription
dimanche 15 novembre 2015
Statut
Membre
Dernière intervention
23 avril 2024
174
9 déc. 2015 à 16:43
9 déc. 2015 à 16:43
Bonjour Gyrus
Merci de ta réponse, en fait ta macro est bonne, mais elle ne fonctionne pas en automatique. C'est à dire pour faire le tri il faut chaque fois exécuter la macro, pourrais-tu revoir cette macro et la modifier de façon que le tri fonctionne au moment ou je valide l'entré du n° de code
Cordialement
Merci de ta réponse, en fait ta macro est bonne, mais elle ne fonctionne pas en automatique. C'est à dire pour faire le tri il faut chaque fois exécuter la macro, pourrais-tu revoir cette macro et la modifier de façon que le tri fonctionne au moment ou je valide l'entré du n° de code
Cordialement
Gyrus
Messages postés
3334
Date d'inscription
samedi 20 juillet 2013
Statut
Membre
Dernière intervention
9 décembre 2016
523
9 déc. 2015 à 17:34
9 déc. 2015 à 17:34
Voila, voila !
Le code est à placer dans le module de la feuille concernée.
A+
Private Sub Worksheet_Change(ByVal Target As Range)
Dim DerLig As Long
If Target.Count > 1 Then Exit Sub
If Target.Column = 3 Then
DerLig = Range("A" & Rows.Count).End(xlUp).Row
Range("A1:C" & DerLig).Sort Range("A1"), xlAscending
End If
End Sub
Le code est à placer dans le module de la feuille concernée.
A+
The_boss_68
Messages postés
925
Date d'inscription
dimanche 15 novembre 2015
Statut
Membre
Dernière intervention
23 avril 2024
174
9 déc. 2015 à 17:52
9 déc. 2015 à 17:52
Excellent Gyrus
Merci beaucoup pour cette macro je l'ai testé elle fonctionne impeccablement, c'est exactement ce que je voulais
Merci de ton investissement et peut-être un jour pour une nouvelle requête
Bonne soirée
Henri
Merci beaucoup pour cette macro je l'ai testé elle fonctionne impeccablement, c'est exactement ce que je voulais
Merci de ton investissement et peut-être un jour pour une nouvelle requête
Bonne soirée
Henri