Laisse moi rire
XLDnaute Occasionnel
Salut a toutes et tous
C'est a rien n'y comprendre.
J'utilise ce code, pour tester si le controle et rempli, le mettre dans une variable, de manière a remplire un TextBox dans une feuille.
'=============================================
'Test des controls pour remplissage du control
'=============================================
'Pour la date et le lieu dela prestation
If txtDateDeLaPrestation > '' Then DatePrestation = vbCrLf _
& 'Cette prestation aura lieu le ' _
& txtDateDeLaPrestation.Value
If cbxNomDeSalle > '' Then NomDeSalle ', à ' _
& cbxNomDeSalle.Value
If txtLieuSalle > '' Then NomDeSalle ' de ' _
& txtLieuSalle.Value
Mais cela me génère une erreur (sur la partie en bleue):
Sub, Function ou Property attendue
Alors que j'utilise la même chose (Sauf que le controle n'est pas le même, mais j'ai modifié le nom), a ce niveau.
'Pour la réduction appliquée en pourcentage
If cbxReduction > '' Then RéductionEuros = vbCrLf & vbCrLf _
& 'Une réduction de ' & cbxReduction.Value & ' %, a été appliquée.' _
& vbCrLf & vbCrLf & 'Le montant de cette réduction d'élève a ' _
& txtMontantRemiseEuros & ' €uros, ' _
& ' soit ' & txtMontantRemiseFrancs & ' Francs.'
La variable est déclaré comme suit :
Dim DatePrestation, NomDeSalle As String
Qu'es-ce qu'il peu clocher?
Es-ce du aux données contenue dans le control?
Merci d'avance, G'Claire
Message édité par: GClaire, à: 12/11/2005 10:09
C'est a rien n'y comprendre.
J'utilise ce code, pour tester si le controle et rempli, le mettre dans une variable, de manière a remplire un TextBox dans une feuille.
'=============================================
'Test des controls pour remplissage du control
'=============================================
'Pour la date et le lieu dela prestation
If txtDateDeLaPrestation > '' Then DatePrestation = vbCrLf _
& 'Cette prestation aura lieu le ' _
& txtDateDeLaPrestation.Value
If cbxNomDeSalle > '' Then NomDeSalle ', à ' _
& cbxNomDeSalle.Value
If txtLieuSalle > '' Then NomDeSalle ' de ' _
& txtLieuSalle.Value
Mais cela me génère une erreur (sur la partie en bleue):
Sub, Function ou Property attendue
Alors que j'utilise la même chose (Sauf que le controle n'est pas le même, mais j'ai modifié le nom), a ce niveau.
'Pour la réduction appliquée en pourcentage
If cbxReduction > '' Then RéductionEuros = vbCrLf & vbCrLf _
& 'Une réduction de ' & cbxReduction.Value & ' %, a été appliquée.' _
& vbCrLf & vbCrLf & 'Le montant de cette réduction d'élève a ' _
& txtMontantRemiseEuros & ' €uros, ' _
& ' soit ' & txtMontantRemiseFrancs & ' Francs.'
La variable est déclaré comme suit :
Dim DatePrestation, NomDeSalle As String
Qu'es-ce qu'il peu clocher?
Es-ce du aux données contenue dans le control?
Merci d'avance, G'Claire
Message édité par: GClaire, à: 12/11/2005 10:09