textbox rempli

Le
andre
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, 6).Value = Me.jour_naiss & "/" & Me.mois_naiss
& "/" & Me.an_naiss

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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
isabelle
Le #18615611
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 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 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, 6).Value = Me.jour_naiss & "/" & Me.mois_naiss
& "/" & Me.an_naiss

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 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
Le #18615731
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 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 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, 6).Value = Me.jour_naiss & "/" & Me.mois_naiss
& "/" & Me.an_naiss

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 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
Le #18615721
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 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 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 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, 6).Value = Me.jour_naiss & "/" & Me.mois_naiss
& "/" & Me.an_naiss

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 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
Le #18617781
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 Exit Sub
End If
End If
Next Ctrl

isabelle




--
andre
andre
Le #18617771
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 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 Exit Sub
End If
End If
Next Ctrl

isabelle





--
andre
Publicité
Poster une réponse
Anonyme