VBA: mavar = vrecherche

[arnaudbu]

Bonjour,

Je cherche à faire en vba:


dim mavar1 as ..........
mavar1 = vrecherche

............ et ensuite exploiter mavar1 pour afficher le résultat de la formule genre:

comment.text text= mavar1

Merci et @+

 

[Pierrot93]

Re : VBA: mavar = vrecherche

Bonjour Arnaud

pas sur d'avoir tout compris de ton besoin, regarde le code ci-dessous si il peut t'aider :

Dim mavariable As String
mavariable = "test"
Range("a1").Value = mavariable
MsgBox mavariable

bon après midi
@+

 

[arnaudbu]

Re : VBA: mavar = vrecherche

Non en fait, j'aimerais que ma variable contiennent le résultat de vrecherche? J'ai fais des recherches et je pense plutot à:

application.vlookup ou qqchose comme ça.

Merci

 

[Pierrot93]

Re : VBA: mavar = vrecherche

Re

un autre exemple :

Dim x As Range, valeurrecherchee As String
valeurrecherchee = "marecherche"
Set x = Range("A1:A100").Find(valeurrecherchee, , xlValues, xlWhole, , , False)
If Not x Is Nothing Then MsgBox "valeur trouvée en " & x.Address

mais sans plus de détails, cela va être difficile de t'aider....

 

[arnaudbu]

Re : VBA: mavar = vrecherche

Bon c'est vrai qu'il manque un peu de détails alors voici:

J'ai une macro qui insère des formules. Sur une des cellules il y a insertion de la formule + un commentaire. Dans le commentaire j'aimerais qu'il ai insertion de la résultat d'un VRECHERCHE. En rouge ce que j'aimerais.

'VRECHERCHE DESCRIPTION
    With ActiveCell.Offset(0, 6)
       .FormulaLocal = "=SI(ESTNA(RECHERCHEV(" & Num1 & ";" & Base1 & "!" & Plg & ";7;FAUX));"""";RECHERCHEV(" & NumAvis & ";" & BaseSAP & "!" & Plg & ";7;FAUX))"
       .AddComment
       .Comment.Visible = False
      [COLOR="Red"] .Comment.Text Text:= RECHERCHEV(" & Num1 & ";" & Base1 & "!" & Plg & ";10;FAUX)[/COLOR]
       .Locked = True
    End With

 

[Pierrot93]

Re : VBA: mavar = vrecherche

Bonjour,

toujours rien pour tester avec le modèle de donnée utilisé, alors essaye avec la méthode "evaluate"...

       .Comment.Text Text:=Evaluate("=TaFormule")

bonne journée
@+

 

[arnaudbu]

Re : VBA: mavar = vrecherche

Il me dit erreur définie par l'application de l'objet.

 

[arnaudbu]

Re : VBA: mavar = vrecherche

Erreur application définie par l'objet. Voici un exemple:

 

[Pierrot93]

Re : VBA: mavar = vrecherche

Re

essaye ainsi, si le résultat de la formule est bon devrait passer :

Sub Macro1()
Dim x
    With ActiveCell
       .FormulaLocal = "=RECHERCHEV(G1;F1:J1;2;FAUX)"
       .AddComment
       .Comment.Visible = False
        x = Evaluate("=F1")
       .Comment.Text Text:=x
       .Locked = True
    End With
End Sub

comprends pas trop ta formule, elle renvoie un message d'erreur, mais bon suis pas un formuliste...

Evaluate("=RECHERCHEV(" & NumAvis & ";" & BaseSAP & "!" & Plg & ";8;FAUX)")

 

[arnaudbu]

Re : VBA: mavar = vrecherche

Oui ta méthode fonctionne, mais avec la formule VRECHERCHE rien à faire.

Aussi quand je modifie la valeur dans le tableau, celle ci ne change plus dans le commentaire.

 

[Pierrot93]

Re : VBA: mavar = vrecherche

Re,

il faut préciser la formule en anglais, le code ci-dessous fonctionne chez moi :

MsgBox Evaluate("=VLOOKUP(D1,A1:B5,2,0)")

 

[arnaudbu]

Re : VBA: mavar = vrecherche

Oui je pense que ceci devrait être bon. Je but juste sur la synthaxe de la forumule, je pense que le soucis viens de là.

PosteTech = Evaluate("=VLOOKUP(" & NumAvis & "," & BaseSAP & "!" & Plg & ",8,0)")
.Comment.Text Text:=PosteTech

 

[Pierrot93]

Re : VBA: mavar = vrecherche

Re,

vérifie que tes variables "NumAvis", "BaseSAP" et "Plg" soient bien initialisées et ce par les bonnes valeurs, pas trace dans le fichier que tu avais joint...

 

[arnaudbu]

Re : VBA: mavar = vrecherche

Oui dans mon fichier tout fonctionne bien. J'utilise les variables pour d'autres formules et pas de soucis.

 

[Pierrot93]

Re : VBA: mavar = vrecherche

Re

sans pouvoir visualiser l'initialisation et les valeurs des variables peux pas t'en dire plus... Perso je pense tout de même que le plus approprié serait une recherche par vba, regarde le code proposé dans le message #4....