Faire un classement horizontal
Résolu/Fermé
JCB40
Messages postés
2878
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
14 avril 2024
-
21 mars 2020 à 15:53
JCB40 Messages postés 2878 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 14 avril 2024 - 21 mars 2020 à 16:54
JCB40 Messages postés 2878 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 14 avril 2024 - 21 mars 2020 à 16:54
A voir également:
- Faire un classement horizontal
- Logiciel classement photo - Guide
- Ps5 vertical ou horizontal - Guide
- Logiciel de classement de documents gratuit - Télécharger - Bureautique
- Gmail regle de classement - Guide
- Trait horizontal sur écran tv - Forum Matériel & Système
7 réponses
Mike-31
Messages postés
18310
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
29 mars 2024
5 073
Modifié le 21 mars 2020 à 15:58
Modifié le 21 mars 2020 à 15:58
Bonjour,
comme cela si ta première formule est colonne A sinon il faut adapter
=GRANDE.VALEUR($A$3:$E$3;COLONNE())
comme cela si ta première formule est colonne A sinon il faut adapter
=GRANDE.VALEUR($A$3:$E$3;COLONNE())
yclik
Messages postés
3589
Date d'inscription
vendredi 25 juillet 2014
Statut
Membre
Dernière intervention
18 avril 2024
1 479
21 mars 2020 à 16:39
21 mars 2020 à 16:39
Bonjour
pour avoir les noms
en A8 et recopier à droite
pour avoir les noms
en A8 et recopier à droite
=INDEX($A$1:$E$1;1;EQUIV(GRANDE.VALEUR($A$3:$E$3;COLONNE());$A$3:$E$3;0))
Mike-31
Messages postés
18310
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
29 mars 2024
5 073
21 mars 2020 à 16:42
21 mars 2020 à 16:42
Re,
ah oui je n'avais pas vu pour les Noms, je reviens avec la formule
ah oui je n'avais pas vu pour les Noms, je reviens avec la formule
Mike-31
Messages postés
18310
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
29 mars 2024
5 073
21 mars 2020 à 16:52
21 mars 2020 à 16:52
Re,
voila, en A8 colle cette formule
=INDEX($A$1:$E$1;EQUIV(A10;$A$3:$E$3;0))
en A10
la formule précédente =GRANDE.VALEUR($A$3:$E$3;COLONNE())
et incrémente les deux formules vers la droite
voila, en A8 colle cette formule
=INDEX($A$1:$E$1;EQUIV(A10;$A$3:$E$3;0))
en A10
la formule précédente =GRANDE.VALEUR($A$3:$E$3;COLONNE())
et incrémente les deux formules vers la droite
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
JCB40
Messages postés
2878
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
14 avril 2024
461
21 mars 2020 à 16:21
21 mars 2020 à 16:21
Bonjour Mike-31
Merci pour ton intervention
Ta formule ne fonctionne que sur la ligne 3 le classement est bon
mais il faut que ce qu'il y a dans ligne 1 et 2 suive cette ligne 3
Cordialement
Merci pour ton intervention
Ta formule ne fonctionne que sur la ligne 3 le classement est bon
mais il faut que ce qu'il y a dans ligne 1 et 2 suive cette ligne 3
Cordialement
JCB40
Messages postés
2878
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
14 avril 2024
461
Modifié le 21 mars 2020 à 16:51
Modifié le 21 mars 2020 à 16:51
J'ai fait une macro mais j'ai un bug sur .Apply parce que dans ma plage il peut y avoir des cellules vides au moment ou j'active mon bouton (tri)
Comment remédier à ce problème
Crdlt
Sub tri()
' tri Macro
Range("C5:P7").Select
Range("P1").Activate
ActiveWorkbook.Worksheets("ELECTIONS").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("ELECTIONS").Sort.SortFields.Add Key:=Range("C5:P7") _
, SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("ELECTIONS").Sort
.SetRange Range("C5:P7")
.Header = xlGuess
.MatchCase = False
.Orientation = xlLeftToRight
.SortMethod = xlPinYin
.Apply
End With
End Sub
J'ai trouvé mon erreur dans le code
ActiveWorkbook.Worksheets("ELECTIONS").Sort.SortFields.Add Key:=Range("C5:P7") _ il faut mettre C7:P7
Comment remédier à ce problème
Crdlt
Sub tri()
' tri Macro
Range("C5:P7").Select
Range("P1").Activate
ActiveWorkbook.Worksheets("ELECTIONS").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("ELECTIONS").Sort.SortFields.Add Key:=Range("C5:P7") _
, SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("ELECTIONS").Sort
.SetRange Range("C5:P7")
.Header = xlGuess
.MatchCase = False
.Orientation = xlLeftToRight
.SortMethod = xlPinYin
.Apply
End With
End Sub
J'ai trouvé mon erreur dans le code
ActiveWorkbook.Worksheets("ELECTIONS").Sort.SortFields.Add Key:=Range("C5:P7") _ il faut mettre C7:P7
JCB40
Messages postés
2878
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
14 avril 2024
461
21 mars 2020 à 16:54
21 mars 2020 à 16:54
Merci à tous les 2
j'ai résolu mon problème de code VBA post 3 pour effectuer mon tri sur le fichier original
Cordialement
j'ai résolu mon problème de code VBA post 3 pour effectuer mon tri sur le fichier original
Cordialement