(Re) Deplacer que le mot contenu dans une cellule par (Guido) et pour (Job75)

[JBARBE]

Bonjour Job, Bonjour à tous,
Ci-joint le fichier de Guido qui bug en cliquant sur le bouton "Filtre" (il ne faut qu'utiliser le bouton "Filtre")
Merci pour lui !
Bonne journée

 

[job75]

Bonjour JBARBE,

J'espère que ce n'est pas toi qui a bricolé le fichier (6) que j'ai déposé sur ce post :

https://www.excel-downloads.com/thr...enus-dans-une-cellule.20016291/#post-20119016

Il suffisait de l'utiliser tel quel mais bon de toute façon les apprentis sorciers pullulent sur XLD...

1) La fonction NbVert doit se trouver dans un seul module, elle a été placée dans 3 !!!

2) Les feuilles R1 R2 R3... doivent être préformatée exactement comme je l'ai fait.

Le tableau de chaque course peut être vidé sauf la 5ème ligne avec N° Fav Ml0 Ml3...

Cela dit si l'on veut aussi effacer cette ligne il faut compléter le code du tri avec .Resize(, 6) :

      '---classement des résultats sur Total---
      c(5, 27).CurrentRegion.Resize(, 6).Sort c(5, 32), xlDescending, Header:=xlYes, Orientation:=xlTopToBottom

Ci-joint ton fichier corrigé, maintenant il fonctionne.

A+

 

[JBARBE]

Re,
Ce n'est pas mon fichier et je n'ai fait que transposer tes modules !
Merci quand même pour Guido que j'aide comme je peux !
bonne soirée