Discussion :

[Novice_vba]

Bonjour,

J'ai un problème tout bête qui ne devrait pas prendre beaucoup de temps à résoudre pour quelqu'un qui connait le phénomène.

La fonction recherchev (et vlookup dans vba) semble marcher quand j'appelle la matrice dans laquelle je recherche par "nom" de colonne
Par exemple, le code suivant marche :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.vlookup("mot", Range("AR:AT"),2,faux)

Par contre, quand j'adresse mes colonnes par rapport au numéro de colonne (en utilisant des variables, cela ne marche plus...
Pour le même exemple, le code ne marche plus si j'écris :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Public début_recherche as Byte
Public fin_recherche as Byte
 
sub recherche
 début_recherche = 44
fin_recherche  = 46
 
Application.vlookup("mot",Range(Columns(début_recherche ),columns(fin_recherche  )),2,faux)

J'avoue ne pas comprendre pourquoi...
Le pire est que si je met tout simplement 44 et 46 à la place des variables, mon programme marche !

Quelqu'un saurait-il où vient mon erreur ?

[EngueEngue]

Marche très bien

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub recherche()
 début_recherche = 1
fin_recherche = 2
 
MsgBox (Application.VLookup("mot", Range(Columns(début_recherche), Columns(fin_recherche)), 2, False))
End Sub

[Novice_vba]

Bonjour Enguegue,

J'avais trop simplifié. Maintenant, je me rends compte que ce code marche. Un grand merci déjà à toi, car cela me permet de préciser mon problème :

C'est quand je fais référence à une autre feuille que le code ne marche pas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Sub recherche()
 début_recherche = 1
fin_recherche = 2
 
MsgBox (Application.VLookup("mot", Worksheets("nom_feuil_2").Range(Columns(début_recherche), Columns(fin_recherche)), 2, False))
End Sub

j'ai testé. celui-ci ne marche pas...

[EngueEngue]

Si ta rechercheV ne trouve pas elle va te renvoyer une erreur... (Normal)

On error goto ....

[Novice_vba]

Bonjour Enguegue,

D'abord, quand ma recherchev ne marchait pas avec mon code précédent, elle me renvoyait "#N/A", mais passait à la ligne suivante sans me mettre de message d'erreur.

Ensuite, j'ai testé sur une ligne dont je suis sûre que ma recherchev devrait trouver quelque chose, et il apparait quand même un message d'erreur.

[EngueEngue]

Moi le code me trouve bien les valeurs.. donc je ne comprends pas trop