Boostez vos compétences Excel avec notre communauté !
Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force.
Apprenez, échangez, progressez – et tout ça gratuitement !
👉 Inscrivez-vous maintenant !
J'ai besoin de votre aide car je ne comprends pas je n'arrive pas à trier les données dans un tableau.
Précision : dans le fichier en pj
L'onglet Box Office ne peut pas se trier par cumul, je ne comprends pas pourquoi ?
C'est vrai que ça ne donne pas envie, mais ça prouve qu'il a essayé de tout faire par lui-même sans rien y connaître, et rien que pour ça il a notre respect.👍
Un exemple pour le module 10 (apres nettoyage des scrolls intempestif):
VB:
Sub Razdonnéesvista()
'
' Razdonnéesvista Macro
Range("AC14").Select
Sheets(Array("Mer", "Jeu", "Ven", "Sam", "Dim", "Lun", "Mar")).Select
Sheets("Mer").Activate
Range("A1:AD199").Select
Range("AD1").Activate
Selection.ClearContents
Range("A201:AD397").Select
Range("AD201").Activate
Selection.ClearContents
Range("A399:AD568").Select
Range("AD399").Activate
Selection.ClearContents
Range("AF1").Select
Sheets("Mer").Select
End Sub
Que je traduis :
Je me positionne Range("AC14") de quel feuille mystère
Je sélectionne toutes les feuilles de "Mer", "Jeu", "Ven", "Sam", "Dim", "Lun", "Mar"
Je sélectionne les cellules "A1:AD199"
Je vide les cellules "AD1:AD199"
Je sélectionne les cellules "A201:AD397"
J'active la cellule "AD201"
Je vide les cellules "A201:AD397"
Je sélectionne les cellules "A399:AD568"
J'active la cellule "AD399"
Je vide les cellules "A201:AD397"
Je sélectionne la cellule "AF1"
Je sélectionne la feuille "Mer"
Que je pourrais remplacer par :
VB:
Sub Razdonnéesvista()
Dim Tableau, i&
Tableau = Array("Mer", "Jeu", "Ven", "Sam", "Dim", "Lun", "Mar")
For i = LBound(Tableau) To UBound(Tableau)
Worksheets(Tableau(i)).Range("A1:AD199;A201:AD397;A399:AD568").ClearContents
Next
End Sub
Que je pourrais traduire par :
J’efface les cellules "A1:AD199;A201:AD397;A399:AD568"en faisant une boucle sur les feuilles "Mer", "Jeu", "Ven", "Sam", "Dim", "Lun", "Mar"
Plus cool non.😉
Les "select" et "activate" sont en général à proscrire et pas besoin d'aller dans une feuille pour faire une action
Oui dans la mesure de mes moyens ....
Mais pour cela il me faut des questions et des ....réponses.
Si tu veux que je revois tout ou parti de ton code il faut que je sache ce que tu veux faire comme dans le post #21
Tu m’expliques simplement comme je l'ai fait :
Mon module 10 sert à :
==> Effacer les cellules "A1:AD199;A201:AD397;A399:AD568" sur les feuilles "Mer", "Jeu", "Ven", "Sam", "Dim", "Lun", "Mar"
Les formules empêche de faire un tri comme tu le souhaites.
Et tu les supprimes tu n'as plus le résultat escompté ton pb me semble soit insoluble soit hors de mes compétences, désolé.
- Navigue sans publicité - Accède à Cléa, notre assistante IA experte Excel... et pas que... - Profite de fonctionnalités exclusives Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel. Je deviens Supporter XLD