Affecter une valeur à une RECHERCHEV en VBA

Pierrot93

XLDnaute Barbatruc

• 23 Février 2011

• #2

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
@+

 

Vote positif 0 Vote négatif

mutzik

XLDnaute Barbatruc

• 23 Février 2011

• #3

Re : Affecter une valeur à une RECHERCHEV en VBA

bonjour,

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

 

Vote positif 0 Vote négatif

B

BoZZo

Guest

• 23 Février 2011

• #4

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 23 Février 2011

• #5

Re : Affecter une valeur à une RECHERCHEV en VBA

Re,

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

 

Vote positif 0 Vote négatif

B

BoZZo

Guest

• 23 Février 2011

• #6

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?

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 23 Février 2011

• #7

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?

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

B

BoZZo

Guest

• 23 Février 2011

• #8

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...

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 23 Février 2011

• #9

Re : Affecter une valeur à une RECHERCHEV en VBA

Re,

tu peux appeler la fonction de feuille de calcul :

Code:

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...

 

Vote positif 0 Vote négatif

B

BoZZo

Guest

• 23 Février 2011

• #10

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...

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 23 Février 2011

• #11

Re : Affecter une valeur à une RECHERCHEV en VBA

Re,

en vba cela donnerais ceci :

Code:

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....

 

Vote positif 0 Vote négatif

B

BoZZo

Guest

• 23 Février 2011

• #12

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.

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 23 Février 2011

• #13

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 :

Code:

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

 

Vote positif 0 Vote négatif

B

BoZZo

Guest

• 23 Février 2011

• #14

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?

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 23 Février 2011

• #15

Re : Affecter une valeur à une RECHERCHEV en VBA

Re,

il faut le préciser :

Code:

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

 

Vote positif 0 Vote négatif