erreur module Userform

Version imprimable

02/03/2016, 08h45
sbouchacourt

erreur module Userform

Bonjour,
J'aurais besoin d'une aide précieuse, j'ai créé un outil pour mon travail utilisant un Userform qui s'adapte à la taille de l''écran.
Sur mon PC, pas de soucis particulier tout fonctionne.
par contre, sur le PC d'une autre personne, il affiche ce message au lancement.

"Erreur de compilation dans le module caché:Module7..."

Quelqu'un aurait une réponse à me donner?

Merci pour le soutien,
02/03/2016, 09h09
Philippe PONS

Bonjour,

as tu compilé ton projet, sur ton poste, pour vérifier qu'il n'y as pas d'erreur de compilation?
(Débogage\Compiler VBAProject...)

Cordialement,
02/03/2016, 09h12
Sebphyto

Salut,

Et il y a quoi dans ce module???
car ce message est très vague, il peut y avoir pleins de choses qui peuvent causer ce type d'erreur...regarde sur Google et tu verras...;)

Seb

Citation:

Envoyé par Philippe PONS

Bonjour,

as tu compilé ton projet, sur ton poste, pour vérifier qu'il n'y as pas d'erreur de compilation?
(Débogage\Compiler VBAProject...)

Cordialement,

Merci pour un retour rapide,

Je dois avouer que je me suis formé tout seul, sur ce projet.
Je n'ai donc pas le vocabulaire adapté et surtout une connaissance pointu de VBA.

Je n'ai pas effectué la vérification, je vais de ce pas le faire!

je reviendrai dès que possible, car je suppose que je peux trouver plus d'une erreur à corriger.

cordialement,

Citation:

Envoyé par Sebphyto

Salut,

Et il y a quoi dans ce module???
car ce message est très vague, il peut y avoir pleins de choses qui peuvent causer ce type d'erreur...regarde sur Google et tu verras...;)

Seb

bonjour Seb,

merci pour ton retour,

voici ce qu'il y a dans le module 7 :

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
Function modif_UserForm1(uf As Object, Optional modif As Long = &H94CF0080)
  'on determine le handle de la form (identifiant de la fenetre)maintenant avec findwindows +precis lors du choix de la fentre a modifier
   handle = FindWindow(vbNullString, uf.Caption)
 
        'on va memoriser le multiplicateur des dimention de l'usf par rapport a chaque controls dans leurs tags respectifs
    For Each ctrl In uf.Controls                                                                                  '*
        ctrl.Tag = uf.InsideWidth / (ctrl.Left + 0.01) & ":" & uf.InsideHeight / (ctrl.Top + 0.01) & ":" & uf.InsideWidth / ctrl.Width & ":" & uf.InsideHeight / ctrl.Height
        'ici en fonction du type de control si il a  la propriété font size on place l'operateur en derniere position dans le tag
        If TypeName(ctrl) <> "ScrollBar" And TypeName(ctrl) <> "Image" And TypeName(ctrl) <> "SpinButton" Then ctrl.Tag = ctrl.Tag & ":" & uf.InsideWidth / ctrl.Font.Size                                                                       '*
    Next
    'on applique les modification a la fenetre userform en une seule ligne
    SWLA handle, -16, modif: SWLA handle, -20, &H0: DMB handle
 
End Function
Sub maForm_Resize(usf As Object)
          'ici on boucle sur tout les controls
        For Each Ctl In usf.Controls
            Properties = Split(Ctl.Tag, ":") 'on coupe le tag de chaque control par les double point
            'chaque morceau du texte du tag corespond a un operateur
 
            'et on applique le multiplicateur au controls pour la largeur et la hauteur en une seule ligne
            'left,top,largeur,hauteur,
            Ctl.Move usf.InsideWidth / Properties(0), usf.InsideHeight / Properties(1), usf.InsideWidth / Properties(2), usf.InsideHeight / Properties(3)
            'tout les controls qui ont le multiplicateur du font size enregistré dans leurs tags respectifs verront leur font size redimentionné en proportion
            If UBound(Properties) > 3 Then Ctl.Font.Size = Round(usf.InsideWidth / Properties(4), 0)
       ' autrement dit au depart si le control posedait cette propriété l'operateur c'est inscrit en derniere position dans le tag
       ' on l'applique alors
        Next
        usf.Repaint
  End Sub

