conception procédure générale

Bonjour

Pour concevoir une procédure générale qui sera visible dans toutes les forms
faut-il appliquer tout le code dans la procédure ou le code peut-il être dans une form.
J'explique: j'ai une addition dont le résultat doit apparaître dans deux forms
voici le code de l'addition que j'ai dans la form2.

Code:

---

1 2 3 4 5 6 7

Dim AddintSomme As Long Dim First As Long Dim Second As Long First = Val(intSomme) Second = Val(Text1.Text) Text2.Text = (intSomme + Text1.Text) End Sub

---

Je pense déclarer cette addition dans un module en faisant une procédure générale comme ceci:

Code:

---

Public AddintSomme

---

Est ce la bonne façon???
Merci pour toutes réponses.

Le plus simple est de faire une fonction (Public) que tu peux mettre dans une des 2 feuilles ou dans un module à part.

Le code dans une feuille :

Code:

---

1 2 3 4

Private Sub Command1_Click() MsgBox Somme(Val(Text1.Text), Val(Text2.Text)) End Sub

---

Le code de ta fonction :

Code:

---

1 2 3 4

Public Function Somme(First As Single, Deuxieme As Single) As Single Somme = First + Deuxieme End Function

---

Bonjour

Soucis soucis
Voici le code actuel qui dans une form qui s'appelle FOcompt:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Public Somme As Long Dim CTSant Dim CTSnouv Private Sub Form_Load() Text1.Text = "1" Text2.Text = "0" If OPENCOM("COM1:9600,N,8,1") = 0 Then MsgBox "Port com1 occupé" DTR 1 CTSant = -1 End Sub Private Sub Timer1_Timer() CTSnouv = CTS If (CTSnouv <> CTSant) Then CTSant = CTSnouv If CTSnouv Then Somme = Somme + Text1.Text Text2.Text = Somme FOlistbox.Text3 = Somme End If End If End Sub

---

Donc j'ai créé une fonction public dans un module

Code:

---

Public Sub Somme ()

---

Mais rien ne s'affiche dans les autres forms tant que je n'ai pas ouvert la form FOcompt

Big
Ce foutu Timer est ce que je peut le mettre dans un module??

J'avoue que malgré le peu de lignes de code, j'arrive à m'y perdre..

Tu fais un "Public Somme as Long", tu déclares donc une variable.
Tu déclares ensuite une Sub (ce n'est donc pas une fonction mais une procédure et tu ne sembles pas mettre de code dedans) portant le même nom que ta variable, pour confondre les 2 on fait pas mieux alors que ce sont 2 choses totalement différentes !

Pourquoi ne pas faire une fonction comme je te le suggérais ? Si tu ne maitrises pas un minimum la différence entre variable, fonction, procédure, je te suggère d'oublier temporairement le projet sur lequel tu travailles et de faire quelques petits exercices basiques pour comprendre ces notions de base qui sont essentielles.

Moi je pensai que tu avais compris car dans ta discussion affichage d'une variable dans plusieurs forms tu la tager en :resolu:

Citation:

---

Envoyé par boettez

Big
Ce foutu Timer est ce que je peut le mettre dans un module??

---

Le composant Timer, NON, mais en utilisant les APIs SetTimer et KillTimer, OUI.
Par contre, avant d'utiliser des APIs, il faut déjà un peu maîtrisé la programmation "ordinaire"

MOTIF DE L'EDIT
Discussion tager resolut durant la redaction de ce message :calim2: