RerchecheV en VBA
Horusbk
-
ccm81 Messages postés 10909 Date d'inscription Statut Membre Dernière intervention -
ccm81 Messages postés 10909 Date d'inscription Statut Membre Dernière intervention -
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
A voir également:
- RerchecheV en VBA
- Excel compter cellule couleur sans vba - Guide
- Incompatibilité de type vba ✓ - Forum VB / VBA
- Erreur 13 incompatibilité de type VBA excel ✓ - Forum Excel
- Mkdir vba ✓ - Forum VB / VBA
- Dépassement de capacité vba ✓ - Forum Excel
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
