Discussion :

[thomasaurelien]

Bonjour,

Voila je me permet de vous détailler mon petit problème en VBA pour Excel

J'ai un module simple avec une sub qui permet de construire un titre :

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
 
' Oblige la déclaration des variables au préalable
Option Explicit
 
' Constantes énumérées des différents Statut
Enum Statut_Travail
    Consulter = 0
    Ajouter = 1
    Modifier = 2
    Supprimer = 3
End Enum
Const Statut_Fetat As String = "Consultation;Nouveau;Modification;Suppresion"
' Titre Fiche état
Const DebTitre_Fetat As String = " Etat : "
' Tableau des différents statut
Dim After_TitreFiche() As String
'
 
 
Sub Write_Titrefiche(ByVal Etat As Byte, Titre_Fiche As String)
    After_TitreFiche = Split(Statut_Fetat, ";")
    MsgBox Titre_Fetat & After_TitreFiche(Etat)
    Titre_Etat = DebTitre_Fetat & After_TitreFiche(Etat)
End Sub

J'ai aussi un Userform avec du code qui à l'activation de celui-ci fait appel a la sub du 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
' Oblige la déclaration des variables au préalable
Option Explicit

' Titre UserForm
Const Titre_UFbook As String = ".::: Gestion des bookmakers"

' Etat du travail en cours
Dim Etat_Travencours As String
' Titre fiche état
Dim Titre_Fetat As String
'


Private Sub UserForm_Activate()
    Me.Caption = Titre_UFbook
    Etat_Travencours = Mod_functions.Statut_Travail.Consulter
    Mod_functions.Write_Titrefiche(Etat_Travencours,Titre_Fetat)
End Sub

La ligne rouge m'indique une erreur de syntaxe alors que le nombre de paramètre est bon ils sont tous les 2 déclaré en string.

Je ne vois pas la problème, vous avez sas doute plus l'expérience que moi...

Merci de votre aide

[Invité]

Code :

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

Write_Titrefiche Etat_Travencours,Titre_Fetat

[Jean-Philippe André]

Bonjour

2 syntaxes me viennent en tete

Code :

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

Mod_functions.Write_Titrefiche Etat_Travencours,Titre_Fetat

Code :

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

Call Mod_functions.Write_Titrefiche(Etat_Travencours,Titre_Fetat)

voire meme sans le Mod_function

Code :

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

Write_Titrefiche Etat_Travencours,Titre_Fetat

ou

Code :

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

Call Write_Titrefiche(Etat_Travencours,Titre_Fetat)

[joe.levrai]

Bonjour,

mis à part ta question initiale qui a déjà fait l'objet d'une réponse que j'appuie.

Etat_Travencours est déclaré en String
Tu l'utilises comme paramètre dans une fonction qui attend un Byte, c'est normal ?

Code :

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

Sub Write_Titrefiche(ByVal Etat As Byte, Titre_Fiche As String)

Code :

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

1
2
Dim Etat_Travencours As String
Mod_functions.Write_Titrefiche(Etat_Travencours,Titre_Fetat)

[thomasaurelien]

Erreur que j'ai corrigé entre le moment du post du message et votre message

Bonjour,

mis à part ta question initiale qui a déjà fait l'objet d'une réponse que j'appuie.

Etat_Travencours est déclaré en String
Tu l'utilises comme paramètre dans une fonction qui attend un Byte, c'est normal ?

Code :

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

Sub Write_Titrefiche(ByVal Etat As Byte, Titre_Fiche As String)

Code :

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

1
2
Dim Etat_Travencours As String
Mod_functions.Write_Titrefiche(Etat_Travencours,Titre_Fetat)

Merci bien pour votre aide