Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
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é.
Ce site utilise des cookies pour personnaliser le contenu, adapter votre expérience et vous garder connecté si vous vous enregistrez.
En continuant à utiliser ce site, vous consentez à notre utilisation de cookies.