XL 2013 Syntaxe VBA

[chindou]

Bonjour, à toutes et à tous
Je souhaite convertir la phrase suivante « si la cellule a1 et la cellule a2 et la cellule a3 sont toutes vides alors … » en langage VBA.
(Quel syntaxe VBA )
Merci de votre collaboration.

 

[pierrejean]

bonjour chindou

if range("A1")="" and range("A2")="" and range("A3")="" then

simple n'est-il pas !!!

 

[chindou]

bonjour, pierrejean
Je te remercie pour ta réponse.

 

[Staple1600]

Bonjour le fil, chindou, pierrejean

Une autre syntaxe possible (utilisée dans deux exemples)

Sub test_A()
If Application.CountBlank(Range("A1:A3")) = 3 Then
MsgBox "Elles sont vides"
Else
MsgBox "Elles ne sont pas vides"
End If
End Sub
Sub test_B()
MsgBox "Elles sont " & IIf(Application.CountBlank(Range("A1:A3")) = 3, "vides", "remplies ou presque...")
End Sub