Sélectionner des lignes
Résolu/Fermé
A voir également:
- Sélectionner des lignes
- Sélectionner texte pdf - Guide
- Excel trier par ordre alphabétique en gardant les lignes - Guide
- Partager des photos en ligne - Guide
- Comment sélectionner un message sur whatsapp pour y répondre - Guide
- Afficher toutes les lignes masquées excel ✓ - Forum Excel
3 réponses
Frenchie83
Messages postés
2240
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
11 août 2023
338
2 déc. 2013 à 09:42
2 déc. 2013 à 09:42
Bonjour
Essayez ceci, valable pour toutes les feuilles.
Essayez ceci, valable pour toutes les feuilles.
Sub Tri()cdlt
Application.ScreenUpdating = False
FeuilleActive = ActiveSheet.Name
DerLig = [A1].End(xlDown).Row
For i = 2 To DerLig
If Cells(i, 1) = "" Then
DerLig = i - 1
Exit For
End If
Next i
ActiveWorkbook.Worksheets(FeuilleActive).Sort.SortFields.Clear
ActiveWorkbook.Worksheets(FeuilleActive).Sort.SortFields.Add Key:=Range("B2:B" & DerLig) _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets(FeuilleActive).Sort
.SetRange Range("A1:N" & DerLig)
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
Utilisateur anonyme
2 déc. 2013 à 11:33
2 déc. 2013 à 11:33
Bonjour et merci,
le hic, lorsque j'applique la macro, mes feuilles n'étant pas identiques, certaines données disparaissent.
le hic, lorsque j'applique la macro, mes feuilles n'étant pas identiques, certaines données disparaissent.
Utilisateur anonyme
2 déc. 2013 à 16:20
2 déc. 2013 à 16:20
Re bonjour et remerci,
En fait, ça marche.
Il ne faut surtout pas revenir en arrière apparemment.
Merci
En fait, ça marche.
Il ne faut surtout pas revenir en arrière apparemment.
Merci
