Macro

Bonjour Bernard,

je te propose ce code VBA :

Sub Essai()
  On Error GoTo 1 'à mettre en 1ère ligne de la sub ;
  'c'est au cas où N2 contient une valeur invalide,
  'qui cause une erreur d'incompatibilité de type.
  If IsEmpty([N2]) Then GoTo 1
  [N1] = IIf(Not [N2], "foto", ""): Exit Sub
1 [N1] = ""
End Sub

4 exemples (à essayer dans cet ordre) :

* en N2 : FAUX (la valeur booléenne FAUX, pas le texte "FAUX") ➯ en N1 : "foto"
* en N2 : VRAI (la valeur booléenne VRAI, pas le texte "VRAI") ➯ en N1 : ""
* en N2 : abc (ou n'importe quel autre texte) ➯ en N1 : ""
* en N2 : appuie sur la touche Suppression ➯ N2 est vide ➯ en N1 : ""

je te laisse ajouter du code VBA pour réexécuter la macro afin d'obtenir
N2 contient VRAI ; 2 pistes : Do ... Loop Until [N2] Is True ; dans cette
boucle : If condition Then [N2] = True (selon la condition de ton choix).

rhodo