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

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.

ma variable semble être déclarée dans les normes :

Public var_designation
Public var_ref

Je ne comprend pas le probleme

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

Bonjour
l'initialiser c'est écrire ...

set var_ref = range("C3") par exemple.
A+

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.

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+

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

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+

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

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

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

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 ?

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+