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

RobyL

XLDnaute Junior
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.
 

Pièces jointes

  • RANG.xlsx
    14.5 KB · Affichages: 14
Solution
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

XLDnaute Junior
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.
 

RobyL

XLDnaute Junior
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.
 

Discussions similaires

  • Résolu(e)
Microsoft 365 Formule
Réponses
9
Affichages
346

Statistiques des forums

Discussions
315 127
Messages
2 116 497
Membres
112 765
dernier inscrit
SIDIANW