VBA condition sur 2 cellules

Bonsoir le forum

Je suis nul en VBA et j'aurai besoin de vos lumières

si "A1" et "D1" sont différents de "vide",alors "A2" égal à 100

Comment écrire cela en VBA.

Merci.

Salut le forum

If Not IsEmpty(Range("A1")) And Not IsEmpty(Range("D1")) Then
Range("A2") = 100
Else
Range("A2") = 0
End If

Mytå

Bonsoir,

une formule à placer dans A2

=SI(ET(A1<>"";D1<>"");100;"")

cordialement

Merci bien à tous les 2

A+