Bonjour,
J’aurais encore besoin de votre aide pour un code VBA si c’est possible ?
Qu’il me fasses un tri automatique par ordre alphabétiques de toutes les lignes dans chaque feuilles de 0-9 et de A à Z à part « Divers » « NouvelleEntree » et « MaSelection »
Le tri commence à partir de la ligne A3,
Merci pour votre aide
FORUMS ALBUMS 2023 DEMANDE vba.xlsm (154,5 Ko)
automatique ? cela sera ambetant, un bouton est peut-être mieux.
Ces quelque lignes vides dans la feuille « R » , je ne les aime pas … 
Sub Trier()
For Each sh In ThisWorkbook.Worksheets 'boucle les feuilles
Select Case UCase(sh.Name)
Case "DIVERS", "MASELECTION" 'ignorer ces feuilles
Case Else 'les autres
With sh
If StrComp(.Range("B2").Value, "albums", 1) = 0 Then 'B2="Albums"
i = Application.Max(.Range("B" & Rows.Count).End(xlUp).Row, .Range("F" & Rows.Count).End(xlUp).Row) 'max des dernières lignes des colonnes B et F
With .Range("B2:N" & i) 'cette plage
.Sort .Range("A1"), Header:=xlYes 'trier les albums
End With
End If
End With
End Select
Next
End Sub
FORUMS ALBUMS 2023 DEMANDE vba.xlsm (156,6 Ko)
Merci pour ta réponse
oui pardon pas automatique mais un bouton que je lance quand j’ai besoin de faire le tri.
Comme j’ai dans la feuilles « NouvelleEntree »
Oui les lignes blanches c’est une erreur en « R » a supp c’est dossier d’essai c’est pour ca
Quand j’exécute la macro Trier que tu m’as faites il ne se passe rien du tout ?
oui, la plage n’était pas bonne.
maintenant mieux. Si vous changez A1 de « MaSelection », le « A » (ou « a ») en quelque chose autre, le tri sera descendant au lieu de ascendant.
FORUMS ALBUMS 2023 DEMANDE vba.xlsm (158,5 Ko)
Merci ca m
arche pour ce fichier
J’en ai un autre qui mais les onglets sont pas les mêmes
0-9 et A-Z et « NouvelleEntree » sont les mêmes
et il y a un onglet « Transfert » au lieu de « Maselection »
et les colonnes vont jusqu’à « I »
Car j’ai voulu adapter ton code à ce fichier mais ca ne marche pas
CENTRALISATIONS 2023 code vba.xlsm (208,4 Ko)
Sub Trier()
Dim s, sh, Méthode
Méthode = xlAscending 'le choix entre xlAscending et xlDescending
For Each sh In ThisWorkbook.Worksheets 'boucle les feuilles
With sh
If StrComp(.Range("A2").Value, "albums", 1) = 0 And StrComp(Left(.Range("B2").Value, 7), "evolved", 1) = 0 Then 'A2 ="Albums" et B2 commence avec "evolved"
'sh.Activate
i = Application.Max(.Range("A" & Rows.Count).End(xlUp).Row, .Range("F" & Rows.Count).End(xlUp).Row) 'max des dernières lignes des colonnes B et F
With .Range("A2:I" & i) 'cette plage (colonnes A juqu'à I)
.Sort .Range("A1"), Méthode, Header:=xlYes 'trier les albums
End With
Else
s = s & vbLf & sh.Name 'toutes les feuilles ignorées
End If
End With
Next
If Len(s) > 0 Then MsgBox Mid(s, 2), vbInformation, "les feuilles ignorées sont :"
End Sub
CENTRALISATIONS 2023 code vba.xlsm (203,6 Ko)
Merci beaucoup
Ca marche nickel
J’en ai encore 2 autres pour les COMPILATIONS si cela ne te déranges pas.
Pour le fichier COMPILATIONS 2022 demande VBA
Ce ne sont pas les mêmes onglets
il y a un onglet « ANNEES » ou il faudrait me faire un tri avec d’abord l’année de l’album et ensuite un tri avec le titre si c’est possible donc colonne A et B
et pour FUN , NRJ, SKYROCK colonne A
et ne pas toucher à « NouvelleEntree » et Divers"
Pour le fichier Centralisation COMPILATIONS 2023 demande VBA
Tri des colonnes A et ne pas prendre en compte l’onglet « Divers » et les onglets qui sont masqués"
Et ce sera les derniers je t’embête plus.
COMPILATIONS 2022 demande VBA.xlsm (58,0 Ko)
Centralisation COMPILATIONS 2023 demande VBA.xlsm (59,4 Ko)
pour commencer le « centralisation »
Centralisation COMPILATIONS 2023 demande VBA.xlsm (70,8 Ko)
l’autre est pour plus tard …
Bonjour nickel
Merci beaucoup bon dimanche
Ce sujet a été automatiquement fermé après 30 jours. Aucune réponse n’est permise dorénavant.