Classement suivant case à cocher

3dbillard · 23 Février 2011

Bonjour à tous,
j'ai une feuille avec un classement automatique qui se fait selon des critères dans un ordre, je voudrais que si l'on coche une case le classement se fasse dans un autre ordre. Un petit fichier joint sera plus parlant, mon classement se fait suivant "Calcul".
Merci d'avance et bonne journée à tout le monde.

Softmama · 23 Février 2011

Re : Classement suivant case à cocher

Bonjour 3dbillard,

essaie ce code :

VB:

Private Sub CheckBox1_Click()
    Range("S49:S51").FormulaR1C1 = IIf(CheckBox1, "=(RANK(RC[-6],R49C[-6]:R51C[-6])&RANK(RC[-5],R49C[-5]:R51C[-5])&RANK(RC[-2],R49C[-2]:R51C[-2]))*1", "=(RANK(RC[-6],R49C[-6]:R51C[-6])&RANK(RC[-4],R49C[-4]:R51C[-4])&RANK(RC[-3],R49C[-3]:R51C[-3])&RANK(RC[-2],R49C[-2]:R51C[-2]))*1")
End Sub

à mettre à la place de celui qui existe (et qui est vide)

3dbillard · 23 Février 2011

Re : Classement suivant case à cocher

Merci Softmama,
c'est exactement ça, merci encore d'aider à faire progresser tous les petits débutants du site. Bonne journée à tous et à bientôt.

3dbillard · 24 Février 2011

Re : Classement suivant case à cocher

Bonjour si quelqu'un ou Softmama peut m'aider à modifier, la formule ci-dessus, car j'ai un autre fichier ou la première selection est "AS49:AS51" au lieu de "S49:S51". j'ai essayé de rajouter un A devant les sélections , mais j'ai du ratter quelque chose. Merci

Softmama · 24 Février 2011

Re : Classement suivant case à cocher

bonjour,

si tu veux placer les formules en [AS49:AS51] au lieu de [S49:S51] il faut non seulement (comme tu l'as fait) modifier l'adresse concernée mais éfgalement décaler les références aux cellules de 26 colonnes (Colonne AS, située à 26 colonnes de la colonne S). Ainsi la macro devient logiquement :

VB:

Private Sub CheckBox1_Click()
    Range("AS49:AS51").FormulaR1C1 = IIf(CheckBox1, "=(RANK(RC[-32],R49C[-32]:R51C[-32])&RANK(RC[-31],R49C[-31]:R51C[-31])&RANK(RC[-28],R49C[-28]:R51C[-28]))*1", "=(RANK(RC[-32],R49C[-32]:R51C[-32])&RANK(RC[-30],R49C[-30]:R51C[-30])&RANK(RC[-29],R49C[-29]:R51C[-29])&RANK(RC[-28],R49C[-28]:R51C[-28]))*1")
End Sub

3dbillard · 24 Février 2011

Re : Classement suivant case à cocher

Merci Softmama, la formule est en [AS49:AS51] mais le tableau est dans la continuité, un petit fichier en pièce jointe.
Merci du temps accordé.

Softmama · 24 Février 2011

Re : Classement suivant case à cocher

Re,

Bon ben ça a l'air de marcher, je ne vois pas ce qui t'ennuie. Cf. fichier joint

VB:

Private Sub CheckBox1_Click()
    Range("AS49:AS51").FormulaR1C1 = IIf(CheckBox1, "=(RANK(RC[-6],R49C[-6]:R51C[-6])&RANK(RC[-5],R49C[-5]:R51C[-5])&RANK(RC[-2],R49C[-2]:R51C[-2]))*1", "=(RANK(RC[-6],R49C[-6]:R51C[-6])&RANK(RC[-4],R49C[-4]:R51C[-4])&RANK(RC[-3],R49C[-3]:R51C[-3])&RANK(RC[-2],R49C[-2]:R51C[-2]))*1")
End Sub

3dbillard · 24 Février 2011

Re : Classement suivant case à cocher

Bonsoir, effectivement ça marche c'est juste que le nom de la case à cocher, n'était pas le bon. Merci pour tout et bonne soirée.

Classement suivant case à cocher

3dbillard

XLDnaute Junior

Pièces jointes

Softmama

XLDnaute Accro

3dbillard

XLDnaute Junior

3dbillard

XLDnaute Junior

Softmama

XLDnaute Accro

3dbillard

XLDnaute Junior

Pièces jointes

Softmama

XLDnaute Accro

3dbillard

XLDnaute Junior

Discussions similaires