test plage suivant valeur d'une cellule

[cathodique]

Bonjour,

Un bouton est présent sur "mafeuille" qui s'active si des valeurs numériques sont saisies dans une plage de
D8 à D&dernièreLigne.

Ce bouton me servira à archiver les données saisies sur cette feuille.

Je voudrai faire un test par rapport à une cellule (G4) qui ne peut prendre que 2 valeurs (A ou O/F) et
2 plages qui prennent des valeurs numériques (plage jaune=D8 à D&DernièreLigne et plage bleue=E8 à E&DernièreLigne).

En cliquant sur le bouton, je voudrai qu'un message avertisse l'utilisateur

si G4= "A" et la plage bleue non vide- msgbox "plage bleue doit être vide"
(si G4=A, la plage bleue doit être vide)

si G4="O/F" et plage bleue vide - msgbox "Renseigner la plage bleue"
(si G4=O/F, la plage bleue doit contenir au moins un valeur numérique)

Dans tous les cas la plage jaune doit contenir au moins une valeur numérique pour que le bouton s'active.


En vous remerciant par avance. ci-joint le fichier.

Cordialement,

 

[Paf]

Re : test plage suivant valeur d'une cellule

Bonjour,

une solution possible :

Private Sub CommandButton1_Click()

Dim BleuVide As Boolean

BleuVide = True

For Each c In Worksheets("mafeuille").Range("E8:E30")
    If c.Value > 0 Then
        BleuVide = False
        Exit For
    End If
Next c

If Range("G4") = "A" And BleuVide Or Range("G4") = "O/F" And Not BleuVide Then
    'Call archivage
End If

If Range("G4") = "A" And Not BleuVide Then
    MsgBox "attention! la plage bleue doit être vide"
End If

If Range("G4") = "O/F" And BleuVide Then
    MsgBox "Attention! completer la plage bleue"
End If

End Sub

Code de Private Sub CommandButton1_Click() à remplacer par celui ci

Bonne suite

 

[cathodique]

[Résolu] : test plage suivant valeur d'une cellule

Bonjour Paf,

Je te remercie beaucoup pour ton aide. J'ai testé ton code et il fonctionne très bien.

Mille mercis.

Cordialement,