Classement

Bonjour le forum,

En réitérant mes voeux de bonne et heureuse année, j'ai à nouveau besoin de vos compétences pour un fichier

'ELECTIONS'

J,ai un peu (ponctionné à gauche à droite) mais pas trouvé la solution

Voila, il me faudrait juste classer le résultat (en bleu) d'après le classement

1 er ...nom

2 ième...nom

etc.

de la colonne H7 à L22 (VOIR PLUS)

J'ai un code vba, mais je ne sais pas ou le mettre

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("D7:e22")) Is Nothing Then

With ActiveWorkbook.Worksheets("elec").Sort

.SetRange Range("L7:L22")

.Apply

End With

End If

End Sub

MERCI A VOUs

Cordialement

Fabien

11election.xlsm (34.25 Ko)

Bonjour Fabien,

je te retourne ton fichier modifié :

4election.xlsm (28.77 Ko)

* j'ai amélioré la présentation, et supprimé des fusions inutiles.

* en colonne C, c'est devenu inutile de saisir des données : c'est fait automatiquement

quand tu saisis un nom en colonne D ; de plus, y'a ce format personnalisé : "C"000

* pour les pourcentages, y'a ce format personnalisé : 0,00_!%

* à droite, pour ton tableau bleu : note bien qu'il n'y a plus aucune formule ; clique

sur le bouton « Classement », ou fais Ctrl e ➯ c'est classé !

* inutile d'effacer d'anciens résultats de classement : c'est fait automatiquement

* inutile de faire le classement à chaque changement de cellule ; saisis d'abord

toutes tes données, puis fais ensuite le classement.

* pour ton tableau gauche, si tu ajoutes des données sous la ligne 22,

elles seront prises en compte automatiquement.

* j'ai bien vu ta formule bizarre en I4 ; j'vois pas bien à quoi elle sert,

même si j'ai vu qu'elle est utilisée par G1 ; puis G1 n'est pas utilisé.


Alt F11 pour voir le code VBA, puis revenir sur Excel

regarde le code de Module1, et aussi celui de ThisWorkbook

si besoin, tu peux demander une adaptation.

merci de me dire si ça te convient.

dhany

attention : dans ton fichier initial, ta forme pour « SOMMAIRE » était en double !

tu avais à la fois « Rectangle à coins arrondis 2 » et « Rectangle à coins arrondis 3 ».

j'ai supprimé « Rectangle à coins arrondis 3 ».

à toi d'en faire autant dans ton vrai fichier.

dhany

version avec sub effacer_données() complétée :

7election.xlsm (29.01 Ko)

dhany

Je viens de tester le fichier, ce dernier fonctionne à merveille

Merci Dhany

merci pour ton retour ! pour passer le sujet en résolu, clique sur près de (coin haut droit du post); ça permet aussi de clôturer le fil de la discussion (toi seul peut le faire, car c'est toi qui a créé ce sujet).

dhany

Rechercher des sujets similaires à "classement"