XL 2010 Tester plusieurs msgbox

[RONIBO]

Bonjour,

Je souhaite tester des Msgbox sur différent cellule, les cellules : B1, B3, B5 et B7

Actuellement j'utilise le code ci-dessous pour tester si les cellules en questions sont vides ou pas.

If [B1] = "" Then
MsgBox "Saisissez la civilité"
End If

Le souci c'est quand j'ai plusieurs cellules concernées vides, je souhaite obtenir qu'un msgbox en précisant les éléments manquants au lieu d'avoir plusieurs Msgbox pour chaque information manquante.

Exemple si B1 et B3 vide :

Il manque des informations :
Saisissez la civilité
Saisissez le nom


Merci d'avance.

 

[sousou]

Bonjour
essai si ce code te convient
Sub TestCellule()
tablecel = Array("b1", "b3", "b5", "b7")
messages = Array("Civilité", "Nom", "Prénom", "adresse")
For n = 0 To UBound(tablecel)
If Sheets(1).Range(tablecel(n)) = "" Then
Message = Message & messages(n) & Chr(13)
End If
Next
Message = "Vous devez saisir:" & Chr(13) & Message
MsgBox Message
End Sub

 

[mapomme]

Bonsoir RONIBO, sousou,

un essai avec ce code :

Sub TestCellule()
Dim s As String, i
    For Each i In Array(1, 3, 5, 7)
      If Cells(i, "b") = "" Then s = s & Space(4) & Cells(i, "a") & vbLf
    Next i
    If s <> "" Then MsgBox "Veuillez saisir le(s) champs :" & vbLf & s
End Sub

 

[RONIBO]

Re,

Merci à vous deux

mapomme, j'ai bien testé le code il fonctionne parfaitement

sousou, tu peux me déclarer les variables stp pour que je puisse tester

 

[RONIBO]

Bonjour
essai si ce code te convient
Sub TestCellule()
tablecel = Array("b1", "b3", "b5", "b7")
messages = Array("Civilité", "Nom", "Prénom", "adresse")
For n = 0 To UBound(tablecel)
If Sheets(1).Range(tablecel(n)) = "" Then
Message = Message & messages(n) & Chr(13)
End If
Next
Message = "Vous devez saisir:" & Chr(13) & Message
MsgBox Message
End Sub

J'ai "Option explicit" en haut

J'ai une erreur

 

[mapomme]

Re RONIBO, sousou,

Essayez cette ligne de déclaration :

Dim tablecel, messages, n As Long, message As String

 

[RONIBO]

Merci,

Tablecel et messages se sont des variant, je me trompe ?

Puis dernièrement, je viens de tester si toutes les cellules sont <> "" j'ai Un msgbox "Vous devez saisir"

Comment corriger se problème ?

 

[RONIBO]

je pense que c'est bon

Option Explicit
Sub TestCellule()
Dim Messages, TableCel
Dim N As Long
Dim Message As String
    TableCel = Array("A12", "G10", "b5", "b7")
    Messages = Array("Civilité", "Nom", "Prénom", "adresse")
    For N = 0 To UBound(TableCel)
        If Sheets(1).Range(TableCel(N)) = "" Then
            Message = Message & Messages(N) & Chr(13)
        End If
    Next
    If Message = "" Then Exit Sub
    Message = "Vous devez saisir :" & Chr(13) & Message
    MsgBox Message, vbInformation, "Champs incomplets"
End Sub

Merci encore à vous

 

[sousou]

je vois que tu corriges mes erreurs ....

 

[RONIBO]

On va dire que c'est un simple oubli shut

 

[RONIBO]

Une petite question, c'est possible de faire clignoter le champs vides?

 

[mapomme]

Re,

Une petite question, c'est possible de faire clignoter le champs vides?

Oui, c'est possible. il faut écrire du code, beaucoup de code pour pas grand chose. En plus, le clignotement, je n'aime pas.

Pourquoi ne pas passer par une MFC tout simplement ? MFC qui permettrait aussi de se passer du code de la MsgBox!

 

[RONIBO]

Je n'avais pas pensé au mfc, bien vu

Mais comment je lance la formule ?

Je souhaite l'appliquer juste avant d'enregistrer, vérifier si les champs sont complets puis une fois pleine, enregistrer

 

[mapomme]

Re,

Peut-être en utilisant les évènements Workbook_BeforeSave et/ou Workbook_BeforeClose dans le module de code de ThisWorkbook ?

 

[RONIBO]

Re,

Merci mapomme,
J'ai l'impression que le msgbox ne s'enclenche pas, en faisant du pas à pas il passe pas part le msgbox