Reunir plusieurs conditions

bonjour

existerait t il un moyen simple de reunir 4 conditions qui sont les suivantes en une seule ?

- En partant de la plage de cellule A1:B2 de ma feuille de calcul je souhaiterai ecrire :

si (A1 remplit et B1 remplit) ou si (A1 remplit et B2 )remplit ou si (A2 remplit et B1 remplit) ou si (A2 remplit et B2 remplit) alors

traitement

avec ces nombreux "si" , je ne vois pas comment formuler cela en vba

Pourriez vous m'indiquer une facon de faire ?

Merci

Salut,

essaye ce code

Sub test()

If Not IsEmpty(Range("A1")) And Not IsEmpty(Range("B1")) Or _
Not IsEmpty(Range("A1")) And Not IsEmpty(Range("B2")) Or _
Not IsEmpty(Range("A2")) And Not IsEmpty(Range("B1")) Or _
Not IsEmpty(Range("A2")) And Not IsEmpty(Range("B2")) Then MsgBox "ok"

End Sub

Merci Game Over ! ca marche du tonnerre

Bonjour

Une autre idée

Sub truc()
  If Application.CountA(Range("A1:B2")) = 2 Then
    ' condition ok
  End If
End Sub

Merci Banzai , je prend aussi !

une dernière question, ... est ce que IsEmpty peut etre utilisé pour une plage ?

Merci

apparemment pas

pour vérifier si une plage est vide, essaye ça

If Application.WorksheetFunction.CountIf(Range("A1:C3"), ">""") = 0 Then MsgBox "ok"

PS : ce code considère qu'une cellule de la plage A1:C3 est vide s'il contient une cellule avec une formule dont la valeur = ""

si tu veux considérer une cellule contenant une formule ="" comme non vide, alors utilise

If Application.WorksheetFunction.CountIf(Range("A1:C3"), "*") = 0 Then MsgBox "ok"

j'y ai justement pensé ! merci beaucoup à tous pour vos interventions