Cellule = nom variable avec variable définie dans VBA

Bonjour,

J'aimerai pouvoir faire:

Dans ma feuille excel, mettre "=variable1" dans une cellule

Dans la macro d'un bouton
variable1 = 3

Donc quand je clic sur le bouton, ma cellule m'affiche 3
J'ai mis 3 pour l'exemple, mais au final ça sera une valeur qui dépendra d'autres trucs

Je voudrai en quelques une variable globale commune feuille excel / vba
Quand je défini un nom dans ma feuille excel, je suis obligé de l'attribuer à une cellule ou une plage de cellule et ça je ne veux pas!

Je ne veux pas non plus écrire "Range("A1")=3" dans ma macro

Quelqu'un aurait une idée? J'ai l'impression qu'il est impossible de faire ça facilement...

* Merci *

bonjour,

Ajoute un module (clique droit insertion module) et crée une variable Public

Code:

---

Public mavariable as Integer

---

Ensuite tu pourra faire mavariable = 3 et en mettant à jour ta feuille cela marchera.

J'espere avoir répondu à ta question.

Explique nous plus en détail car la sa n'a pas été super clair pour ma part.

Bon courage,

Bonjour,

Tu peux aussi créer une fonction dont le seul but est de renvoyer la valeur de ta variable.

Ainsi, dès que tu appeleras ta fonction dans Excel ou dans le code, tu retrouveras ta variable.

Yersin

Merci pour les réponses rapides,

J'ai créé un module

Code:

---

Public mavariable As Integer

---

Voila le code de mon bouton

Code:

---

1 2 3

Private Sub CommandButton1_Click() mavariable = 2 End Sub

---

Dans une case j'ai tapé

Citation:

---

=mavariable

---

et il me met #NOM? alors que je voudrai 2

Pour ce qui est de la fonction, j'y ai pensé, mais je ne comprends pas comment faire

Admettons que je crée une fonction comme ça dans un module

Code:

---

1 2 3

Public Function fonc1(var) fonc1 = var End Function

---

et que dans ma case je tape

Citation:

---

=fonc1()

---

Je mets quoi dans le code du bouton du coup??

Pour la fonction tu peux mettre le calcul de ta variable.

Code:

---

1 2 3

Public Function fonc1() fonc1 = 2 End Function

---

Dans Excel tu mets:

Citation:

---

=fonc1()

---

Par contre, y a pas besoin de bouton.

Mais j'ai besoin du bouton ^^

Pour l'exemple on a mis mavariable = 2

En réalité dans mon bouton il y a des calculs qui dépendent d'autres trucs, et qui donne au final mavariable = ...

Dans ce cas, tu fais un mixte de nos réponses:

Code:

---

1 2 3 4 5 6 7 8 9 10

Public mavariable As Integer   Public Function fonc1() 'la fonction fonc1 = mavariable End Function   Sub Btn()' la procédure avec le calcul de ta variable mavariable = 1 + 3'le calcul de ta variable Worksheets("Feuil1").Calculate' le recalcul des onglets avec la fonction End Sub

---

Yersin

Youhou ça marche
merci beaucoup

Et c'est là qu'on se dit "pfff j'aurai quand meme pu trouver tout seul :?" ... Quel gros noob lol

Edit: j'ai remplacé

Code:

---

worksheet("feuil1").calculate

---

par

Code:

---

Application.CalculateFullRebuild

---

car il ne me recalculait pas la feuille à chaque fois, et je n'ai pas réussi à déterminer ce qui faisait que parfois il recalculait, parfois non. Du coup ça calcule toutes les feuilles...