Cordialement,

FindWindow c'est une api windows.

Est elle bien déclarée, dans l'en-tête du module?
Code:

1 2 Private Declare Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

02/03/2016, 11h21
joe.levrai

Bonjour,

et si la fonction FindWindow est bien déclarée, en l'état elle n'est valable que pour un Excel 32 Bits

si sur l'ordinateur où ça ne fonctionne pas, c'est une version 64Bits, c'est la raison du problème ... mais je me serai plutôt attendu à un autre message d'erreur.
02/03/2016, 11h24
Philippe PONS

Oui, tout à fait.

De plus, c'est quoi ce SWLA?
C'est défini ou?
02/03/2016, 11h37
Sebphyto

Re,
pour mettre ton code entre balise appuies sur le bouton #, a côté de celui de "citation", et colle ton code entre les balises
02/03/2016, 11h43
sbouchacourt
Citation:
Envoyé par Philippe PONS

FindWindow c'est une api windows.

Est elle bien déclarée, dans l'en-tête du module?

Code:

1 2 Private Declare Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
En fait, non je viens de vérifier et effectivement ce n'est pas le cas.
FindWindow n'est pas déclarée.
Je me rends compte que lors de la vérification, il y a pas mal d'erreur à corriger.
Je reste surpris de pouvoir l'utiliser sans problème depuis mon PC.
encore merci,
Je vais faire de mon mieux.

Code:

1
2
3
4
5
#If VBA7 Then
    Private  Declare PtrSafe  Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
#Else
    Private Declare Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
#End If

02/03/2016, 12h58
joe.levrai

Citation:

Envoyé par Philippe PONS

Oui, tout à fait.

De plus, c'est quoi ce SWLA?
C'est défini ou?

une API ?

en fait je crois qu'il a repris une contribution de Patrick : http://www.developpez.net/forums/d13...m/#post7498049

Je confirme, que j'ai récupéré certain code de plusieurs endroit qui m'ont permis de créer mon outil.
dont celui de Patrick, il fonctionne très bien sur mon PC et d'autres de ma société.
par contre, dès que je l'envoi vers des personnes extérieurs à l'entreprise, il affiche le message d'erreur.

c'est un problème de version, mais comment puis je résoudre ce problème?

Citation:

Envoyé par Sebphyto

Re,
pour mettre ton code entre balise appuies sur le bouton #, a côté de celui de "citation", et colle ton code entre les balises

merci Seb,

c'est fait
Citation:
Envoyé par rdurupt
Code:

1 2 3 4 5 #If VBA7 Then Private Declare PtrSafe Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long #Else Private Declare Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long #End If
bonjour,

un moment j'ai cru que le problème pouvait venir du système 64 bits vers 32 bits, est ce vraiment le cas?

merci,

04/03/2016, 12h09
joe.levrai

Si tu manipules des API et que tu les déclares en mode "32 Bits", elles ne fonctionneront pas sur une version Office 64 Bits

te dire si ton problème vient de là : c'est à toi de voir la version office du Excel où ça plante.

maintenant, tu laissais à entendre que certaines déclarations de ces fonctions ne figuraient pas dans ton projet, remet bien toutes les déclaration d'API dans un premier temps, pour voir si le problème ne provenait "que" de là
04/03/2016, 12h12
Invité

Bonjour,
si tu utilise des versions Windows et/ou Excel différente, il faut adapter la déclaration avec PtrSafe d'ou mes directive de compilation #If!

maintenant il et possible qu'il y ai d'autre problème lié au version VBA! par exemple (Trim,Left,...) (Vba.Trim,Vba.Left,...)

je t'invite à créer un UserForm vierge et de test les api, pour dissocier le problème!
04/03/2016, 14h25
sbouchacourt

Citation:

Envoyé par rdurupt

Bonjour,
si tu utilise des versions Windows et/ou Excel différente, il faut adapter la déclaration avec PtrSafe d'ou mes directive de compilation #If!

maintenant il et possible qu'il y ai d'autre problème lié au version VBA! par exemple (Trim,Left,...) (Vba.Trim,Vba.Left,...)

je t'invite à créer un UserForm vierge et de test les api, pour dissocier le problème!

Je vais suivre ton conseil, et créer un nouvel UserForm avec les api.

merci,