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

Signaler
Messages postés
4
Date d'inscription
vendredi 16 janvier 2009
Statut
Membre
Dernière intervention
16 janvier 2009
-
Messages postés
4
Date d'inscription
vendredi 16 janvier 2009
Statut
Membre
Dernière intervention
16 janvier 2009
-
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

5 réponses

Messages postés
4
Date d'inscription
vendredi 16 janvier 2009
Statut
Membre
Dernière intervention
16 janvier 2009

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
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
41
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






<small>
[../code.aspx?ID=39466 Coloration VB6, VBA,
VBS]
</small>






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é
<hr size ="2" width="100%" />Prenez un instant pour répondre à [sujet-SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp 
Messages postés
4
Date d'inscription
vendredi 16 janvier 2009
Statut
Membre
Dernière intervention
16 janvier 2009

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 !
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
41
crée un module et déclares-y toto
public toto as integer

mais uniquement dans le module
là tu pourras l'utiliser partout
Messages postés
4
Date d'inscription
vendredi 16 janvier 2009
Statut
Membre
Dernière intervention
16 janvier 2009

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