Besoin d'un petit coup main Erreur de compil

GeoTrouvePas

XLDnaute Impliqué

• 20 Juillet 2011

• #2

Re : Besoin d'un petit coup main Erreur de compil

Bonjour,

Difficile de t'aider avec aussi peu d'informations. Si c'est juste pour le problème de compilation, il se trouve que tu avais créé deux procédures Workbook_Open.

Il suffit de les rassembler en faisant :

Code:

Private Sub Workbook_Open()
   Eclairage
   Echeance
End Sub

et tu n'as plus d'erreur de compilation.

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 20 Juillet 2011

• #3

Re : Besoin d'un petit coup main Erreur de compil

Bonjour Aziz, bonjour le forum,

Pas plus d'explication dans le fichier que de cheveux sur la tête d'un chauve.
Deux procédure Open dans le composant ThisWorkbook...
Comment peut-on t'aider si tu n'expliques pas ce que tu veux ? A-t-on besoin de tous les modules pour t'aider ?
Comme tu le vois il faudrait une question claire et un fichier alléger...

[Édition]
Bonjour GéoTrouvePas on s'est croisé.

 

Vote positif 0 Vote négatif

GeoTrouvePas

XLDnaute Impliqué

• 20 Juillet 2011

• #4

Re : Besoin d'un petit coup main Erreur de compil

Bonjour Robert !

Pas plus d'explication dans le fichier que de cheveux sur la tête d'un chauve.

Cliquez pour agrandir...

J'aurai pas dit mieux ^^

 

Vote positif 0 Vote négatif

A

aziz

XLDnaute Occasionnel

• 20 Juillet 2011

• #5

Re : Besoin d'un petit coup main Erreur de compil

Bonjour à vous tous
j'ai simplifié mon fichier et tous expliqué dedans
j'espère avoir été clair.

merci

 

Pièces jointes

• ESSAI2.xls

  78 KB · Affichages: 44
• ESSAI2.xls

  78 KB · Affichages: 40
• ESSAI2.xls

  78 KB · Affichages: 42

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

Supporter XLD

• 20 Juillet 2011

• #6

Re : Besoin d'un petit coup main Erreur de compil

Bonjour, Aziz, Géo, Robert.

Aziz, à quoi ça sert que Robert et Géo te conseillent, si tu ne suis pas ?
Géo dit:

Re : Besoin d'un petit coup main Erreur de compil
Bonjour,

Difficile de t'aider avec aussi peu d'informations. Si c'est juste pour le problème de compilation, il se trouve que tu avais créé deux procédures Workbook_Open.

Il suffit de les rassembler en faisant :

Code :
Private Sub Workbook_Open()
Eclairage
Echeance
End Sub

Cliquez pour agrandir...

Robert t'a dit:

Deux procédure Open dans le composant ThisWorkbook...

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

GeoTrouvePas

XLDnaute Impliqué

• 20 Juillet 2011

• #7

Re : Besoin d'un petit coup main Erreur de compil

Re,

Il était en effet difficile de deviner ça avec ton message initial. Je viens d'écrire cette macro :

Code:

Sub Vigilance()
    Dim i As Long
    Dim Message As String
    Message = "Vigilance sur :" & vbCrLf
    i = 5
    While Cells(i, 21) <> ""
        If Cells(i, 21) < 0 Then Message = Message & vbCrLf & Cells(i, 1)
        i = i + 1
    Wend
    MsgBox Message
End Sub

Mais c'était avant de me rendre compte que ta procédure nommée "Echeance" fait exactement la même chose et ne semble pas avoir de disfonctionnement. Que veux tu de plus alors ?

Edit : Bonjour Victor. En ouvrant le fichier joint, il semblerait que sa demande ne concerne absolument pas le problème de compilation mais plutôt une macro d'alerte. Mais bon, en regardant les macros existantes, on se rend compte qu'elle exciste déjà et semble fonctionner. Va falloir investir dans une boule de cristal je crois 😛

 

Dernière édition: 20 Juillet 2011

Vote positif 0 Vote négatif

A

aziz

XLDnaute Occasionnel

• 20 Juillet 2011

• #8

Re : Besoin d'un petit coup main Erreur de compil

Voici mon erreur
voir fichier jpeg

 

Pièces jointes

• Erreur.jpg

  42 KB · Affichages: 80
• Erreur.jpg

  42 KB · Affichages: 93
• Erreur.jpg

  42 KB · Affichages: 91

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

Supporter XLD

• 20 Juillet 2011

• #9

Re : Besoin d'un petit coup main Erreur de compil

Re, Géo

Comptine bien connue :

Pomme, poire, abricot
Y'en a une, y'en a une
Pomme, poire, abricot
Y'en a une de trop!​

Remplacer "Pomme, poire, abricot" par "Private Sub Workbook_Open()"
😛😛😛

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 20 Juillet 2011

• #10

Re : Besoin d'un petit coup main Erreur de compil

Bonjour le fil, bonjour le forum,

Patrick je sens qu'Aziz est en pleine déconfiture... Alors je me permets une explication plus détaillée.
Aziz dans la procédure Open du composant ThisWorkbook tu peux lancer plusieurs macro comme Echéance ou Eclairage mais cet Open est unique ! Tu peux donc avoir :

Code:

Private Sub Workbook_Open()
Echeance
Eclairage
End Sub

dans l'ordre que tu veux, mais pas deux procédures Private Sub Workbook_Open ! Sinon ça plante...

 

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

Supporter XLD

• 20 Juillet 2011

• #11

Re : Besoin d'un petit coup main Erreur de compil

Robert à dit:

Bonjour le fil, bonjour le forum,

Patrick je sens qu'Aziz est en pleine déconfiture...

Cliquez pour agrandir...

déconfiture... d'abricot ?
😛😛😛
Bon, ok, je sors !

 

Vote positif 0 Vote négatif

A

aziz

XLDnaute Occasionnel

• 20 Juillet 2011

• #12

Re : Besoin d'un petit coup main Erreur de compil

Merci beaucoup

 

Vote positif 0 Vote négatif

GeoTrouvePas

XLDnaute Impliqué

• 20 Juillet 2011

• #13

Re : Besoin d'un petit coup main Erreur de compil

Victor21 à dit:

Bon, ok, je sors !

Cliquez pour agrandir...

Non non ! Restes ! Moi j'ai bien rigolé entre ta petite chanson et la confiture !

On dirait en tout cas que Robert a trouvé la solution : fallait écrire en bleu, décomposer l'explication et mettre du gras ^^

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 20 Juillet 2011

• #14

Re : Besoin d'un petit coup main Erreur de compil

Bonsoir

Besoin d'un coup de main pour afficher 2 massages en MgsBox

Cliquez pour agrandir...

Je ne savais pas qu'on pouvait se masser avec une MsgBox ( à moins qu'elle ne soit thailandaise et à forte poitrine comme dirait l'autre )

Bon je fais comme Victor21, je sors et je vais au piquet.

 

Vote positif 0 Vote négatif