Affecter une valeur à une RECHERCHEV en VBA

[BoZZo]

Bonjour,
Je souhaiterai écrire un code vba permettant d'affecter la valeur d'une cellule connue à une cellule désignée par RECHERCHEV.
Pour le moment, mon code est :

Sub Test ()
[RECHERCHEV(A1, "matrice", "numéro colonne")]=[cellule]
End sub

Le message d'erreur renvoyé est "objet requis"....
Pourriez vous m'éclairer svp?
D'avance merci.

 

[Pierrot93]

Re : Affecter une valeur à une RECHERCHEV en VBA

Bonjour,

Regarde dans l'aide vba la m"thode "FIND", dans l'éditeur, curseur positionné sur le mot, touche de fonction F1...

bon après midi
@+

 

[mutzik]

Re : Affecter une valeur à une RECHERCHEV en VBA

bonjour,

pourquoi par VBA ???
mets ta formule dans une cellule, et puis voilà

 

[BoZZo]

Re : Affecter une valeur à une RECHERCHEV en VBA

Bonjour, merci pour vos réponses rapide.

@ Mutzik : je veux que lorsqu'on appuie sur un bouton, le code se lance. Donc vba il me semble.

@pierrot93 : si j'ai bien compris les explications, la fonction FIND permet de trouver une cellule. Mais peut on trouver la cellule de la Xème colonne, de la même ligne que "nom"? Je débute en vba et je ne sais aps vraiment ce qui est faisable ou non. merci

 

[Pierrot93]

Re : Affecter une valeur à une RECHERCHEV en VBA

Re,

oui, en utilisant la propriété "offset" de la cellule trouvée....

 

[BoZZo]

Re : Affecter une valeur à une RECHERCHEV en VBA

Je n'arrive pas vraiment à me dépatouiller avec ces fonctions que je ne sais pas utilisé...

Pardon d'être lourd, mais quel est le problème avec le code que j'ai écrit à la base?

 

[Pierrot93]

Re : Affecter une valeur à une RECHERCHEV en VBA

Re,

Pardon d'être lourd, mais quel est le problème avec le code que j'ai écrit à la base?

Bah, en l'état pas vraiment du vba....

 

[BoZZo]

Re : Affecter une valeur à une RECHERCHEV en VBA

Et il n'y a pas une fonction vba équivalente? en cherchant sur le forum j'ai vu VLOOK, mais on dirait juste la traduction de RECHERCHEV...

 

[Pierrot93]

Re : Affecter une valeur à une RECHERCHEV en VBA

Re,

tu peux appeler la fonction de feuille de calcul :

WorksheetFunction.VLookup

mettre entre parenthèses les différents arguments, séparés par des virgules...

mais bon... quitte à faire du vba, autant utiliser les fonctions natives vba, tant que faire ce peut...

 

[BoZZo]

Re : Affecter une valeur à une RECHERCHEV en VBA

Je suis tout à fait d'accord, mais je suis une bille en vba ^^ donc je ne sais pas comment traduire la fonctionnalité recherchev en vba. Est-ce en utilisant FIND et offset? Si oui, je ne sais pas comment...

 

[Pierrot93]

Re : Affecter une valeur à une RECHERCHEV en VBA

Re,

en vba cela donnerais ceci :

Option Explicit
Sub test()
Dim x As Range
Set x = Columns(2).Find("TexteRecheché", , xlValues, xlWhole, , , False)
If Not x Is Nothing Then ActiveCell.Value = x.Offset(0, 1).Value
End Sub

la recherche s'effectuant sur la colonne 2 de la feuille active, ramène, si la valeur est trouvée, la valeur de la cellule d'à coté dans la cellule active....

 

[BoZZo]

Re : Affecter une valeur à une RECHERCHEV en VBA

En fait j'ai un tableau de données, et je veux que la 11ème colonne de la ligne correspondant à un nom de la 1ère colonne, soit remplacée par la valeur d'une cellule se trouvant sur une autre feuille.

 

[Pierrot93]

Re : Affecter une valeur à une RECHERCHEV en VBA

Re,

modifie comme suit, la recherche s'effectue sur la feuille active, nom de la feuille et référence de la cellule dont la valeur est à copier sont à adapter :

Option Explicit
Sub test()
Dim x As Range
Set x = Columns(1).Find("TexteRecheché", , xlValues, xlWhole, , , False)
If Not x Is Nothing Then x.Offset(0, 9).Value = Sheets("NomFeuille").Range("tacellule")
End Sub

 

[BoZZo]

Re : Affecter une valeur à une RECHERCHEV en VBA

Aaah super ça marche ! mais en fait je voudrais que la recherche se fasse sur une autre feuille active mais sur une autre, est-ce possible?

 

[Pierrot93]

Re : Affecter une valeur à une RECHERCHEV en VBA

Re,

il faut le préciser :

Option Explicit
Sub test()
Dim x As Range
Set x = Sheets("NomFeuilleXX").Columns(1).Find("TexteRecheché", , xlValues, xlWhole, , , False)
If Not x Is Nothing Then x.Offset(0, 9).Value = Sheets("NomFeuille").Range("tacellule")
End Sub