Discussion :

[CIBOOX]

bonjour a tous
j'aimerai lancer 3 modules à l'ouverture de mon fichier ainsi qu'a chaque fois que je valide ( je click sur le commandbutton valider )

voila j'ai trois module pour compter le nombre de fois que j'ai une expression dans une colonne differente ( exemple module1=elementC calcul le nombre de fois que j'ai le mot element dans la colonne c et colle la valeur obtenu dans une textbox sur mon userform

j'utilise mon userform pour saisir mes nouvelle donnees puis lors que je valide ma textbox doit prendre la nouvelle valeur
si j'arrive a lancer mon module elementc à l'ouverture de mon usreform et à chaque fois que j' appuie sur valider ça sera trop bien !!!

je pensais placer

Code :

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

call elementc

dans workbook_open mais il prend pas

erreur de compilation: variable ou procedure attendu et non un module

[edelweisseric]

Bonjour à tous
Bonjour CIBOOX

Tu pourrais déposer un bout de fichier STP ce sera plus facile pour nous

A+

[helios77]

Laisse tomber le Workbook_open

Dans ton module, tu crée une sub auto_open

Code :

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

1
2
3
4
5
6
 
Sub auto_open()
   Call traitement1
   Call traitement2
   Call traitement3 
End Sub

Cet module s'éexécutera dès le lancement de ton fichier
Pour le bouton valider, normalment, si tu doubles clique sur le bouton, tu vas te retrouver dans l'évenement click et en y metttant tes modules, cela devrait marcher.....

[CIBOOX]

salut helios77
j'ai deja essaye mais sur le bouton valider il me met le meme message d'erreur variable ou procedure attendu et non module

[helios77]

tu as moyen d'envoyer ton fichier ??
Je suis sur que ce n'est rien du tout à régler

[Invité]

Bonjour

Montre nous le code des traitement

Starec

[CIBOOX]

bonjour starec
voici mon code pour un module

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
Option Explicit
 
Sub Comptemail()
Dim tabonglet As Variant
Dim onglet As String
Dim n As Long
Dim j As Byte, w As Byte, v As Byte
Dim a As Integer, b As Integer, c As Integer, d As Integer, e As Integer, f As Integer, g As Integer, h As Integer, r As Integer
 
 
Dim rng As Range
 
tabonglet = Array("paris7m", "paris13m", "paris16m")
w = 3
v = 15
For j = 0 To UBound(tabonglet)
Sheets("bd").Activate
 
onglet = tabonglet(j)
    a = 0
    b = 0
    c = 0
    d = 0
    e = 0
    f = 0
    g = 0
    h = 0
    r = 0
 
    With Worksheets("bd")
        .Range("S2").Activate
        .Range("S2").End(xlDown).Select
        Set rng = ActiveCell
        For n = 1 To rng.Row
 
            If .Range("S" & n) = onglet And .Range("u" & n) = "personnelle" Then a = a + 1
            If .Range("S" & n) = onglet And .Range("u" & n) = "personnall+" Then b = b + 1
            If .Range("S" & n) = onglet And .Range("u" & n) = "fonctionnelle" Then c = c + 1
            If .Range("S" & n) = onglet And .Range("u" & n) = "fonctionnall+" Then d = d + 1
            If .Range("S" & n) = onglet And .Range("l" & n) <> "" Then r = r + 1
            If .Range("u" & n) = "personnelle" Then e = e + 1' ici je compte toute les boites email personnelle
            If .Range("u" & n) = "personnall+" Then f = f + 1' ic je compte toutes les boites email personnall+
            If .Range("u" & n) = "fonctionnelle" Then g = g + 1
            If .Range("u" & n) = "fonctionnall+" Then h = h + 1
 
 
 
        Next n
        Sheets("ttl").Range("I" & w) = a
        Sheets("ttl").Range("J" & w) = b
        Sheets("ttl").Range("K" & w) = c
        Sheets("ttl").Range("L" & w) = d
        Sheets("ttl").Range("I" & v) = r
        Sheets("ttl").Range("I6") = e
        Sheets("ttl").Range("j6") = f
        Sheets("ttl").Range("k6") = g
        Sheets("ttl").Range("l6") = h
 
 
        w = w + 1
        v = v + 1
    End With
Next j
 
Worksheets("bd").Range("S1").Activate
End Sub

voila j'aurrai moyen de l'alleger mais pour l'instant je verifie si il tourne
voila j'ai un feuille "bd" ou se trouve ma base de donnee puis je compte le nombre de fois et je reporte les valeurs calculé dans la feuille "ttl"
dans ma feuille "bd" la colonne s contient les villes paris7m paris13m et paris 16m
dans ma feuille "bd" la colonne contient les quatres variable ( personnelle,personnall+, fonctionnelle,fonctionnnall+)
puis je reporte les chiffres obtenu par le module dans un userform
( j'utilise un stabtrip avec des onglets par villes )
le trucs que je voudrai mettre en place c'est qu'a chaque fois que j'ouvre l' userform le module se lance afin d'initialiser les chiffres dans mon tabstrip je pense qu'une peice jointe serai la bienvenu je vous la prepare pour ce soir