Discussion :

[booskap]

bonjour

je veus que si la case A1 n'est pas vide alors la case A2 recoit un 1
quelqu'un as une piste ?

[jfontaine]

En formule a mettre dans A2

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=si(A1<>"";1;"")

en vba dans le Worksheet_Change

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub Worksheet_Change(ByVal Target As Range)
 
If Target.Address = "$A$1" Then
    If Target.Value <> "" Then
        Range("A2").Value = 1
    Else
        Range("A2").Value = ""
    End If
End If
 
End Sub

[booskap]

merci ,sa marche super bien