Probleme code vba

[houssine77]

Bonjour à tous

je suis entrain de faire un projet mais j'ai des probleme de syntaxe et de programation ci-joint le fichier pour mieux comprendre

quelqu'un aurais une idées ou j'ai commis des erreurs merci d'avance
Houssine

* un grand merci pour le cite de Jacques qui été une grande source d'information et d'aide 🙂

 

[houssine77]

Re : Probleme code vba

OOOps je suis aller trop vite voila le fichier excuse

 

[houssine77]

Re : Probleme code vba

re Bonjour à tous
je n'ai pas reussi à joindre le fichier mais voila je vous mets mon code usf ci joint

merci d'avance🙂
Houssine

Private Sub Adresse_Change()
Verif
End Sub

Private Sub CléSS_Change()
Verif
End Sub

Private Sub CPDomicile_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
Verif
'Controle de saisi numeric Code postal
masque = "#####"
If Not Me.CPDomicile Like "#####" Then
MsgBox "Veuillez remplir correctement le champ"
       Cancel = True
       Exit Sub
       End If
End Sub
Private Sub Date_naissance_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)

End Sub

Private Sub Date_naissance_Change()
Verif
If Me.Date_naissance <> "" And Not IsDate(Me.Date_naissance) Then
MsgBox " Champ Numeric à remplir comme ceci 01/01/19999"
End If
End Sub



Private Sub EmCP_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
Verif
'Controle de saisi numeric Code postal
masque = "#####"
   If Not Me.EmCP Like "#####" Then
       MsgBox "Veuillez remplir correctement le champ"
       Cancel = True
       Exit Sub
       End If
End Sub
Private Sub list_civil_Change()
If Me.list_civil <> "" Then
Me.Nom.Enabled = True
Me.Prénom.Enabled = True
Me.Date_naissance.Enabled = True
Me.EmCP.Enabled = True
Me.Ville.Enabled = True
Me.List_pays.Enabled = True
Me.Adresse.Enabled = True
Me.CPDomicile.Enabled = True
Me.VilleDom.Enabled = True
Me.NSS.Enabled = True
Me.CléSS.Enabled = True

Me.Nom.BackColor = vbWhite
Me.Prénom.BackColor = vbWhite
Me.Date_naissance.BackColor = vbWhite
Me.EmCP.BackColor = vbWhite
Me.Ville.BackColor = vbWhite
Me.List_pays.BackColor = vbWhite
Me.Adresse.BackColor = vbWhite
Me.CPDomicile.BackColor = vbWhite
Me.VilleDom.BackColor = vbWhite
Me.NSS.BackColor = vbWhite
Me.CléSS.BackColor = vbWhite
End If
End Sub

Private Sub List_pays_Change()
Verif
End Sub

Private Sub Nom_Change()
Verif
End Sub

Private Sub NSS_Change()
Verif
End Sub

Private Sub Prénom_Change()
Verif
End Sub

Private Sub Suivante_Click()
[B65000].End(xlUp).Offset(1, 0).Select
  ActiveCell = UCase(Me.list_civil)
  ActiveCell.Offset(0, 1) = Application.Proper(Me.Nom)
  ActiveCell.Offset(0, 2) = Application.Proper(Me.Prénom)
  ActiveCell.Offset(0, 3) = Application.Proper(Me.Date_naissance)
  ActiveCell.Offset(0, 4) = Application.Proper(Me.EmCP)
  ActiveCell.Offset(0, 5) = Application.Proper(Me.Ville)
  ActiveCell.Offset(0, 6) = Application.Proper(Me.List_pays)
  ActiveCell.Offset(0, 7) = Application.Proper(Me.Adresse)
  ActiveCell.Offset(0, 8) = Application.Proper(Me.CPDomicile)
  ActiveCell.Offset(0, 9) = Application.Proper(Me.VilleDom)
  ActiveCell.Offset(0, 10) = Application.Proper(Me.NSS)
  'ActiveCell.Offset(0, 11) = Application.Proper(Me.CléSS)
  'ActiveCell.Offset(0, 1) = CDbl(Me.CléSS)
  [B2:C1000].Sort key1:=[B2]

Raz
End Sub

Private Sub UserForm_Initialize()
Me.list_civil.List = Array("Monsieur", "Madame", "Madmoselle")
Me.List_pays.List = Array("France", "Belgique", "Maroc")

End Sub

Sub Raz()
Me.list_civil = ""
Me.Nom = ""
Me.Prénom = ""
Me.Date_naissance = ""
Me.EmCP = ""
Me.Ville = ""
Me.List_pays = ""
Me.Adresse = ""
Me.CPDomicile = ""
Me.VilleDom = ""
Me.NSS = ""
Me.CléSS = ""
Me.Nom.Enabled = False
Me.Prénom.Enabled = False
Me.Date_naissance.Enabled = False
Me.EmCP.Enabled = False
Me.Ville.Enabled = False
Me.List_pays.Enabled = False
Me.Adresse.Enabled = False
Me.CPDomicile.Enabled = False
Me.VilleDom.Enabled = False
Me.NSS.Enabled = False
Me.CléSS.Enabled = False
'Couleur verouiller les chmps
Me.Nom.BackColor = Me.BackColor
Me.Prénom.BackColor = Me.BackColor
Me.Date_naissance.BackColor = Me.BackColor
Me.EmCP.BackColor = Me.BackColor
Me.Ville.BackColor = Me.BackColor
Me.List_pays.BackColor = Me.BackColor
Me.Adresse.BackColor = Me.BackColor
Me.CPDomicile.BackColor = Me.BackColor
Me.VilleDom.BackColor = Me.BackColor
Me.NSS.BackColor = Me.BackColor
Me.CléSS.BackColor = Me.BackColor
Me.Suivante.Enabled = False

End Sub

'Verfication que tous les champs sont rempli
Sub Verif()
'nom, prenom, date de naissance, EmpCP, ville, listPays, adresse, CpDomicile, villedom, nss,cless
If Me.Nom <> "" And Me.Prénom <> "" And Me.Date_naissance <> "" And Me.EmCP <> "" And Me.Ville <> "" And Me.List_pays <> "" And Me.Adresse <> "" And Me.CPDomicile <> "" And Me.VilleDom <> "" And Me.NSS <> "" And Me.CléSS <> "" Then
Me.Suivante.Enabled = True
End If
End Sub

Private Sub Ville_Change()
Verif
End Sub

Private Sub VilleDom_Change()
Verif
End Sub

 

[13GIBE59]

Re : Probleme code vba

Bonjour Houssine. 🙂

Tu devrais te mettre à la place des lecteurs. 😱
Au lieu de nous joindre un fichier exploitable, tu nous copies une immense liste de lignes de code, sans même nous indiquer l'endroit où ça bugue ! 😡

Impossible dans ces conditions de t'aider. 🙁

 

[houssine77]

Re : Probleme code vba

Re Jean BERBARD et le forum
je n'ai pas parvenu a joindre le fichier 😕
donc je n'ai eu q cette solution désolé

 

[houssine77]

Re : Probleme code vba

Re a tous
enfin j'ai le moyen de joindre un lien
Cijoint.fr - Service gratuit de dépôt de fichiers
j'espere q ca va marcher en plus c'est plus simple

merci de votre comprehension

 

[houssine77]

Affichage de soustraction sur label

Bonjour lr forum

j'ai un txtbox date naissance et un label sur un usf, je souhaiterais qu'il m'affiche l'age à la saisi de la date naissance et que je puisse l'enregister apres, quelqu'un aurai une pour m'aider svp
Merci
Houssine