Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

vba : validation que tous les box sont remplis

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

miguelangelo

XLDnaute Occasionnel
Bonjour à tous,

Dans un usf contenant une :

-une vingtaine de box à renseigner obligatoirement
- un bouton créer qui va reporter les infos comme je le veux.

je voudrais que le bouton creer n'enregistre les infos que si la totalité des box sont renseignées.

existe t il un controle qui vérifie ce point ?

je pensais à un truc dans cette veine, mais j'ai pas du tout la syntaxe !!!

Pourriez vous m'aider ??

sub creer()

for each box in creation_agence (nom de l'usf)
if box.value= "" then
nom=box.name
msgbox("Vous n'avez pas renseigné :" & nom
exit sub
end if

.....
 
Trier par date Trier par votes
Re : vba : validation que tous les box sont remplis

Bonjour

Une piste
Code: 
Dim £ctrl As control
Dim £coln As Long
erreur = False
With Sheets(£nomfeuille1)
For Each £ctrl In Me.Controls
    Select Case TypeName(£ctrl)
        Case "TextBox", "ComboBox"
                If £ctrl.value= "" then 
                erreur = true
                msgbox("Vous n'avez pas renseigné :" & £Ctrl.Tag
'Tag contient le nom du contrôle
    End Select
Next £ctrl
End With

La variable erreur indique que tous les contrôles ne sont pas remplis.

JP
 
Dernière édition:
Vote positif 0 Vote négatif
Re : vba : validation que tous les box sont remplis

bonsoir tous
tu peus utiliser TypeOf ou TypeName

Code: 
Dim j As Control
For Each j In Controls
If TypeOf j Is MSForms.TextBox Then
If j = "" Then MsgBox j.Name & "  vide"
End If: Next

Code: 
Dim j As Control
For Each j In Controls
If TypeName(j) = "TextBox" Then
If j = "" Then MsgBox j.Name & "  vide"
End If: Next

mettre des exceptions eventuellement

If TypeOf j Is MSForms.TextBox And (j) <> T1 Then
 
Vote positif 0 Vote négatif
Re : vba : validation que tous les box sont remplis

Bonjour,

y a t'il une ame charitable pour m'aider a regarder ou son mes erreur sur mon fichier de formulaire en vba

je suis débutant et connait rien j'ai pris un fichier d'un petit cour 101 et j'ai commencer a le modifier et essayer de changer les choses dans les formules mais la les erreurs on commencer

je veux juste que le formulaire arrete de me donner une erreur 423

merci beaucoup
 

Pièces jointes

Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…