Microsoft 365 Impossible de trier les données

homernell

XLDnaute Occasionnel
Bonjour à tous,

Merci de vos retours.

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 ?

Pouvez vous m'aider, merci
 

Pièces jointes

  • SEMAINE NEXT 2.4.xlsm
    886.3 KB · Affichages: 16

homernell

XLDnaute Occasionnel
Re

C'est gentil de m'épargner ....

mais ou sont passer les modules 1, 3 ,4 , 5 ?
Et le module 12 viens d'apparaitre ?

Il y a aucun commentaire
Et que veux tu faire avec tes union(range...... interminable ? (Module 11)

@Phil69970

En fait c'est la sélection des cellules pour remettre à jour les données chaque semaine.

Et les modules inutiles ou vide j'ai viré selon tes conseils.
 

Phil69970

XLDnaute Barbatruc
Re

Non les modules 1,3,4 et 5 n'était pas vide et le 12 est apparu dans ta dernière version

En fait c'est la sélection des cellules pour remettre à jour les données chaque semaine.
Des détails des détails et encore des détails.....
Il y a aucun commentaire
Et que veux tu faire avec tes union(range...... interminable ? (Module 11)

de quoi vers quoi et dans quelles cellules et est ce j'efface tout après la copie etc......
En fait c'est la sélection des cellules pour remettre à jour les données chaque semaine.
Des détails des détails et encore des détails..... (la répétition est voulue ....par manque de réponse claire)


@Phil69970
 

Phil69970

XLDnaute Barbatruc
Re

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

En attendant les réponses de mon post #17 et 19

@Phil69970
 

Phil69970

XLDnaute Barbatruc
Re

Si jamais je peux vous demander encore un peu d'aide, please
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"

Mon module XX sert à :
blablabla

Mon module YY sert à :
blablabla

etc ...

@Phil69970
 

Discussions similaires

Réponses
10
Affichages
184
Réponses
9
Affichages
446

Statistiques des forums

Discussions
311 725
Messages
2 081 940
Membres
101 845
dernier inscrit
annesof