[vba excel] lancer 3 module a l'ouverture de mon userform

Version imprimable

21/02/2007, 12h55
CIBOOX

[vba excel] lancer 3 module a l'ouverture de mon userform

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:

call elementc

dans workbook_open mais il prend pas :aie:

Citation:

erreur de compilation: variable ou procedure attendu et non un module
21/02/2007, 13h06
edelweisseric

Bonjour à tous
Bonjour CIBOOX

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

A+
21/02/2007, 13h36
helios77
Laisse tomber le Workbook_open

Dans ton module, tu crée une sub auto_open
Code:

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.....
21/02/2007, 14h17
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 :aie:
21/02/2007, 15h25
helios77

tu as moyen d'envoyer ton fichier ??
Je suis sur que ce n'est rien du tout à régler
21/02/2007, 15h26
Invité

Bonjour

Montre nous le code des traitement

Starec

bonjour starec
voici mon code pour un module

Code:

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 ;)

22/02/2007, 07h28
Invité
Re

Il ne faut pas que tu lances les modules, mais les routines une à une
Code:

1 2 3 call Comptemail call ...
Starec
22/02/2007, 09h23
CIBOOX

1 pièce(s) jointe(s)

bonjour
voic mon fichier pour tester

j'ai deux petites questions....
la premiere deja posé mais pour plus de precision:
j'aimerai lancer mes 3 modules a l'ouverture de mon userform et a chaque fois que je clique sur le bouton valider
( voir fichier )

ma deuxieme question :
j'aimerai compter le nombre de fois que j'ai le mot pret dans une colonne specifique avec un mot precis dans une autre colonne
exemple je veux compter le nombre de ligne avec 1eretage dans la colonne a et le mot pret dans la colonne c

ceci afin de savoir combien d'ordinateur sont en pret au 1er etage

troisieme question
comment simplifier ma codification ?
22/02/2007, 10h24
choucks

1 pièce(s) jointe(s)

Salut,

J'ai modifié ton fichier, les modifications répondent aux questions 1 et 2. Pour la 3 il aurait trop de choses à faire :lol: A l'ouverture la procédure ComptePret rempli le tableau pret. Je ne l'ai pas fait pour les autres tableaux, à toi de le faire. Il faut appeler les procédures dans l'événement Initialize du Userform.

Tu n'as pas suivi les conseils d'AlainTech . L'opérateur LIKE rempli parfaitement son rôle ! :furax:

Si tu ignores l'aide que certains te proposent, ce n'est pas correcte, surtout lorsque que celle-ci est pertinente.
22/02/2007, 13h14
CIBOOX

merci choucks et merci alain tech aussi :king: :king: :king:
j'ai bien relus ton code sub comptepret
je n'avais pas compris comment definir like en fait like est une fonction !!!!
moi j'avais defini dim like as variant :aie:

c'est resolu
la troisieme question peu attendre ...
22/02/2007, 13h28
choucks

Citation:

Envoyé par CIBOOX

je n'avais pas compris comment definir like en fait like est une fonction !!!!

Ciboox tu vas te prendre une :fessee:

:nono: LIKE EST UN OPERATEUR comme +, =, >, etc. Tu prends le temps de lire l'aide ? c'est le meilleur moyen de progresser.

a+
22/02/2007, 13h48
helios77

Pour rendre ton code plus maintenable, je te conseillerais de faire ne sorte d'initialiser ton tableau tabonlet à un seul endroit. Ainsi, le jour ou çà change ou que tu rajoutes quelque chose, tu ne le fais qu'à un seul endroit

Après pour le reste, je pense qu'il y a moyen de faire une procédure apramétrable car tout tes traitements sont quasimenent identiques
==> avec de bons parametres, tu devrais pouvoir faire un seul moduleau lieu d'en avoir 4 comme tu as actuellement
22/02/2007, 15h43
CIBOOX

bonjour helios77
je debute en vba alors je fais pleins de petits modules.....

comment faire pour lancer une boucle sur tous mes traitements ?
22/02/2007, 15h45
helios77

je vais récupérer le fichier et je vais essayer de tout te centraliser
22/02/2007, 17h07
helios77

1 pièce(s) jointe(s)

Voilà ton fichier
J'ai centralisé tous tes modules mais tu ne gagnes pas forcément en lisibilité car c'était pas trop paramétrable en fait

==> j'ai laissé tous les modules en place et j'en ai rajouté 2
Demarrage qui initialise ton tableau au départ et qui remplace ce que tu avasi mis dans workbook_open
MoteurBase où j'ai regroupé tout tes modules mais en y rajoutant un paramtre pour qu'il fasse ce que tu veux

Si tu préfères utiliser le module qui centralise tout, utilise le avec les paramtres comme j'ai mis en commentaires
Sinon, utilises lesmodules que tu as mis en place c'est pareil

Sauf que dans moteur base, j'ai un peu fait le ménage des trucs qui ne servaient à rien

J'ai aussi rajouter un truc pour qu'au lancement de tondormulaire les case de l'onglet immeuble s'initialise correctement

Je pense qdonc que ton idée de faire 4 modules séparés est la meilleurs et la plus clair
22/02/2007, 17h29
CIBOOX

:yaisse2: :merci: helios77:yaisse2:
ta methode de select case est tres interessante
22/02/2007, 17h36
helios77

Merci pour ton ironie

c'est pour çà que j'ai précisé que çà n'apportait pas grand chose de tout centralisé
22/02/2007, 17h59
CIBOOX

:nono: non je suis serieux !!!!
ta methode va surement m'etre utile pour un autre fichier que je dois mettre en place
encore une fois merci pour ton aide et tes conseils !!!
22/02/2007, 18h50
helios77

Excuse moi
J'ai vraiment cruq eu tu tefoutais de ma poire
Bon courage pour ts développement et hereux d'avoir pu t'aider involontairement ;-)