RerchecheV en VBA
Horusbk
-
ccm81 Messages postés 11033 Statut Membre -
ccm81 Messages postés 11033 Statut Membre -
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.
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
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
Bonjour
A adapter
Cdlmnt
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
