formulaire complet

[nufida]

Bonjour à tous,

peut-être (surement!) allez vous pouvoir m'aider...

j'ai créé un onglet de saisie d'informations qui viennent se déverser dans une base de données après clic sur un bouton enregistrer.

Mais j'aimerais pouvoir être sûr que l'utilisateur renseigne bien tous les champs avant de valider. Comment faire ? en admettant que je nomme l'ensemble de ces champs "obligatoires" .

Si vous aviez la solution ça serait très sympa!

merci d'avance

 

[Jacques87]

Re : formulaire complet

Bonjour,

Je te propose un test au moment de la validation

exemple pour chacun des champs obligatoires :
Si le champ est vide alors message de rappel et sortie, soit

If TextBox1 = "" Then
MsgBox("Vous devez obligatoirement renseigner leTextBox1")
Exit sub
End if

Bon courage

 

[nufida]

Re : formulaire complet

merci Jacques,
mais je ne saisis pas sur un userform mais directement sur une feuille excel, donc je n'ai pas de textbox.
je pourrais faire cela pour chaque cellule mais il y en a beaucoup. C'est pourquoi je voulais les regrouper sous un même nom, et qu'il suffise qu'une d'entres elles ne soit pas remplie pour alerter l'utilisateur.

pensez-vous à une autre solution?

 

[Simons]

Re : formulaire complet

Salut Nufida, Jacques,

En VBA :

if TextBox1 = "" or TextBox2 = "" then
Msgbox ("Vous devez compléter les champs obligatoires"),vbOKonly,vbExclamation
TextBox1.SetFocus
end if

A adapter en fonction de tes champs obligatoires..

Salut

 

[nufida]

Re : formulaire complet

merci

malheureusement je crois que cette méthode est limitée à 3 cellules. et j'en ai 8 à valider....

 

[Jacques87]

Re : formulaire complet

Re, Nufida
Bonjour Simons

Si toutes les cellules sont dans un même colonne (B par exemple)

For I = 1 To Range("B65536").End(XlUp).Row
If Range("B" & I) = "" Then
MsgBox(" vous avez oublié une cellule")
End If
Next I

Ce bout de code a vérifier une à une toute les cellules de la colonne B

Si elles sont dispersées, tu dois construire une plage et porter ton test sur chaque cellule de la plage

J'espère avoir répondu à ta question, sinon à ta disposition

 

[nufida]

Re : formulaire complet

ok effectivement elles sont dispersées : F6, F7, I6, I7, I8, I10.

Comment vous feriez?

Merci beaucoup pour votre aide à tous les deux

 

[Jacques87]

Re : formulaire complet

Re,

Tu dois donc construire ta plage

Dim plage As Range, cel As Range
Set plage = Sheets("Feuil1").Range("F6,F7,I6,I7,I8,I10")
For Each cel In plage
If cel = "" Then
MsgBox ("blablabla ...")
Exit Sub
End If
Next

 

[Simons]

Re : formulaire complet

Re,

Tu peux eventuellement passer par une Mise en Forme Conditionnelle.
Tu selectionne tes cellules tu va dans le menu format/MFC et tu choisi valeur est égale à

=""

tu met en suite une mise en forme avec un motif rouge pour créer une alerte...
C'est ce que j'ai de mieux..

 

[nufida]

Re : formulaire complet

merci beaucoup, c'est le top !
exactement ce dont j'ai besoin

@+