Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Trier une plage

  • Initiateur de la discussion Initiateur de la discussion Caninge
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Caninge

XLDnaute Accro
Bonjour à tous,

Je cherche la formule pour trier une colonne tout en déplaçant les lignes concernées.

je suis maladroit pour poser ma question, j'envoie un exemple en pièce jointe.

je vous remercie

Caninge
 

Pièces jointes

Re : Trier une plage

Bonjour JOB 75,

le résultat escompté est bien celui que je veux.

Mais les formules du tableau de droite (après) ne dépendent pas du tableau de gauche (avant) qui lui n'existe pas !

Les calculs se font d'après l'onglet LIGUE 1 & 2, tu me comprends ?

Je modifie mon fichier

Bon dimanche et merci

Caninge
 

Pièces jointes

Re : Trier une plage

Bonjour Caninge, le forum,

Vous voulez le beurre et l'argent du beurre ?

Si le 1er tableau n'existe pas créez-le, et masquez-le éventuellement !!!

Bonne journée.
 
Re : Trier une plage

Re,

Maintenant avec VBA un seul tableau (sans formules) suffit :

Code:
Private Sub Worksheet_Activate()
Dim ncol%, source As Range, dest As Range, t, i&
ncol = 7 'nombre de colonnes, à adapter
Set source = Feuil1.[B2].CurrentRegion.Columns(9) 'à adapter
Set dest = [B4].CurrentRegion.Resize(, ncol) 'à adapter
Application.ScreenUpdating = False
'---remplissage de la 2ème colonne---
t = dest.Resize(, 2) 'matrice, plus rapide
For i = 1 To UBound(t)
  t(i, 2) = Application.CountIf(source, t(i, 1)) 'NB.SI
Next
dest.Columns(2) = Application.Index(t, , 2)
'---tri décroissant sur la 2ème colonne---
dest.Sort dest(1, 2), xlDescending, Header:=xlNo 'pas de titres
dest.Columns(2).Replace 0, "#N/A", xlWhole
'---couleur---
dest.Interior.Color = vbYellow 'jaune
'---effacements---
On Error Resume Next 'si aucun #N/A
With Intersect(dest, dest.Columns(2).SpecialCells(xlCellTypeConstants, 16).EntireRow)
  .Interior.ColorIndex = xlNone
  .Columns(2).ClearContents
End With
End Sub
Fichier joint.

A+
 

Pièces jointes

Re : Trier une plage

Re,

bonjour

je suis pénible je sais, en ce moment le patron et la copine me grondent . et job 75 (je blague)

Si j'avais posé ma question convenablement cela aurait été mieux je pense, c'est comme au scrabble quand
on a un mauvais tirage, vous avez la mouise qui vous poursuit.

revenons à nos moutons :

je n'en voulais pas tant, une ou plusieurs formules me suffisent sans passer par une VBA.

d'autant plus que je vais rajouter d'autres feuilles "essai formule "

A plus

merci
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
3
Affichages
144
Réponses
16
Affichages
473
Réponses
20
Affichages
556
  • Question Question
XL 2019 MFC
Réponses
6
Affichages
201
Réponses
7
Affichages
174
Réponses
37
Affichages
941
Réponses
4
Affichages
197
  • Question Question
Microsoft 365 Fonction si
Réponses
7
Affichages
135
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…