Discussion :

[boettez]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Public AddintSomme

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

[OhMonBato]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Private Sub Command1_Click()
MsgBox Somme(Val(Text1.Text), Val(Text2.Text))
End Sub

Le code de ta fonction :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Public Function Somme(First As Single, Deuxieme As Single) As Single
Somme = First + Deuxieme
End Function

[boettez]

Bonjour

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Public Sub Somme ()

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

[boettez]

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

[OhMonBato]

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.