Sélectionner et trier plusieurs lignes entre deux valeurs défini
AurelC
-
AurelC -
AurelC -
Bonjour,
Je me tourne vers ce forum car je peche depuis plusieurs jours.
J'ai un tableau qui se compose grosso modo comme ceci :
....
....
....
Etudiants
1
2
3
4
5
Professeurs
1
2
3
4
5
Autres
...
..
.
Ce que je cherche à faire est un bouton qui lorsque l'on clique dessus
Sélectionne toutes les lignes situées entre "Etudiants" et "Professeurs"
Dans l'exemple ci-dessus il y à 5 lignes mais il peux y en avoir plus.
Une fois sélectionnées je souhaite qu'elles soient triée par ordre alphabétique.
J'ai eut beau regarder sur pleins de forums... je ne parviens pas à résoudre ce casse-tête.
Si quelqu'un peux m'aider, ça m'aiderai grandement.
Merci d'avance :)
Je me tourne vers ce forum car je peche depuis plusieurs jours.
J'ai un tableau qui se compose grosso modo comme ceci :
....
....
....
Etudiants
1
2
3
4
5
Professeurs
1
2
3
4
5
Autres
...
..
.
Ce que je cherche à faire est un bouton qui lorsque l'on clique dessus
Sélectionne toutes les lignes situées entre "Etudiants" et "Professeurs"
Dans l'exemple ci-dessus il y à 5 lignes mais il peux y en avoir plus.
Une fois sélectionnées je souhaite qu'elles soient triée par ordre alphabétique.
J'ai eut beau regarder sur pleins de forums... je ne parviens pas à résoudre ce casse-tête.
Si quelqu'un peux m'aider, ça m'aiderai grandement.
Merci d'avance :)
A voir également:
- Sélectionner et trier plusieurs lignes entre deux valeurs défini
- Excel trier par ordre croissant chiffre - Guide
- Nombre de jours entre deux dates excel - Guide
- Deux ecran pc - Guide
- Comment faire deux colonnes sur word - Guide
- Écrire plusieurs lignes dans une cellule excel mac - Guide
2 réponses
Bonjour,
en vba faire Alt F11 pour accéder à l'éditeur
Insérer un module avec ce code
Mettre un bouton sur la feuille concernée et l'associer à la macro:
Voilà
en vba faire Alt F11 pour accéder à l'éditeur
Insérer un module avec ce code
Mettre un bouton sur la feuille concernée et l'associer à la macro:
Option Explicit
Public Const cotot As String = "A"
Sub Selection()
Dim obj As Object, liobjetud, liobjprof, liobjautres As Long
Dim DernLigne As Long
DernLigne = Range("A65536").End(xlUp).Row
With ActiveSheet
Set obj = .Columns(cotot).Find("Etudiants", , , xlWhole)
If obj Is Nothing Then MsgBox "le mot Etudiants n'est pas en colonne " & cotot: Exit Sub
liobjetud = obj.Row
Set obj = .Columns(cotot).Find("Professeurs", , , xlWhole)
If obj Is Nothing Then MsgBox "le mot Professeurs n'est pas en colonne " & cotot: Exit Sub
liobjprof = obj.Row
Set obj = .Columns(cotot).Find("Autres", , , xlWhole)
If obj Is Nothing Then MsgBox "le mot Autres n'est pas en colonne " & cotot: Exit Sub
liobjautres = obj.Row
Range("A" & liobjetud + 1 & ":A" & liobjprof - 1).Sort Key1:=Range("A" & liobjetud + 1)
Range("A" & liobjprof + 1 & ":A" & liobjautres - 1).Sort Key1:=Range("A" & liobjprof + 1)
End With
End Sub
Voilà
