Discussion :

[dlight]

Bonjour à tous !

Je tourne en rond et j'ai à nouveau besoin de votre aide...

Voici mon bout de code...

Code :

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

1
2
3
4
5
6
7
8
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 2 Then
 If ActiveCell = 3 Then
 
MsgBox "N'oubliez pas d'inscrire la valeur marchande du titre s'il y a lieu dans le sommaire de l'année précédente", vbOKOnly, "Transfert de titres"
 End If
 End If
 End sub

Mon but est que lors du changement de cellule par l'utilisateur, si c'est une cellule de la collone B et que le nombre inscrit dans cette cellule est 3, le MsgBox doit apparaître...

Merci à l'avance pour votre aide

Dlight

[SfJ5Rpw8]

bonsoir,

target te renvoi la sélection courante ...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    '---- On vas juste tester la cellule en haut à gauche..
    If Target(1, 1).Column = 2 And Target(1.1).Value = 3 Then
        MsgBox "3...."
    End If
    ' on pourrai aussi compter le nombre de cellule dans la selection et ne valider
    ' le msgbox que si une seul cellule est sélectionné..
    'If Target.Count = 1 Then
    '   If Target.Column = 2 And Target.Value = 3 Then
    '       MsgBox "........"
    '   End If
    ' End If
End Sub

[dlight]

Merci !

Dlight