XL pour MAC code VBA fonction

  • Initiateur de la discussion Initiateur de la discussion Delorme
  • Date de début Date de début
  • Mots-clés Mots-clés
    vba

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 !

Delorme

XLDnaute Occasionnel
Bonjour à tous

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 ?

merci d'avance

Michel
 
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
 

Pièces jointes

Bonjour à tous 😉,

É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)

Bon dimanche à tous 🙂.
 
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
Merci beaucoup
A bientôt pour d'autres prob
Michel
 
Bonjour à tous 😉,

É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)

Bon dimanche à tous 🙂.
Merci aussi
michel
 
- 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

Discussions similaires

Réponses
6
Affichages
116
Réponses
5
Affichages
267
  • Question Question
Autres Code VBA
Réponses
11
Affichages
253
Réponses
4
Affichages
296
Réponses
4
Affichages
228
Réponses
6
Affichages
172
Réponses
5
Affichages
173
Réponses
2
Affichages
209
Retour