Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel textbox rempli

textbox rempli

5 réponses
Avatar
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
Signaler un problème avec ce contenu

5 réponses

Supprimer
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
Avatar
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, 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



Avatar
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, 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





Avatar
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, 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





Avatar
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
Avatar
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