[VBA] Besoin d'un coup de main svp ^^ Résolu/Fermé

Question

Bonjour,

j'ai besoin d'un coup de main pour une ligne de code VBA.

var_designation et var_ref sont mes variables. J'aimerais utiliser ces variables dans une formule recherchev dans VBA.

mon prog est : 

var_designation = VLookup(var_ref, "references!A2:B200", "2", "FALSE")

le programme de reconnait pas "var-ref" comme une variable mais comme un texte.
La valeur affectée a "var_designation" est donc "FALSE".

Merci à ceux qui prendront la peine de m'épauler sur ce coup-là ^^.

giheller · Answer

bonjour

il faut peut être déclarer explicitement la variable afin qu'elle soit considérée comme tel.
et l'initialiser sinon elle prned pour contenu son nom.

Alanderson69 · Answer

ma variable semble être déclarée dans les normes :

Public var_designation
Public var_ref

Je ne comprend pas le probleme

giheller · Answer

est-elle initialisée ?
avant de l'utiliser essyez d'afficher son contenu pour voir ce qu'elle contient.

Bidouilleu_R · Answer

Bonjour
l'initialiser c'est écrire ...

set var_ref = range("C3") par exemple.
A+

Alanderson69 · Answer

le problème est que je ne veux pas afficher le résultat de ma formule dans une cellule mais directement dans une zone de texte sur mon Userform.
j'ai essayé de créer une macro pour afficher le résultat dans une cellule pour connaitre la synthaxe pour la formule en VBA. Malheureusement je ne trouve pas comment l'adapter à ma situation.
Merci à ceux qui se donnent la peine de m'aider.

Bidouilleu_R · Answer

Bonjour,
Amon avis, il faut que tu déclare une variable globale.

Avant le module, comme ça.

Public maVariable as string  ' string ou integer ou variant

sub monmodule()
'ici les calculs

maVariable =sheets("feuil1").range("C3").value  ' ou autre chose
userform1.show

end sub

et dans l'initialisation du userform tu met

userform1.textbox1.value=mavarible

Explique clairement ce que tu veux car on ne connaît ni ton code ni ton besoin.
A+

Alanderson69 · Answer

merci pour ton aide.
Je te donne ma ligne de code qui pose probleme:

var_designation = VLOOKUP(var_ref,'references'!R[2]C[2]:R[200]C[2],2,FALSE)

Je vais essayer ton alternative, mais ca ne m'arrange pas de passer par une cellule.
Je pense qu'il s'agit uniquement d'un problème de synthaxe.
Merci de m'aiguiller a nouveau.
Est-ce possible de récupérer une adresse MSN ? ca sera plus facile. Merci beaucoup

Bidouilleu_R · Answer

C'est bon j'ai compris ton erreur!!!

var_designation = VLOOKUP(var_ref,'references'!R[2]C[2]:R[200]C[2],2,FALSE) 
cette fonction "vlookup" n'existe pas en visual basic du moins pas sous ce nom.
Quand tu recopies une fonction ici recherchev avec l'enregistreur VBA traduit la fonction en anglais ici vlookup mais il faut utiliser en VBA range.find

je regarde et je complète sauf si tu as trouvé.

A+

Alanderson69 · Answer

var_designation = range.find(var_ref,'references'!R[2]C[2]:R[200]C[2],2,FALSE)

ne marche pas non plus : sur l'apastrophe de "  'references'  " il me dit : 
Erreur de compilation
Attendu : Expression

Bidouilleu_R · Answer

Essaye en procédant comme ça!


j'ai adapté d'après l'aide de VBA ta recherche...


Sub test()



 Dim C as variant
 var_designation as variant
 Dim VarRéf As Variant


 'Je procéderai comme ça
 ' 1 ) je nomme la base1 en tant qu'objet
 
Set base1 = Sheets("feuil1").Range("E5:G8")  ' la tu mets ta base

 ' 2) je crée une variable VarRéf : ce que tu cherches
  VarRéf = Sheets("feuil1").Range("F2").Value  
 ' tu peux utiliser une saisie différente
 
 With Worksheets("feuil1").Range(base1.Address)  ' il faut adapter ici ta base
    Set c = .Find(VarRéf, LookIn:=xlValues)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            
            var_designation = c.Offset(0, 1)   ' je prend la valeur de la colonne à droite
            Set c = .FindNext(c)                                           ' ici on cherche le suivant
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With


MsgBox ("résultat pour " & VarRéf & "  : ..." & var_designation)
End Sub

Alanderson69 · Answer

j'essaie ta solution. Merci pour toute ton aide, je te tiens au courant pour la suite ^^

Alanderson69 · Answer

ca marche ! merci pour ton aide ! Petite question subsidiaire : comment fais ton pour rechercher dans une colonne qui se trouve avant la colonne contenant la valeur ?

Bidouilleu_R · Answer

Cela se passe là
var_designation = c.Offset(0, 1) ' je prend la valeur de la colonne à droite 
var_designation = c.Offset(0, -1) ' je prend la valeur de la colonne à gauche

quand tout sera ok met en résolu
et n'hésite pas à revenir.
A+

[VBA] Besoin d'un coup de main svp ^^

13 réponses

Discussions similaires