Sujet Précédent Sujet Suivant

RerchecheV en VBA

Fermé
Horusbk - 6 juil. 2017 à 10:06
ccm81 Messages postés 10903 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 19 novembre 2024 - 8 juil. 2017 à 15:46
Bonjour,

J'aimerais réaliser une rechercheV via VBA sur une colonne précise pour des raisons pratiques. Voici ma formule excel, pourriez-vous me la traduire en VBA de telle sorte à ce que les valeurs soient calculées à chaque fois que la feuille ADAPTATION est activée. 

=SI(ESTVIDE(K3);"";SI(ESTNA(RECHERCHEV(K3;PLAGEparticularite;2;0));"";RECHERCHEV(K3;PLAGEparticularite;2;0)))


La formule est dans toutes les cellules de la colonne M.
K3= fait référence à la valeur recherchée (elle est différente à chaque ligne !)
PLAGEparticularite = ma plage de cellule pour trouver la bonne référence à afficher
2 : la recherche se fais sur la deuxième colonne de ma plage

Merci pour votre assistance.
cordialement baptiste


1 réponse

Réponse 1 / 1
ccm81 Messages postés 10903 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 19 novembre 2024 2 427
8 juil. 2017 à 15:46
Bonjour

A adapter 

Public Sub OK()
Dim obj As Object, PLAGEparticularite As Range, valeur, resultat
'RECHERCHEV(K3;PLAGEparticularite;2;0))
Set PLAGEparticularite = Range("B5:D15")
valeur = Range("K3").Value
Set obj = PLAGEparticularite.Find(valeur, , , xlWhole)
If obj Is Nothing Then
  MsgBox valeur & " pas trouvé"
Else
  resultat = obj.Offset(0, 1)
  MsgBox "resultat : " & resultat
End If
End Sub

Private Sub Worksheet_Activate()
Call OK
End Sub

Cdlmnt
0

Discussions similaires

"L'indice n'appartient à la sélection" + VBA
fleur.31 -
geosevda -

2 réponses
Erreur d'exécution 13 Incompatibilité de type
grace -
pijaku -

5 réponses
ouverture d'un fichier excel à partir d'un code VBA
TraderAS -
pijaku -

3 réponses
Méthode find dans VBA - Recherche de données sous Excel
baissaoui -
baissaoui -

0 réponse
appliquer une pause dans une macro vba excel
ch'duj -
lerif25 -

10 réponses