Passage d'une variable d'une macro vers une feuille de calcul

Question

Bonjour, à tous,

Je cherche depuis quelque temps à utiliser une variable définie selon les choix d'un set d'OptionButton directement dans mes formules dans la feuille de calcul ... et je me dis que ça doit être possible ! Pour l'instant je travaille salement en demandant à la macro d'écrire la valeur de mon paramètre dans une cellule et je donne ensuite un nom à cette cellule pour pouvoir l'utiliser dans les formule.
Il doit y avoir un moyen de ne pas passer par la cas "écriture dans une cellule" !!!
En espérant que quelqu'un pourra m'aider ...
Merci d'avance

Fanny

Tity333 · Answer

J'étais un peu pressée et je me rends compte que ce n'est pas très clair ...
Alors voilà:
- j'ai deux OptionButton, suivant celui qui est coché, je donne une valeur différente à ma variable toto dans la macro correspondant à l'action "click" de l'OptionButton
- je voudrais pouvoir utiliser cette variable toto directement dans les formules de ma feuille excel, par exemple = toto *2 
Ect ce que cela est possible, si oui comment ?
Merci par avance pour votre aide, 
Fanny

PCPT · Answer

salut, sur un userform, je pose 2 boutons radio (par défaut) et un bouton (par défaut) Private Sub CommandButton1_Click() Dim toto As Integer If OptionButton1.Value = True Then toto = 10 ElseIf OptionButton2.Value = True Then toto = 20 End If MsgBox "toto vaut " & CStr(toto) End Sub [../code.aspx?ID=39466 Coloration VB6, VBA, VBS] NB : tu parles de classeur, c'est donc du VBA et non du VB6 ! Vous êtes ici : Thèmes / [forum-VISUAL-BASIC_1.aspx Visual Basic 6] / [theme-DIVERS_220.aspx Divers] / topic déplacé

Prenez un instant pour répondre à [sujet-SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

Tity333 · Answer

Merci pour ta réponse, jusque là j'ai à peu près la même chose :
*****************************************
Dim toto As Integer
Private Sub OptionButton7_Click()
If OptionButton7.Value = True Then
    toto = 4
End If
End Sub
Private Sub OptionButton8_Click()
If OptionButton8.Value = True Then
    toto = 8
End If
End Sub
*****************************************
Ce que je ne sais pas faire c'est utiliser toto directement dans une formule dans une feuille excel alors qu'elle n'est définie que dans ma macro.
Je voudrais pouvoir mettre par exemple en A1 :
= toto * 2.

Merci encore pour ton aide, en espérant que quelqu'un pourras répondre à ma question !

PCPT · Answer

crée un module et déclares-y toto
public toto as integer

mais uniquement dans le module
là tu pourras l'utiliser partout

Tity333 · Answer

Ça marche effectivement dans tous les modules mais pas dans les cellules des feuilles de calcul ...

Passage d'une variable d'une macro vers une feuille de calcul

5 réponses

Votre réponse

Discussions similaires