[XL-2007] Saisie obligatoire dans cellule avant lancement macro [Résolu]

[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 :

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

EDIT : Si tu as beaucoup de cellules a tester

Code :

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 :

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 :

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 :

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