XL 2016 Formule "RANG" dans un tableau (compter plusieurs cellule suivant condition)

RobyL · 6 Septembre 2023

Bonjour à tous,

je sollicite votre aide pour un pb de formules :

je connais la formule pour une ligne de pris en compte : =SIERREUR(RANG([@D];Tableau1[@[D]:[T]];1);"")
mais je souhaite ajouter une condition :
SI LA COLONNE "A" contient plusieurs fois le même nombre alors je souhaite que le calcul de rang s'effectue sur les lignes correspondantes au même numéro de la colonne "A".

je sens que ce n'est pas très claire. je joint un fichier pour plus d'explication.
je vous remercie d'avance pour votre aide.

job75 · 6 Septembre 2023

Bonjour Robyl,

Voyez le fichier .xlsm joint et cette fonction VBA :

VB:

Function UnionPlage(ref As Range, plage As Range) As Range
Dim colonne As Range, i&
Set colonne = Intersect(ref.EntireColumn, plage.EntireRow).Cells
For i = 1 To plage.Rows.Count
    If colonne(i) = ref Then Set UnionPlage = Union(IIf(UnionPlage Is Nothing, plage.Rows(i), UnionPlage), plage.Rows(i))
Next
End Function

Le code doit être impérativement dans un module standard.

Formule en F2 à tirer à droite et vers le bas :

Code:

=SIERREUR(RANG(B2;UnionPlage($A2;Tableau1[[D]:[T]]);1);"")

A+

RobyL · 15 Septembre 2023

Bonjour,

Effectivement le filtre avancer est très bien.
Mais quand je filtre ou dé filtre tous les calcules xrang affiche #N/A.

Comment faire pour enlever les formule parasite ? je comprend pas je n'est rien qui s'affiche mais ma feuil1 descend effectivement jusqu'à 1189 lignes. je sélectionne le surplus (lignes entières) je supprime mais ma feuille peut toujours aller jusqu'à la ligne 1189. je pense que ça fou le bordel.

job75 · 15 Septembre 2023

Bonjour RobyL, le forum,

Que faites-vous donc ? Utilisez le fichier du post #15.

Quand dans la 1ère feuille j'entre 87 en D5 il n'y a pas de #N/A en Feuil1.

Et l'ascenseur en Feuil1 s'arrête à la ligne 450.

A+

RobyL · 15 Septembre 2023

Désoler je me suis mal exprimer.
Je voulait parler de mon fichier d'origine.
Effectivement tous marche très bien sur celui-là.
L'ascenseur de cette feuille me fait descendre jusqu'à la ligne 1889.
Je trouve ça troublant. il devrait s'arreter à la ligne 450.
J'ai effacer les lignes 30 par 30 et effectivement cela marche bien.
Merci encore pour votre aide. j'ai quelquechose de fonctionnel grace à vous.
Merci encore.

job75 · 15 Septembre 2023

RobyL à dit:
Désoler je me suis mal exprimer.
Je voulait parler de mon fichier d'origine.

Parce que le dernier fichier n'est pas le fichier d'origine ???

Alors faites-en une copie sans données confidentielles et joignez-le.

RobyL · 15 Septembre 2023

Mon fichier d'origine fait 5mo

job75 · 15 Septembre 2023

Bah mettez-le sur cjoint.com

XL 2016 Formule "RANG" dans un tableau (compter plusieurs cellule suivant condition)

RobyL

XLDnaute Junior

Pièces jointes

job75

RobyL

XLDnaute Junior

job75

XLDnaute Barbatruc

RobyL

XLDnaute Junior

job75

XLDnaute Barbatruc

RobyL

XLDnaute Junior

job75

XLDnaute Barbatruc

Discussions similaires