Déclaration de variables en mode Public (utilisation dans un userform et pls modules)

Bonjour à tous,

J'aimerais utiliser les données de variables dans plusieurs modules.
J'ai lu pas mal d'infos à propos du mode PUBLIC ou PRIVATE mais je n'arrive manifestement pas à les implémenter.

Mon code d'un userform est le suivant :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Option Explicit Public Cem1 as long   Public Sub Volume_Change()   Dim Ligne As Long Dim Plage As Range   Set Plage = Range("A2:kb2")   Ligne = Me.Recette.Value + 4 'Recette correspond à une valeur encodée dans une textbox   Cem1 = Cells(Ligne, Application.Match("Cem1", Plage, 0)).Value   End Sub

---

J'enregistre donc une valeur pour ma variable Cem1.

J'ai ensuite un autre code, toujours dans le code de mon userform :

Code:

---

1 2 3

Public Sub Cem1_Change() Call Module1.CfC10 End Sub

---

Dans ce dernier, je fais donc appel à mon Module1 qui comporte le calcul suivant :

Code:

---

1 2 3 4 5

Public Function CfC10()   Cem1 + 10   End Function

---

J'ai alors l'erreur suivante :

"Erreur de compilation :
Le membre existe déjà dans un module objet dont le présent module est dérivé."

Pourriez-vous m'éclairer à ce sujet svp ?

Merci d'avance

re

Code:

---

1 2 3 4 5

Public Function CfC10()   Cem1=Cem1 + 10   End Function

---

Bonjour Patrick,

Citation:

---

Envoyé par patricktoulon

re

Code:

---

1 2 3 4 5

Public Function CfC10()   Cem1=Cem1 + 10   End Function

---

---

Merci pour ton message. J'ai effectivement retranscrit une erreur dans mon message mais ce n'est pas l'origine du problème.
Désolé, j'ai voulu résumer mon code mais ai été trop vite.
Voici en un peu plus long :

Code:

---

1 2 3 4 5 6 7 8

Public Function CfC10()   If (Cem1 * 100) < 10 Then CfC1 = "CF" Else: CfC1 = "NCF" End If   End Function

---

ce code fonctionne lorsque je le laisse dans le code de mon userform mais pas lorsqu'il est dans un module.

merci pour ton aide !

Bonjour,

Les sub et Public subs fonctionnent de la même manière

c'est plutôt les variables qu'il faut déclarer par Dim ou Public (et on passe sous silence Global et Static) :mrgreen:


pour le plus courant voici un tuto qui regroupe les principales déclarations et surtout leurs positions dans le code

https://silkyroad.developpez.com/VBA/LesVariables/#LV

N'hesite pas si c'est pas suffisament clair

A bientôt

re
en voila une nouvelle c'est quoi cette variable cf elle vient d'ou on la vois pas dans ton code de depart
si elle est dans le userform c'est pas etonnant c'est dans le module qu'elle doit etre et en public

Merci pour vos réponses.

J'ai bien le tuto mais je ne parviens toujours pas à saisir mon erreur.

J'ai effectivement aussi déclaré mes variables Cf dans le module.

Une question sur le tuto, qu'appelle-t-on par module standard (voir ci-après repris du tuto) ?


"Pour que la variable soit utilisable dans toutes les macros du projet, il faut utiliser l'instruction Public et la variable doit impérativement être placée en tête d'un module standard."


En gros, j'ai trois endroits où déclarer mes variables :
- ThisWorkbook
- userform
- module

J'ai essayé de le faire sur les 3 mais il n'en est rien, même avec un "public"

Merci

petite question au passage :

Puis-je donner à mes variables le nom donné à mes textbox ?

j'aurai donc quelque part dans mon code par exemple :

Code:

---

1 2 3 4 5 6 7

Public Cem1 as String   Sub Test1 ()   Cem1 = 3+5   End Sub

---

-> ceci en code de base.

Dans un autre module :

Code:

---

1 2 3 4 5

Sub Calcul ()   Cem1 = Cem1 + 2   End Sub

---

Et enfin dans le premier module :

