Controle de saisie en VBA

Version imprimable

Bonjour, je suis débutant en VBA et je coince sur un probleme simple.
Je souhaite faire un controle de saisie sur 4 cellules. A1,B1,C1 et D1.
Autrement dit si une des cellules contient une valeur alors l'utilisateur doit remplir les 4 cellules. Si les 4 cellules sont remplis le système ne doit rien dire .
Voila ce que j'ai essayé de faire mais cela ne marche pas lorsque les 4 cellules sont remplient...:cry:
Code:

1 2 3 4 5 6 7 8 9 Sub Test_saisie() If Range("A1") > 0 Or Range("B1") > 0 Or Range("C1") > 0 Or Range("D1") > 0 Then MsgBox "toutes les cellules doivent etre saisies" Else If Range("A1") > 0 And Range("B1") > 0 And Range("C1") > 0 And Range("D1") > 0 Then MsgBox "ok" End If End If
End Sub

Merci pour votre aide

Bonsoir,

essai ce morceau de code :

Code:

1
2
3
4
5
6
7
8
 
Sub Test_saisie()
If Cells(1, 1).Value = "" Or Cells(1, 2).Value = "" Or Cells(1, 3).Value = ""  Or Cells(1, 4).Value = ""  Then
MsgBox ("toutes les cellules doivent etre saisies")
Else 
MsgBox ("ok")
End If
End Sub

Tiens nous au courant.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Test_saisie()
 
With Worksheets("Feuil1")                        'A adapter
    If Application.CountBlank(.Range("A1:D1")) = 4 Then
        MsgBox "Toutes les cellules sont vides"
    Else
        If Application.CountBlank(.Range("A1:D1")) > 0 Then
            MsgBox "Toutes les cellules doivent etre saisies"
        Else
            MsgBox "Toutes les cellules sont remplies"
        End If
    End If
End With
End Sub

02/12/2011, 10h33
Airmike

Merci pour la réponse mais cela ne semble pas fonctionner n'ont plus...:cry:
En effet si les 4 cellules ne sont pas remplis, le message apparaît.
Alors que je veux forcer la saisie uniquement si une des 4 cellules est remplie.
Si rien n'est remplie le systeme ne doit pas réagir
Je souhaite lancer ce code sur l'evenement sortie de la feuille

Merci pour ton aide

je crois que Mercatog a trouvé la solution...
Merci à toi, je vais tester tout de suite
bonne soirée

super ca marche...:P
Merci

Merci pour ton aide Mercatog, juste une petit derniere question :
Comment faire si les cellules sont éloignées les unes des autres.
je dois vérifier la saisie sur la Cellule A7, E7 F7 et I7.
bonne journée

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub Test_saisie()
 Dim Plage As Range
 
With Worksheets("Feuil1")                        'A adapter
Set Plage = .Range("A7,E7,F7,I7")
    If Application.CountA(Plage) = 0 Then
        MsgBox "Toutes les cellules sont vides"
    Else
        If Application.CountA(Plage) < Plage.Count Then
            MsgBox "Toutes les cellules doivent etre saisies"
        Else
            MsgBox "Toutes les cellules sont remplies"
        End If
    End If
    Set Plage = Nothing
End With
End Sub

02/12/2011, 12h05
Airmike

Ce forum est vraiment génial
Merci et bravo...:D

heu...!!!

bonjour a tous

meme si le sujet est résolu
j'ai une autre proposition

on pourrait obliger l'utilisateur au moment ou il selectionne la cellule dans la plage a1 a d1 a remplir la celulle precedante si elle est vide
Code:

1 2 3 4 5 6 7 8 9 10 11 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If ActiveCell.Column > 1 Then If Application.Intersect(ActiveCell, Range("A1:D1")) Is Nothing Then Else If ActiveCell.Offset(0, -1) = "" Then MsgBox "vous devez remplir la cellulle precedente" End If End If End If End Sub
au plaisir

02/12/2011, 12h37
Airmike

on y est presque...

Je bloque encore sur un truc.
Je veux rendre la saisie obligatoire des 4 cellules uniquement si une des cellules de la Plage contient une information. si les 4 cellules sont vides le système ne fait rien.

Autre point, je veux appliquer ce code sur plusieurs lignes.Chaque ligne représente un enregistrement.et le controle ce fait pour chaque enregistrement.

Dois-je faire autant de module que de ligne ou bien y a t-il une solution plus simple

Merci pour votre temps et patience
Bon courage:ccool: