Discussion :

[nono1712]

Bonjour,

J'ai besoin de votre aide, j'aimerais construire une macro qui dès qu'une valeur positive est rentrée dans une colonne donnée (disons la colonne X)m'affiche une msgbox renvoyant la valeur de la colonne Y de la ligne dont la valeur de X est positive.

Merci de votre aide

[laetitia]

bonjour nono1712 le forum sans plus d infos un evenementiel code dans Worksheet de ta feuille

Option Explicit

Code :

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

1
2
3
4
5
6
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Not Application.Intersect(Target, Range("x:x")) Is Nothing Then
If Target.Value > 0 Then MsgBox Target.Offset(0, 1).Value
End If
End Sub

met le plutot dans l evenement change ou lieu de selectionchange

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)
On Error Resume Next
If Not Application.Intersect(Target, Range("x:x")) Is Nothing Then
If Target.Value > 0 Then MsgBox Target.Offset(0, 1).Value
End If
End Sub