Code:

---

1 2 3 4 5 6 7

Sub Cem1_change ()   Call Calcul   MsgBox Cem1   End Sub

---

Dans mon cas, Cem1 prend au départ une valeur de 8 (3+5) mais perd sa valeur lorsqu'il change de module...

J'espère que c'est plus clair ainsi.
L'idée est bien entendu de sortir les calculs de mon code de base pour les rappeler ultérieurement dans d'autre procédures.

re
ben non justement les nom doivent distincts
plus ca va moins je te comprends

[QUOTE=thomanneca;10750435]petite question au passage :

Puis-je donner à mes variables le nom donné à mes textbox ?

j'aurai donc quelque part dans mon code par exemple :

ca c'est une variable text utilisable dans tout le classeur !!!!!

Code:

---

Public Cem1 as String

---

ca c'est une sub qui peut fonctionner dans n'importe quel module (thiwotkbook/userfom/module/classe)

Code:

---

1 2 3 4 5

Sub Test1 ()   Cem1 = 3+5   End Sub

---

Dans un autre module :
ca c'est une sub aussi qui peut fonctionner dans n'importe quel module (thiwotkbook/userfom/module/classe)

Code:

---

1 2 3 4 5 6

Sub Calcul ()   Cem1 = Cem1 + 2   End Sub

---

Et enfin dans le premier module :
HEU... ca non !!! cem1 est une variable et donc n'a pas d'evenement(change ou autre)

Code:

---

1 2 3 4 5 6 7 8

Sub Cem1_change ()   Call Calcul   MsgBox Cem1   End Sub

---

sincerement plus ca va plus on s' éloigne de lseulement la comprehention de ce que tu souhaite

Bonjour

Citation:

---

En gros, j'ai trois endroits où déclarer mes variables :
- ThisWorkbook
- userform
- module

J'ai essayé de le faire sur les 3 mais il n'en est rien, même avec un "public"

---

"sur les trois" : en même temps ? (j'espère que non).
La déclaration doit se faire dans un module standard (insertion --->> module) et uniquement lui.

Citation:

---

Envoyé par thomanneca

...
Une question sur le tuto, qu'appelle-t-on par module standard (voir ci-après repris du tuto) ?


"Pour que la variable soit utilisable dans toutes les macros du projet, il faut utiliser l'instruction Public et la variable doit impérativement être placée en tête d'un module standard."


En gros, j'ai trois endroits où déclarer mes variables :
- ThisWorkbook
- userform
- module

J'ai essayé de le faire sur les 3 mais il n'en est rien, même avec un "public"

Merci

---

Un "Module Standard" est différent de "Module de Classe"
Certe il s'appelle "Module" tout court mais c'est pour bien le différencier des modules de Classes qui sont fait pour la programmation des Objets.

Je ne comprends pas ce que tu ne comprends dans :

Citation:

---

"Pour que la variable soit utilisable dans toutes les macros du projet, il faut utiliser l'instruction Public et la variable doit impérativement être placée en tête d'un module standard."

---

Bonjour le fil,

Citation:

---

Envoyé par thomanneca

J'aimerais utiliser les données de variables dans plusieurs modules.
J'ai lu pas mal d'infos à propos du mode PUBLIC ou PRIVATE mais ...

---

Je te conseille de limiter la portée de tes variables au strict minimum nécessaire.
Cela veut dire éviter les variables publiques qui sont souvent sources d'erreurs liées à leur affectation.
En général il est préférable déclarer les variables au niveau procédure et de les passer en argument des procédures ou des fonctions appelées, quelque soit le module où elles se trouvent.

Bonsoir Messieurs,

Pour commencer, veuillez m'excuser pour le délai de réaction suite à vos réponses.

Sur base de tous vos commentaires, j'ai effectivement mieux compris le sens des déclarations.

Me reste encore à approfondir les modules de classe mais pour l'instant, mon code fonctionne à présent "parfaitement".

Mon erreur fût effectivement d'utiliser les mêmes noms, forcément source d'erreur !

Encore merci pour votre aide ;-)