Lier 2 macros Résolu/Fermé

Question

Bonjour, 


J'ai juste un petit soucis...je ne sais plus comment faire pour reprendre les valeurs des variables d'une macro pour les utiliser dans une autre : exemple 

Sub selection_references_update()
    
    Dim flag As Boolean
    If Range("I16") = "Vrai" Then flag = True

End Sub

Sub test()

Dim flag As Boolean
Call selection_references_update

MsgBox (flag)

End Sub

Ici flag est true dans la première, mais quand j'essaie de display sa valeur dans la deuxième, il est a false. Donc la liaison n'est pas faite. Avez-vous la solution ?

merci beaucoup !


Configuration: Windows 7 / Internet Explorer 9.0

skk201 · Answer

Bonjour

Function selection_references_update()

If Range("I16") = "Vrai" Then selection_references_update = True

End Function

Sub test()

Dim flag As Boolean
flag = selection_references_update

MsgBox (flag)

End Sub 

Mais personnellement j'écrirais :

Sub test()
Dim bool As Boolean
    bool = selectionReferences_UPD
MsgBox (bool)
End Sub

Function selectionReferences_UPD()
If UCase(Celle(16, 9).Value) = "VRAI" selectionReferences_UPD = True
End Function

Après chacun sa manière :)
 
*Vous pouvez mettre en forme votre code grâce à la flèche en haut a droite de l'éditeur de texte.
Pensez mettre vos messages en [Résolu] et cliquer sur le + des conseil qui vous ont été utiles."

Iama · Answer

Bonjour

Tu peux aussi déclarer te variable en Public ou en Dim  au début de ton module.


cordialement

Lier 2 macros

2 réponses

Discussions similaires