Discussion :

[wecko]

Bonjour je viens de faire un code et je ne comprends pas pourquoi il ne marche pas

Code :

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

1
2
3
4
5
If Not Application.Intersect(Cells(3, 2), Range(Target.Address)) Is Nothing Then
    If Cells(3, 2) = 1 Then
        Cells(9, 4) = 100
    End If
End If

Vous l'aurez compris, je souhaiterai que la cellule (9, 4) se remplisse automatiquement après avoir mis 1 dans la cellule (3, 2).

[mercatog]

Tu l'as mis où?

Code :

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

1
2
3
4
5
6
7
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
   If Not Intersect(Cells(3, 2), Target) Is Nothing Then 'ou if target.address="$B$3" then
       If Target.Value = 1 Then Cells(9, 4) = 100
   End If
End If
End Sub

Ceci fonctionne
Ou simplement

Code :

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

1
2
3
4
5
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$3" Then
   If Target.Value = 1 Then Cells(9, 4) = 100
End If
End Sub

[wecko]

En fait je me suis trompé de cellule...

Désolé du dérangement occasionné mon code marche parfaitement.