formulaire complet

Jacques87

XLDnaute Accro

• 14 Décembre 2006

• #2

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

 

Vote positif 0 Vote négatif

N

nufida

Guest

• 14 Décembre 2006

• #3

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?

 

Vote positif 0 Vote négatif

Simons

XLDnaute Occasionnel

• 14 Décembre 2006

• #4

Re : formulaire complet

Salut Nufida, Jacques,

En VBA :

Code:

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

 

Vote positif 0 Vote négatif

N

nufida

Guest

• 14 Décembre 2006

• #5

Re : formulaire complet

merci

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

 

Vote positif 0 Vote négatif

Jacques87

XLDnaute Accro

• 14 Décembre 2006

• #6

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

 

Vote positif 0 Vote négatif

N

nufida

Guest

• 14 Décembre 2006

• #7

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

 

Vote positif 0 Vote négatif

Jacques87

XLDnaute Accro

• 14 Décembre 2006

• #8

Re : formulaire complet

Re,

Tu dois donc construire ta plage

Code:

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

 

Vote positif 0 Vote négatif

Simons

XLDnaute Occasionnel

• 14 Décembre 2006

• #9

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 à

Code:

=""

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

 

Vote positif 0 Vote négatif

N

nufida

Guest

• 14 Décembre 2006

• #10

Re : formulaire complet

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

@+

 

Vote positif 0 Vote négatif