macro amélioration

[matmat36]

Bonjour cher(e) ami , amie

Je viens de continuer mon petit programme avec une macro , mais il me manque des adhérents et au niveau "DISC" , il me manque 102 , et surement d'autres équipes qui ne sont pas inscrit .

Pouvez vous regarder la raison ?

Merci de votre aide

 

[phlaurent55]

Re : macro amélioration

Bonjour matmat,

supprime ce qui est en rouge dans le code ci-dessous

Sub zz_Classement()
Application.ScreenUpdating = False
Sheets("Plan").Activate
Range("A1").CurrentRegion.Sort Key1:=Range("M2"), Order1:=xlDescending, Header:=xlGuess
Sheets("Résultats").Cells.ClearContents
derL = [Plan!A65536].End(3).Row
'extract liste clubs
With Sheets("Données")
      .[A:A] = ""
    Sheets("Plan").[D:D].AdvancedFilter Action:=xlFilterCopy, _
        CopyToRange:=.[A1], Unique:=True
      nbClub = Application.CountA(.[A:A]) [B][COLOR=red]- 1[/COLOR][/B]
'extract liste DISC
      .[B:B] = ""
    Sheets("Plan").[F:F].AdvancedFilter Action:=xlFilterCopy, _
        CopyToRange:=.[B1], Unique:=True
      nbDisc = Application.CountA(.[B:B])[COLOR=red][B] - 1[/B][/COLOR]
'extract liste Catégories
      .[C:C] = ""
    Sheets("Plan").[E:E].AdvancedFilter Action:=xlFilterCopy, _
        CopyToRange:=.[C1], Unique:=True
      nbCat = Application.CountA(.[C:C]) [COLOR=red][B]- 1[/B][/COLOR]
End With

à+
Philippe

 

[matmat36]

Re : macro amélioration

Merci pour ton aide efficace , je vais mettre ton indicatif dans mes favoris 😀

une petite bricole(-1) qui empêche le bon fonctionnement .

Bonne journée à toi .

A une prochaine manip .

 

[matmat36]

Re : macro amélioration

re ,

tout content , ayant un bon résultat , je me suis dis :

J'ai mixer deux macros différentes sur le même fichier , cela ne fonctionne pas?, et sur deux feuilles différentes , c'est nickel , pour quelle raison , j'ai simplement déplacer la cellule N jusqu'à P sinon, la feuille résultats est brouillon , et les points ne sont plus du + grand au plus petit sur la feuille "Plan"

Je crois que je ne serais pas un pro de la macro .

merci