Discussion :

[catetesse]

Bonjour,

J'ai un fichier Excel où je voudrais rendre obligatoire la saisie avant de lancer une macro de validation.

Je souhaite que le contenu des cellules A12, B21, C6, C22, C10, C15, D19, E21 soit différent de rien.

Existe t-il un moyen simple pour arriver à ce résultat ?

merci

Catherine

[jfontaine]

Bonjour,

S'il n'y a pas de règle pour trouver les cellules et qu'il n'y a pas trop de cellules (comme dans ton cas), l'utilisation du if .... and ... and .... me semble adaptée

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If range("A12").value<>"" and range("B21").value<>"" ...

EDIT : Si tu as beaucoup de cellules a tester

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub Test()
Dim str() As String
Dim i As Integer
 
str = Split("A12,B21,C6,C10", ",")
 
For i = 0 To UBound(str)
    If Range(str(i)).Value = "" Then Exit Sub
Next i
 
Lance_Macro
 
End Sub

[Sclarckone]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
If IsEmpty(ThisWorkbook.Sheets("_").Cells(_,_)) Then
 
    Call MsgBox("Veuillez renseigner la cellule _", vbExclamation)
    Exit Sub
 
Else
 
[...]

[catetesse]

J'ai opté pour la solution la plus courte, cela donne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub saisie_obligatoire()
 
If Range("A12").Value <> "" And Range("B21").Value <> "" And Range("c6").Value <> "" And Range("c10").Value <> "" And Range("c15").Value <> "" And Range("c22").Value <> "" And Range("d19").Value <> "" And Range("e21").Value <> "" Then
 
Else
 
Call MsgBox("Une ou des cellules obligatoires ne sont pas remplies : transporteur, lieu d'enlèvement, lieu de livraison, date enlèvement, date de livraison, nature des marchandises, nombre de colis, conditions de transport", vbExclamation)
 
End If
End Sub

Merci beaucoup.

Catherine

[Jean-Pierre49]

Bonjour Catherine

Tu peut aussi faire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub saisie_obligatoire()
    Dim Message As String
    If Range("A12").Value = "" Then Message = Message & "transporteur" & vbLf
    If Range("B21").Value = "" Then Message = Message & "lieu d'enlèvement" & vbLf
    If Range("c6").Value = "" Then Message = Message & "lieu de livraison" & vbLf
    If Range("c10").Value = "" Then Message = Message & "date enlèvement" & vbLf
    If Range("c15").Value = "" Then Message = Message & "date de livraison" & vbLf
    If Range("c22").Value = "" Then Message = Message & "nature des marchandises" & vbLf
    If Range("d19").Value = "" Then Message = Message & "nombre de colis" & vbLf
    If Range("e21").Value = "" Then Message = Message & "conditions de transport"
 
    Call MsgBox("Une ou des cellules obligatoires ne sont pas remplies :" & vbLf & Message, vbExclamation)
End Sub

Bon courage