A voir également:
- Sélectionner et trier plusieurs lignes entre deux valeurs défini
- Deux comptes whatsapp - Guide
- Excel trier par ordre alphabétique en gardant les lignes - Guide
- Deux ecran pc - Guide
- Tableau croisé dynamique différence entre deux colonnes ✓ - Forum Excel
- Excel intervalle entre 2 valeurs ✓ - Forum Excel
2 réponses
cs_Le Pivert
Messages postés
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
728
5 févr. 2021 à 15:44
5 févr. 2021 à 15:44
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à
