Rechercher la ligne d'un Nème doublon
Résolu
rey wolfheart
-
rey wolfheart -
rey wolfheart -
Bonjour,
dans l'exemple si dessous,
A B
___________
8 1
10 2
4 8
8 5
8 8
8 20
j'aimerai trouver une fonction comme suit :
=fonction(valeur à rechercher ; tableau ; nombres d'apparitions)
exemple :
=fonction(B3;A:A;3)
renvoi la valeur 5, la valeur 5 correspond au numéro de la ligne dans la colonne A avec la valeur B3 (c'est à dire "8") qui apparait pour la (Xème fois) 3ème fois dans cette colonne.
merci, à tous
dans l'exemple si dessous,
A B
___________
8 1
10 2
4 8
8 5
8 8
8 20
j'aimerai trouver une fonction comme suit :
=fonction(valeur à rechercher ; tableau ; nombres d'apparitions)
exemple :
=fonction(B3;A:A;3)
renvoi la valeur 5, la valeur 5 correspond au numéro de la ligne dans la colonne A avec la valeur B3 (c'est à dire "8") qui apparait pour la (Xème fois) 3ème fois dans cette colonne.
merci, à tous
A voir également:
- Rechercher la ligne d'un Nème doublon
- Partager photos en ligne - Guide
- Rechercher ou entrer l'adresse - Guide
- Aller à la ligne excel - Guide
- Mètre en ligne - Guide
- Doublon photo - Guide
1 réponse
Bonjour
Essaie ceci comme fonction personnalisée
:
Cdlmnt
Via
Essaie ceci comme fonction personnalisée
:
Function nieme(cherché As Range, plage As Range, nbapp As Integer)
result = "non trouvé"
'adresse colonne choisie
a = plage.Address
'lettre de la colonne choisie
col = Left(a, Application.WorksheetFunction.Search(":", a) - 1)
Dim derligne As Long
'dernière ligne remplie de la colonne choisie
derligne = Range(a).Find("*", , , , xlByColumns, xlPrevious).Row
' Boucle jusqu'à ce que n° de ligne=derligne ou que le nbre dd'apparitions est atteint
Do Until nl = derligne Or x = nbapp
'incrementation n° de ligne
nl = nl + 1
' si valeur en colonne chosie=valeur cherchée incrémentation de x de 1
If Range(col & nl) = cherché.Value Then x = x + 1
'si x=nbre apparitions recherché, result= N° de ligne
If x = nbapp Then result = nl
Loop
'retour du resultat
nieme = result
End Function
Cdlmnt
Via
rey wolfheart
merci, au top