XL 2010 Tester plusieurs msgbox

RONIBO · 11 Août 2016

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 · 11 Août 2016

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 · 11 Août 2016

Bonsoir RONIBO, sousou,

un essai avec ce code :

VB:

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 · 11 Août 2016

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 · 11 Août 2016

sousou à dit:
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 · 11 Août 2016

Re RONIBO, sousou,

Essayez cette ligne de déclaration :

VB:

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

RONIBO · 11 Août 2016

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 · 11 Août 2016

je pense que c'est bon

Code:

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 · 11 Août 2016

je vois que tu corriges mes erreurs ....

RONIBO · 11 Août 2016

On va dire que c'est un simple oubli shut

RONIBO · 11 Août 2016

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

mapomme · 11 Août 2016

Re,

RONIBO à dit:
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 · 11 Août 2016

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 · 11 Août 2016

Re,

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

RONIBO · 11 Août 2016

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

XL 2010 Tester plusieurs msgbox

RONIBO

XLDnaute Impliqué

Pièces jointes

sousou

XLDnaute Barbatruc

mapomme

XLDnaute Barbatruc

Pièces jointes

RONIBO

XLDnaute Impliqué

RONIBO

XLDnaute Impliqué

mapomme

XLDnaute Barbatruc

RONIBO

XLDnaute Impliqué

RONIBO

XLDnaute Impliqué

sousou

XLDnaute Barbatruc

RONIBO

XLDnaute Impliqué

RONIBO

XLDnaute Impliqué

mapomme

XLDnaute Barbatruc

Pièces jointes

RONIBO

XLDnaute Impliqué

mapomme

XLDnaute Barbatruc

Pièces jointes

RONIBO

XLDnaute Impliqué

Discussions similaires