Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
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 !
Passioné d'excel et merci d'avoir solutionné mes problems precedents
Je voudrais pour le fun, avoir en code vba la fonction" rechercheV"
Est ce possible ?
Bonjour Delorme, Kiki,
Comme c'est juste pour le fun j'ai fait l'impasse du paramètre "égal" ou "le plus proche", juste pour valider le principe avec un code simple.
La syntaxe est:
VB:
'=RechercheVperso(Valeur;Plage;Colonne)
avec
Valeur : valeur recherchée
Plage : Plage où rechercher
Colonne : N° de la colonne de la valeur à remonter
La fonction est :
Code:
Function RechercheVperso(Valeur, Plage, Colonne)
RechercheVperso = "" ' Au cas où la valeur n'est pas trouvé, renvoie vide
tablo = Plage ' Transfert plage dans array
For i = 1 To UBound(tablo) ' Pour toutes les lignes du tableau
If tablo(i, 1) = Valeur Then ' Si la valeur de la 1ere colonne est = à Valeur
RechercheVperso = tablo(i, Colonne) ' renvoie la valeur de la Nième colonne
Exit Function ' On sort car trouvé
End If
Next i
End Function
Étant en ce matin dominical d'humeur badine et espiègle, un code carrément "foutage de goule" (un peu honteux quand même 😳 ) :
VB:
Function RechercheVV(Valeur, Plage As Range, Ncolonne&, Proche As Boolean)
RechercheVV = Application.VLookup(Valeur, Plage, Ncolonne, Proche)
End Function
Désolé, mais je recommencerai ... (en fait même pas honte)
Bonjour Delorme, Kiki,
Comme c'est juste pour le fun j'ai fait l'impasse du paramètre "égal" ou "le plus proche", juste pour valider le principe avec un code simple.
La syntaxe est:
VB:
'=RechercheVperso(Valeur;Plage;Colonne)
avec
Valeur : valeur recherchée
Plage : Plage où rechercher
Colonne : N° de la colonne de la valeur à remonter
La fonction est :
Code:
Function RechercheVperso(Valeur, Plage, Colonne)
RechercheVperso = "" ' Au cas où la valeur n'est pas trouvé, renvoie vide
tablo = Plage ' Transfert plage dans array
For i = 1 To UBound(tablo) ' Pour toutes les lignes du tableau
If tablo(i, 1) = Valeur Then ' Si la valeur de la 1ere colonne est = à Valeur
RechercheVperso = tablo(i, Colonne) ' renvoie la valeur de la Nième colonne
Exit Function ' On sort car trouvé
End If
Next i
End Function
Étant en ce matin dominical d'humeur badine et espiègle, un code carrément "foutage de goule" (un peu honteux quand même 😳 ) :
VB:
Function RechercheVV(Valeur, Plage As Range, Ncolonne&, Proche As Boolean)
RechercheVV = Application.VLookup(Valeur, Plage, Ncolonne, Proche)
End Function
Désolé, mais je recommencerai ... (en fait même pas honte)
- 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