Rechercher la ligne d'un Nème doublon
Résolu/Fermé
rey wolfheart
-
Modifié par rey wolfheart le 20/10/2015 à 13:42
rey wolfheart - 20 oct. 2015 à 15:18
rey wolfheart - 20 oct. 2015 à 15:18
A voir également:
- Rechercher la ligne d'un Nème doublon
- Rechercher ou entrer l'adresse - Guide
- Aller à la ligne excel - Guide
- Adresse IP locale : comment la trouver facilement - Guide
- Hors ligne instagram - Guide
- Vente en ligne particulier - Guide
1 réponse
via55
Messages postés
14402
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
18 avril 2024
2 702
20 oct. 2015 à 14:57
20 oct. 2015 à 14:57
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
20 oct. 2015 à 15:18