Bonsoir,
je pensais avoir trouver une solution pour obliger l'utilisateur
a remplir les textbox mais cela ne marche pas voici le code
Private Sub valider_Click()
Application.ScreenUpdating = False
Sheets("zaza").Select
[A500].End(xlUp).Offset(1, 1).Select
ActiveCell.Offset(0, -1) = ActiveCell.Offset(-1, -1) + 1
For Each Ctrl In ACA.Controls
If TypeName(Ctrl) = "TextBox" Then
If Ctrl.Tag = "Obligatoire" And Ctrl.Text = "" Then
Ctrl.SetFocus
MsgBox "Vous devez obligatoirement remplir" & vbCr _
& "le champ <" & Ctrl.ControlTipText & "> ",
vbInformation
End If
End If
Next Ctrl
Me.Titre.SetFocus
'Titre.Text = ActiveControl.Tag
ActiveCell.Offset(0, 0).Value = Application.Proper(Me.Titre)
ActiveCell.Offset(0, 1).Value = UCase(Me.nom)
nom.Text = ActiveControl.Tag
ActiveCell.Offset(0, 2).Value = Application.Proper(Me.Prenom)
Prenom.Text = ActiveControl.Tag
ActiveCell.Offset(0, 3).Value = Application.Proper(Me.Adresse)
Adresse.Text = ActiveControl.Tag
ActiveCell.Offset(0, 4).Value = Me.Ville
Ville.Text = ActiveControl.Tag
ActiveCell.Offset(0, 5).Value = Me.Telephone
ActiveCell.Offset(0, 7).Value = Me.EMail1 & "@" & Me.EMail2
ActiveCell.Offset(0, 8).Value = Me.N°_Lic
ActiveCell.Offset(0, 9).Value = Me.Telephone_mob
For Each Ctrl In ACA.Controls
If TypeName(Ctrl) = "TextBox" Then
If Ctrl.Tag = "Obligatoire" And Ctrl.Text = "" Then
Ctrl.SetFocus
MsgBox "Vous devez obligatoirement remplir" & vbCr _
& "le champ <" & Ctrl.ControlTipText & "> ",
vbInformation
End If
End If
Next Ctrl
etc..
etc..
End Sub
pensez vous qu'il y a plus simple comme code
bonne soiree a vous toutes et tous
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
isabelle
bonjour Andre,
il faut quitter la macro pour ce faire,
For Each Ctrl In ACA.Controls If TypeName(Ctrl) = "TextBox" Then If Ctrl.Tag = "Obligatoire" And Ctrl.Text = "" Then Ctrl.SetFocus MsgBox "Vous devez obligatoirement remplir" & vbCr _ & "le champ <" & Ctrl.ControlTipText & "> ", vbInformation Exit Sub End If End If Next Ctrl
isabelle
andre a écrit :
Bonsoir, je pensais avoir trouver une solution pour obliger l'utilisateur a remplir les textbox mais cela ne marche pas voici le code Private Sub valider_Click() Application.ScreenUpdating = False Sheets("zaza").Select [A500].End(xlUp).Offset(1, 1).Select ActiveCell.Offset(0, -1) = ActiveCell.Offset(-1, -1) + 1 For Each Ctrl In ACA.Controls If TypeName(Ctrl) = "TextBox" Then If Ctrl.Tag = "Obligatoire" And Ctrl.Text = "" Then Ctrl.SetFocus MsgBox "Vous devez obligatoirement remplir" & vbCr _ & "le champ <" & Ctrl.ControlTipText & "> ", vbInformation End If End If Next Ctrl Me.Titre.SetFocus 'Titre.Text = ActiveControl.Tag ActiveCell.Offset(0, 0).Value = Application.Proper(Me.Titre) ActiveCell.Offset(0, 1).Value = UCase(Me.nom) nom.Text = ActiveControl.Tag ActiveCell.Offset(0, 2).Value = Application.Proper(Me.Prenom) Prenom.Text = ActiveControl.Tag ActiveCell.Offset(0, 3).Value = Application.Proper(Me.Adresse) Adresse.Text = ActiveControl.Tag ActiveCell.Offset(0, 4).Value = Me.Ville Ville.Text = ActiveControl.Tag ActiveCell.Offset(0, 5).Value = Me.Telephone
ActiveCell.Offset(0, 7).Value = Me.EMail1 & "@" & Me.EMail2 ActiveCell.Offset(0, 8).Value = Me.N°_Lic ActiveCell.Offset(0, 9).Value = Me.Telephone_mob For Each Ctrl In ACA.Controls If TypeName(Ctrl) = "TextBox" Then If Ctrl.Tag = "Obligatoire" And Ctrl.Text = "" Then Ctrl.SetFocus MsgBox "Vous devez obligatoirement remplir" & vbCr _ & "le champ <" & Ctrl.ControlTipText & "> ", vbInformation End If End If Next Ctrl etc.. etc..
End Sub pensez vous qu'il y a plus simple comme code bonne soiree a vous toutes et tous
bonjour Andre,
il faut quitter la macro pour ce faire,
For Each Ctrl In ACA.Controls
If TypeName(Ctrl) = "TextBox" Then
If Ctrl.Tag = "Obligatoire" And Ctrl.Text = "" Then
Ctrl.SetFocus
MsgBox "Vous devez obligatoirement remplir" & vbCr _
& "le champ <" & Ctrl.ControlTipText & "> ", vbInformation
Exit Sub
End If
End If
Next Ctrl
isabelle
andre a écrit :
Bonsoir,
je pensais avoir trouver une solution pour obliger l'utilisateur
a remplir les textbox mais cela ne marche pas voici le code
Private Sub valider_Click()
Application.ScreenUpdating = False
Sheets("zaza").Select
[A500].End(xlUp).Offset(1, 1).Select
ActiveCell.Offset(0, -1) = ActiveCell.Offset(-1, -1) + 1
For Each Ctrl In ACA.Controls
If TypeName(Ctrl) = "TextBox" Then
If Ctrl.Tag = "Obligatoire" And Ctrl.Text = "" Then
Ctrl.SetFocus
MsgBox "Vous devez obligatoirement remplir" & vbCr _
& "le champ <" & Ctrl.ControlTipText & "> ",
vbInformation
End If
End If
Next Ctrl
Me.Titre.SetFocus
'Titre.Text = ActiveControl.Tag
ActiveCell.Offset(0, 0).Value = Application.Proper(Me.Titre)
ActiveCell.Offset(0, 1).Value = UCase(Me.nom)
nom.Text = ActiveControl.Tag
ActiveCell.Offset(0, 2).Value = Application.Proper(Me.Prenom)
Prenom.Text = ActiveControl.Tag
ActiveCell.Offset(0, 3).Value = Application.Proper(Me.Adresse)
Adresse.Text = ActiveControl.Tag
ActiveCell.Offset(0, 4).Value = Me.Ville
Ville.Text = ActiveControl.Tag
ActiveCell.Offset(0, 5).Value = Me.Telephone
ActiveCell.Offset(0, 7).Value = Me.EMail1 & "@" & Me.EMail2
ActiveCell.Offset(0, 8).Value = Me.N°_Lic
ActiveCell.Offset(0, 9).Value = Me.Telephone_mob
For Each Ctrl In ACA.Controls
If TypeName(Ctrl) = "TextBox" Then
If Ctrl.Tag = "Obligatoire" And Ctrl.Text = "" Then
Ctrl.SetFocus
MsgBox "Vous devez obligatoirement remplir" & vbCr _
& "le champ <" & Ctrl.ControlTipText & "> ",
vbInformation
End If
End If
Next Ctrl
etc..
etc..
End Sub
pensez vous qu'il y a plus simple comme code
bonne soiree a vous toutes et tous
For Each Ctrl In ACA.Controls If TypeName(Ctrl) = "TextBox" Then If Ctrl.Tag = "Obligatoire" And Ctrl.Text = "" Then Ctrl.SetFocus MsgBox "Vous devez obligatoirement remplir" & vbCr _ & "le champ <" & Ctrl.ControlTipText & "> ", vbInformation Exit Sub End If End If Next Ctrl
isabelle
andre a écrit :
Bonsoir, je pensais avoir trouver une solution pour obliger l'utilisateur a remplir les textbox mais cela ne marche pas voici le code Private Sub valider_Click() Application.ScreenUpdating = False Sheets("zaza").Select [A500].End(xlUp).Offset(1, 1).Select ActiveCell.Offset(0, -1) = ActiveCell.Offset(-1, -1) + 1 For Each Ctrl In ACA.Controls If TypeName(Ctrl) = "TextBox" Then If Ctrl.Tag = "Obligatoire" And Ctrl.Text = "" Then Ctrl.SetFocus MsgBox "Vous devez obligatoirement remplir" & vbCr _ & "le champ <" & Ctrl.ControlTipText & "> ", vbInformation End If End If Next Ctrl Me.Titre.SetFocus 'Titre.Text = ActiveControl.Tag ActiveCell.Offset(0, 0).Value = Application.Proper(Me.Titre) ActiveCell.Offset(0, 1).Value = UCase(Me.nom) nom.Text = ActiveControl.Tag ActiveCell.Offset(0, 2).Value = Application.Proper(Me.Prenom) Prenom.Text = ActiveControl.Tag ActiveCell.Offset(0, 3).Value = Application.Proper(Me.Adresse) Adresse.Text = ActiveControl.Tag ActiveCell.Offset(0, 4).Value = Me.Ville Ville.Text = ActiveControl.Tag ActiveCell.Offset(0, 5).Value = Me.Telephone
ActiveCell.Offset(0, 7).Value = Me.EMail1 & "@" & Me.EMail2 ActiveCell.Offset(0, 8).Value = Me.N°_Lic ActiveCell.Offset(0, 9).Value = Me.Telephone_mob For Each Ctrl In ACA.Controls If TypeName(Ctrl) = "TextBox" Then If Ctrl.Tag = "Obligatoire" And Ctrl.Text = "" Then Ctrl.SetFocus MsgBox "Vous devez obligatoirement remplir" & vbCr _ & "le champ <" & Ctrl.ControlTipText & "> ", vbInformation End If End If Next Ctrl etc.. etc..
End Sub pensez vous qu'il y a plus simple comme code bonne soiree a vous toutes et tous
isabelle
correction :
For Each Ctrl In ACA.Controls If TypeName(Ctrl) = "TextBox" Then If Ctrl.Tag = "Obligatoire" And Ctrl.Text = "" Then Ctrl.SetFocus MsgBox "Vous devez obligatoirement remplir" & vbCr _ & "le champ <" & Ctrl.ControlTipText & "> ", vbInformation Exit Sub End If End If Next Ctrl
andre a écrit :
Bonsoir, je pensais avoir trouver une solution pour obliger l'utilisateur a remplir les textbox mais cela ne marche pas voici le code Private Sub valider_Click() Application.ScreenUpdating = False Sheets("zaza").Select [A500].End(xlUp).Offset(1, 1).Select ActiveCell.Offset(0, -1) = ActiveCell.Offset(-1, -1) + 1 For Each Ctrl In ACA.Controls If TypeName(Ctrl) = "TextBox" Then If Ctrl.Tag = "Obligatoire" And Ctrl.Text = "" Then Ctrl.SetFocus MsgBox "Vous devez obligatoirement remplir" & vbCr _ & "le champ <" & Ctrl.ControlTipText & "> ", vbInformation End If End If Next Ctrl Me.Titre.SetFocus 'Titre.Text = ActiveControl.Tag ActiveCell.Offset(0, 0).Value = Application.Proper(Me.Titre) ActiveCell.Offset(0, 1).Value = UCase(Me.nom) nom.Text = ActiveControl.Tag ActiveCell.Offset(0, 2).Value = Application.Proper(Me.Prenom) Prenom.Text = ActiveControl.Tag ActiveCell.Offset(0, 3).Value = Application.Proper(Me.Adresse) Adresse.Text = ActiveControl.Tag ActiveCell.Offset(0, 4).Value = Me.Ville Ville.Text = ActiveControl.Tag ActiveCell.Offset(0, 5).Value = Me.Telephone
ActiveCell.Offset(0, 7).Value = Me.EMail1 & "@" & Me.EMail2 ActiveCell.Offset(0, 8).Value = Me.N°_Lic ActiveCell.Offset(0, 9).Value = Me.Telephone_mob For Each Ctrl In ACA.Controls If TypeName(Ctrl) = "TextBox" Then If Ctrl.Tag = "Obligatoire" And Ctrl.Text = "" Then Ctrl.SetFocus MsgBox "Vous devez obligatoirement remplir" & vbCr _ & "le champ <" & Ctrl.ControlTipText & "> ", vbInformation End If End If Next Ctrl etc.. etc..
End Sub pensez vous qu'il y a plus simple comme code bonne soiree a vous toutes et tous
correction :
For Each Ctrl In ACA.Controls
If TypeName(Ctrl) = "TextBox" Then
If Ctrl.Tag = "Obligatoire" And Ctrl.Text = "" Then
Ctrl.SetFocus
MsgBox "Vous devez obligatoirement remplir" & vbCr _
& "le champ <" & Ctrl.ControlTipText & "> ", vbInformation
Exit Sub
End If
End If
Next Ctrl
andre a écrit :
Bonsoir,
je pensais avoir trouver une solution pour obliger l'utilisateur
a remplir les textbox mais cela ne marche pas voici le code
Private Sub valider_Click()
Application.ScreenUpdating = False
Sheets("zaza").Select
[A500].End(xlUp).Offset(1, 1).Select
ActiveCell.Offset(0, -1) = ActiveCell.Offset(-1, -1) + 1
For Each Ctrl In ACA.Controls
If TypeName(Ctrl) = "TextBox" Then
If Ctrl.Tag = "Obligatoire" And Ctrl.Text = "" Then
Ctrl.SetFocus
MsgBox "Vous devez obligatoirement remplir" & vbCr _
& "le champ <" & Ctrl.ControlTipText & "> ",
vbInformation
End If
End If
Next Ctrl
Me.Titre.SetFocus
'Titre.Text = ActiveControl.Tag
ActiveCell.Offset(0, 0).Value = Application.Proper(Me.Titre)
ActiveCell.Offset(0, 1).Value = UCase(Me.nom)
nom.Text = ActiveControl.Tag
ActiveCell.Offset(0, 2).Value = Application.Proper(Me.Prenom)
Prenom.Text = ActiveControl.Tag
ActiveCell.Offset(0, 3).Value = Application.Proper(Me.Adresse)
Adresse.Text = ActiveControl.Tag
ActiveCell.Offset(0, 4).Value = Me.Ville
Ville.Text = ActiveControl.Tag
ActiveCell.Offset(0, 5).Value = Me.Telephone
ActiveCell.Offset(0, 7).Value = Me.EMail1 & "@" & Me.EMail2
ActiveCell.Offset(0, 8).Value = Me.N°_Lic
ActiveCell.Offset(0, 9).Value = Me.Telephone_mob
For Each Ctrl In ACA.Controls
If TypeName(Ctrl) = "TextBox" Then
If Ctrl.Tag = "Obligatoire" And Ctrl.Text = "" Then
Ctrl.SetFocus
MsgBox "Vous devez obligatoirement remplir" & vbCr _
& "le champ <" & Ctrl.ControlTipText & "> ",
vbInformation
End If
End If
Next Ctrl
etc..
etc..
End Sub
pensez vous qu'il y a plus simple comme code
bonne soiree a vous toutes et tous
For Each Ctrl In ACA.Controls If TypeName(Ctrl) = "TextBox" Then If Ctrl.Tag = "Obligatoire" And Ctrl.Text = "" Then Ctrl.SetFocus MsgBox "Vous devez obligatoirement remplir" & vbCr _ & "le champ <" & Ctrl.ControlTipText & "> ", vbInformation Exit Sub End If End If Next Ctrl
andre a écrit :
Bonsoir, je pensais avoir trouver une solution pour obliger l'utilisateur a remplir les textbox mais cela ne marche pas voici le code Private Sub valider_Click() Application.ScreenUpdating = False Sheets("zaza").Select [A500].End(xlUp).Offset(1, 1).Select ActiveCell.Offset(0, -1) = ActiveCell.Offset(-1, -1) + 1 For Each Ctrl In ACA.Controls If TypeName(Ctrl) = "TextBox" Then If Ctrl.Tag = "Obligatoire" And Ctrl.Text = "" Then Ctrl.SetFocus MsgBox "Vous devez obligatoirement remplir" & vbCr _ & "le champ <" & Ctrl.ControlTipText & "> ", vbInformation End If End If Next Ctrl Me.Titre.SetFocus 'Titre.Text = ActiveControl.Tag ActiveCell.Offset(0, 0).Value = Application.Proper(Me.Titre) ActiveCell.Offset(0, 1).Value = UCase(Me.nom) nom.Text = ActiveControl.Tag ActiveCell.Offset(0, 2).Value = Application.Proper(Me.Prenom) Prenom.Text = ActiveControl.Tag ActiveCell.Offset(0, 3).Value = Application.Proper(Me.Adresse) Adresse.Text = ActiveControl.Tag ActiveCell.Offset(0, 4).Value = Me.Ville Ville.Text = ActiveControl.Tag ActiveCell.Offset(0, 5).Value = Me.Telephone
ActiveCell.Offset(0, 7).Value = Me.EMail1 & "@" & Me.EMail2 ActiveCell.Offset(0, 8).Value = Me.N°_Lic ActiveCell.Offset(0, 9).Value = Me.Telephone_mob For Each Ctrl In ACA.Controls If TypeName(Ctrl) = "TextBox" Then If Ctrl.Tag = "Obligatoire" And Ctrl.Text = "" Then Ctrl.SetFocus MsgBox "Vous devez obligatoirement remplir" & vbCr _ & "le champ <" & Ctrl.ControlTipText & "> ", vbInformation End If End If Next Ctrl etc.. etc..
End Sub pensez vous qu'il y a plus simple comme code bonne soiree a vous toutes et tous
isabelle
correction :
For Each Ctrl In ACA.Controls If TypeName(Ctrl) = "TextBox" Then If Ctrl.Tag = "Obligatoire" And Ctrl.Text = "" Then Ctrl.SetFocus MsgBox "Vous devez obligatoirement remplir" & vbCr _ & "le champ <" & Ctrl.ControlTipText & "> ", vbInformation Exit Sub End If End If Next Ctrl
isabelle
isabelle a écrit :
bonjour Andre,
il faut quitter la macro pour ce faire,
For Each Ctrl In ACA.Controls If TypeName(Ctrl) = "TextBox" Then If Ctrl.Tag = "Obligatoire" And Ctrl.Text = "" Then Ctrl.SetFocus MsgBox "Vous devez obligatoirement remplir" & vbCr _ & "le champ <" & Ctrl.ControlTipText & "> ", vbInformation Exit Sub End If End If Next Ctrl
isabelle
andre a écrit :
Bonsoir, je pensais avoir trouver une solution pour obliger l'utilisateur a remplir les textbox mais cela ne marche pas voici le code Private Sub valider_Click() Application.ScreenUpdating = False Sheets("zaza").Select [A500].End(xlUp).Offset(1, 1).Select ActiveCell.Offset(0, -1) = ActiveCell.Offset(-1, -1) + 1 For Each Ctrl In ACA.Controls If TypeName(Ctrl) = "TextBox" Then If Ctrl.Tag = "Obligatoire" And Ctrl.Text = "" Then Ctrl.SetFocus MsgBox "Vous devez obligatoirement remplir" & vbCr _ & "le champ <" & Ctrl.ControlTipText & "> ", vbInformation End If End If Next Ctrl Me.Titre.SetFocus 'Titre.Text = ActiveControl.Tag ActiveCell.Offset(0, 0).Value = Application.Proper(Me.Titre) ActiveCell.Offset(0, 1).Value = UCase(Me.nom) nom.Text = ActiveControl.Tag ActiveCell.Offset(0, 2).Value = Application.Proper(Me.Prenom) Prenom.Text = ActiveControl.Tag ActiveCell.Offset(0, 3).Value = Application.Proper(Me.Adresse) Adresse.Text = ActiveControl.Tag ActiveCell.Offset(0, 4).Value = Me.Ville Ville.Text = ActiveControl.Tag ActiveCell.Offset(0, 5).Value = Me.Telephone
ActiveCell.Offset(0, 7).Value = Me.EMail1 & "@" & Me.EMail2 ActiveCell.Offset(0, 8).Value = Me.N°_Lic ActiveCell.Offset(0, 9).Value = Me.Telephone_mob For Each Ctrl In ACA.Controls If TypeName(Ctrl) = "TextBox" Then If Ctrl.Tag = "Obligatoire" And Ctrl.Text = "" Then Ctrl.SetFocus MsgBox "Vous devez obligatoirement remplir" & vbCr _ & "le champ <" & Ctrl.ControlTipText & "> ", vbInformation End If End If Next Ctrl etc.. etc..
End Sub pensez vous qu'il y a plus simple comme code bonne soiree a vous toutes et tous
correction :
For Each Ctrl In ACA.Controls
If TypeName(Ctrl) = "TextBox" Then
If Ctrl.Tag = "Obligatoire" And Ctrl.Text = "" Then
Ctrl.SetFocus
MsgBox "Vous devez obligatoirement remplir" & vbCr _
& "le champ <" & Ctrl.ControlTipText & "> ", vbInformation
Exit Sub
End If
End If
Next Ctrl
isabelle
isabelle a écrit :
bonjour Andre,
il faut quitter la macro pour ce faire,
For Each Ctrl In ACA.Controls
If TypeName(Ctrl) = "TextBox" Then
If Ctrl.Tag = "Obligatoire" And Ctrl.Text = "" Then
Ctrl.SetFocus
MsgBox "Vous devez obligatoirement remplir" & vbCr _
& "le champ <" & Ctrl.ControlTipText & "> ",
vbInformation
Exit Sub End If
End If
Next Ctrl
isabelle
andre a écrit :
Bonsoir,
je pensais avoir trouver une solution pour obliger l'utilisateur
a remplir les textbox mais cela ne marche pas voici le code
Private Sub valider_Click()
Application.ScreenUpdating = False
Sheets("zaza").Select
[A500].End(xlUp).Offset(1, 1).Select
ActiveCell.Offset(0, -1) = ActiveCell.Offset(-1, -1) + 1
For Each Ctrl In ACA.Controls
If TypeName(Ctrl) = "TextBox" Then
If Ctrl.Tag = "Obligatoire" And Ctrl.Text = "" Then
Ctrl.SetFocus
MsgBox "Vous devez obligatoirement remplir" & vbCr _
& "le champ <" & Ctrl.ControlTipText & "> ",
vbInformation
End If
End If
Next Ctrl
Me.Titre.SetFocus
'Titre.Text = ActiveControl.Tag
ActiveCell.Offset(0, 0).Value = Application.Proper(Me.Titre)
ActiveCell.Offset(0, 1).Value = UCase(Me.nom)
nom.Text = ActiveControl.Tag
ActiveCell.Offset(0, 2).Value = Application.Proper(Me.Prenom)
Prenom.Text = ActiveControl.Tag
ActiveCell.Offset(0, 3).Value = Application.Proper(Me.Adresse)
Adresse.Text = ActiveControl.Tag
ActiveCell.Offset(0, 4).Value = Me.Ville
Ville.Text = ActiveControl.Tag
ActiveCell.Offset(0, 5).Value = Me.Telephone
ActiveCell.Offset(0, 7).Value = Me.EMail1 & "@" & Me.EMail2
ActiveCell.Offset(0, 8).Value = Me.N°_Lic
ActiveCell.Offset(0, 9).Value = Me.Telephone_mob
For Each Ctrl In ACA.Controls
If TypeName(Ctrl) = "TextBox" Then
If Ctrl.Tag = "Obligatoire" And Ctrl.Text = "" Then
Ctrl.SetFocus
MsgBox "Vous devez obligatoirement remplir" & vbCr _
& "le champ <" & Ctrl.ControlTipText & "> ",
vbInformation
End If
End If
Next Ctrl
etc..
etc..
End Sub
pensez vous qu'il y a plus simple comme code
bonne soiree a vous toutes et tous
For Each Ctrl In ACA.Controls If TypeName(Ctrl) = "TextBox" Then If Ctrl.Tag = "Obligatoire" And Ctrl.Text = "" Then Ctrl.SetFocus MsgBox "Vous devez obligatoirement remplir" & vbCr _ & "le champ <" & Ctrl.ControlTipText & "> ", vbInformation Exit Sub End If End If Next Ctrl
isabelle
isabelle a écrit :
bonjour Andre,
il faut quitter la macro pour ce faire,
For Each Ctrl In ACA.Controls If TypeName(Ctrl) = "TextBox" Then If Ctrl.Tag = "Obligatoire" And Ctrl.Text = "" Then Ctrl.SetFocus MsgBox "Vous devez obligatoirement remplir" & vbCr _ & "le champ <" & Ctrl.ControlTipText & "> ", vbInformation Exit Sub End If End If Next Ctrl
isabelle
andre a écrit :
Bonsoir, je pensais avoir trouver une solution pour obliger l'utilisateur a remplir les textbox mais cela ne marche pas voici le code Private Sub valider_Click() Application.ScreenUpdating = False Sheets("zaza").Select [A500].End(xlUp).Offset(1, 1).Select ActiveCell.Offset(0, -1) = ActiveCell.Offset(-1, -1) + 1 For Each Ctrl In ACA.Controls If TypeName(Ctrl) = "TextBox" Then If Ctrl.Tag = "Obligatoire" And Ctrl.Text = "" Then Ctrl.SetFocus MsgBox "Vous devez obligatoirement remplir" & vbCr _ & "le champ <" & Ctrl.ControlTipText & "> ", vbInformation End If End If Next Ctrl Me.Titre.SetFocus 'Titre.Text = ActiveControl.Tag ActiveCell.Offset(0, 0).Value = Application.Proper(Me.Titre) ActiveCell.Offset(0, 1).Value = UCase(Me.nom) nom.Text = ActiveControl.Tag ActiveCell.Offset(0, 2).Value = Application.Proper(Me.Prenom) Prenom.Text = ActiveControl.Tag ActiveCell.Offset(0, 3).Value = Application.Proper(Me.Adresse) Adresse.Text = ActiveControl.Tag ActiveCell.Offset(0, 4).Value = Me.Ville Ville.Text = ActiveControl.Tag ActiveCell.Offset(0, 5).Value = Me.Telephone
ActiveCell.Offset(0, 7).Value = Me.EMail1 & "@" & Me.EMail2 ActiveCell.Offset(0, 8).Value = Me.N°_Lic ActiveCell.Offset(0, 9).Value = Me.Telephone_mob For Each Ctrl In ACA.Controls If TypeName(Ctrl) = "TextBox" Then If Ctrl.Tag = "Obligatoire" And Ctrl.Text = "" Then Ctrl.SetFocus MsgBox "Vous devez obligatoirement remplir" & vbCr _ & "le champ <" & Ctrl.ControlTipText & "> ", vbInformation End If End If Next Ctrl etc.. etc..
End Sub pensez vous qu'il y a plus simple comme code bonne soiree a vous toutes et tous
andre
bonjour isabelle je vais l'essayer demain mais question tu dis il faut quitter la macro alors comment s'execute la suite c'est une sub de validation de tous les textbox merci bon dimanche
correction :
For Each Ctrl In ACA.Controls If TypeName(Ctrl) = "TextBox" Then If Ctrl.Tag = "Obligatoire" And Ctrl.Text = "" Then Ctrl.SetFocus MsgBox "Vous devez obligatoirement remplir" & vbCr _ & "le champ <" & Ctrl.ControlTipText & "> ", vbInformation Exit Sub End If End If Next Ctrl
isabelle
-- andre
bonjour isabelle
je vais l'essayer demain
mais question
tu dis il faut quitter la macro
alors comment s'execute la suite
c'est une sub de validation de tous les textbox
merci bon dimanche
correction :
For Each Ctrl In ACA.Controls
If TypeName(Ctrl) = "TextBox" Then
If Ctrl.Tag = "Obligatoire" And Ctrl.Text = "" Then
Ctrl.SetFocus
MsgBox "Vous devez obligatoirement remplir" & vbCr _
& "le champ <" & Ctrl.ControlTipText & "> ", vbInformation
Exit Sub
End If
End If
Next Ctrl
bonjour isabelle je vais l'essayer demain mais question tu dis il faut quitter la macro alors comment s'execute la suite c'est une sub de validation de tous les textbox merci bon dimanche
correction :
For Each Ctrl In ACA.Controls If TypeName(Ctrl) = "TextBox" Then If Ctrl.Tag = "Obligatoire" And Ctrl.Text = "" Then Ctrl.SetFocus MsgBox "Vous devez obligatoirement remplir" & vbCr _ & "le champ <" & Ctrl.ControlTipText & "> ", vbInformation Exit Sub End If End If Next Ctrl
isabelle
-- andre
andre
ah si trouvé je lance la sub en fin de procedure For Each Ctrl In ACA.Controls If TypeName(Ctrl) = "TextBox" Then If Ctrl.Tag = "Obligatoire" And Ctrl.Text = "" Then Ctrl.SetFocus MsgBox "Vous devez obligatoirement remplir" & vbCr _ & "le champ <" & Ctrl.ControlTipText & "> ", _ vbInformation Exit Sub End If End If Next Ctrl execute suite
bonjour isabelle je vais l'essayer demain mais question tu dis il faut quitter la macro alors comment s'execute la suite c'est une sub de validation de tous les textbox merci bon dimanche
correction :
For Each Ctrl In ACA.Controls If TypeName(Ctrl) = "TextBox" Then If Ctrl.Tag = "Obligatoire" And Ctrl.Text = "" Then Ctrl.SetFocus MsgBox "Vous devez obligatoirement remplir" & vbCr _ & "le champ <" & Ctrl.ControlTipText & "> ", vbInformation Exit Sub End If End If Next Ctrl
isabelle
-- andre
ah si trouvé
je lance la sub
en fin de procedure
For Each Ctrl In ACA.Controls
If TypeName(Ctrl) = "TextBox" Then
If Ctrl.Tag = "Obligatoire" And Ctrl.Text = "" Then
Ctrl.SetFocus
MsgBox "Vous devez obligatoirement remplir" & vbCr _
& "le champ <" & Ctrl.ControlTipText & "> ", _
vbInformation
Exit Sub
End If
End If
Next Ctrl
execute suite
bonjour isabelle
je vais l'essayer demain
mais question
tu dis il faut quitter la macro
alors comment s'execute la suite
c'est une sub de validation de tous les textbox
merci bon dimanche
correction :
For Each Ctrl In ACA.Controls
If TypeName(Ctrl) = "TextBox" Then
If Ctrl.Tag = "Obligatoire" And Ctrl.Text = "" Then
Ctrl.SetFocus
MsgBox "Vous devez obligatoirement remplir" & vbCr _
& "le champ <" & Ctrl.ControlTipText & "> ", vbInformation
Exit Sub
End If
End If
Next Ctrl
ah si trouvé je lance la sub en fin de procedure For Each Ctrl In ACA.Controls If TypeName(Ctrl) = "TextBox" Then If Ctrl.Tag = "Obligatoire" And Ctrl.Text = "" Then Ctrl.SetFocus MsgBox "Vous devez obligatoirement remplir" & vbCr _ & "le champ <" & Ctrl.ControlTipText & "> ", _ vbInformation Exit Sub End If End If Next Ctrl execute suite
bonjour isabelle je vais l'essayer demain mais question tu dis il faut quitter la macro alors comment s'execute la suite c'est une sub de validation de tous les textbox merci bon dimanche
correction :
For Each Ctrl In ACA.Controls If TypeName(Ctrl) = "TextBox" Then If Ctrl.Tag = "Obligatoire" And Ctrl.Text = "" Then Ctrl.SetFocus MsgBox "Vous devez obligatoirement remplir" & vbCr _ & "le champ <" & Ctrl.ControlTipText & "> ", vbInformation Exit Sub End If End If Next Ctrl