Formulation

bonjour

j'ai une toute petite question

si j'ai une variable J de type range est ce que la formulation suivante peut etre correcte

If Not J Is Nothing And J.Offset(0, 6).Font.ColorIndex = 1 Then

msgbox " blabla ......"

car l'ecriture "J.Offset(0, 6).Font.ColorIndex = 1 Then" n'a pas l'air d'etre appreciée par le compilateur

Merci pour vos réponses

Bonjour

Cela arrive si J n'est pas initialisé (j = Nothing)

L'interpréteur VB analyse les instructions les unes à la suite des autres

Dans le cas ou J n'est pas initialisé

Not J Is Nothing

FAUX

et ensuite

J.Offset(0, 6).Font.ColorIndex = 1

Message d'erreur

Pour éviter cela places les tests sur deux lignes

  If Not J Is Nothing Then
    If J.Offset(0, 6).Font.ColorIndex = 1 Then
      MsgBox "Les tests sont bons"
    End If
  End If

Merci " Banzai " ! Pour ce conseil je vais adapter tes conseils. Cordialement , Rocket4