Discussion :

[vinvinsylvain]

Bonjour,

Je recherche un code qui me premait de vérifier que plusieur cellule ne soit pas vide avant d'excecuter une macro.

J'ai trouver ceci mais il verifi qu'une cellule hors moi je veux plusieur cellule:

Code :

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

1
2
3
4
5
6
7
 
If Range("D5") > 0 Then
    'J'exécute la macro
 
ElseIf Range("D5") = 0 Then
   MsgBox "Erreur: Veuillez saisir un personnel !!", vbExclamation
End If

Les cellules a vérifier sont: D5; D7; D10

[rvtoulon]

salut,
tu peux essayer en mettant "and" ou "or" comme çà comme tu n'as pas beaucoup de cellules à vérifier. ex:

Code :

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

1
2
3
4
'Si D5 est plein et si D7 ... et si D10 .... alors
If Range("D5") <> "" and Range("D7") <> "" and Range("D10") <> ""  Then
    'J'exécute la macro
End If

Tu peux remplacer And par "or" ça ferait:
Si D5 est plein ou si D7 est plein ou si D10..... Alors

[aalex_38]

Bonjour,


Il y a plusieurs solutions pour faire ce que tu demandes, 3 if par exemples.
Je te propose une solution :

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim Maplage As Range, MesCellules As Range
Set Maplage = Union([D5], [D7], [D10])
' Set Maplage = Maplage.SpecialCells(xlCellTypeBlanks)
 
For Each MesCellules In Maplage
    If MesCellules = Empty Then
        MsgBox "Erreur: Veuillez saisir un personnel !!" & vbCrLf & "Dans la cellule " & MesCellules.Address, vbExclamation
        Exit For
    End If
Next MesCellules

[Nako_lito]

Cependant, attention avec le code

Code :

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

if Range("A1") <> "" then

par ce que si la cellule contient un espace, le test est faux et l'exeption n'est pas gérée.

Mieux vaut utiliser la méthode de aalex_38.

[rvtoulon]

Salut aalex_38,
je ne connaissais pas l'instruction "union" je l'a retient, ça faisait un moment que je n'étais pas venus j'suis content d'apprendre de nouveaux trucs enfin nouveau pour moi.

[aalex_38]

"je ne connaissais pas l'instruction "union" je l'a retient, ça faisait un moment que je n'étais pas venus j'suis content d'apprendre de nouveaux trucs enfin nouveau pour moi.

"

Je ne viens plus très souvent non plus, on apprend toujours les uns les autres, parfois je regarde vos sujets et j'apprends aussi.

par ce que si la cellule contient un espace, le test est faux et l'exeption n'est pas gérée.

Mieux vaut utiliser la méthode de aalex_38.

En fait non, le résultat est le même un espace <> empty (si si j'ai fait le test)

[Nako_lito]

"
En fait non, le résultat est le même un espace <> empty (si si j'ai fait le test)

C'est ce que j'ai dis

Bref.

La fonction Union est-elle equivalente a celle ci ?

Code :

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

set maPlage = Range("D1,D4,E8,F6")