Discussion :

[MEHDI_MHS]

sur une page j'ai 2 instructions et je suis en conflit le message nom ambigu détecté : worksheet change apparaît . Est-il
possible de les réunir ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim isect As Range
Dim n As String, commentaire As String
Dim c As Range
Set isect = Application.Intersect(Target, Range("c8:c33"))
If isect Is Nothing Then
    Exit Sub
Else
n = ActiveCell.Value
For Each c In Range("b101:b164")
If c.Value = n Then
commentaire = c.Offset(0, 1).Value
End If
Next c
ActiveCell.ClearComments
ActiveCell.AddComment
ActiveCell.Comment.Text Text:=commentaire
End If
End Sub
 
Private Sub Worksheet_SelectChange(ByVal Target As Range)
Dim isect As Range
Dim n As String, commentaire As String
Dim c As Range
Set isect = Application.Intersect(Target, Range("e8:e33"))
If isect Is Nothing Then
    Exit Sub
Else
n = ActiveCell.Value
For Each c In Range("d101:d110")
If c.Value = n Then
commentaire = c.Offset(0, 1).Value
End If
Next c
ActiveCell.ClearComments
ActiveCell.AddComment
ActiveCell.Comment.Text Text:=commentaire
End If
End Sub

[Didier Gonard]

Bonjour,

Il vient d'où cet évènementiel ?

Private Sub Worksheet_SelectChange(ByVal Target As Range)

Dans le module Feuille, voilà ce qui existe...

Code :

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

1
2
3
4
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
End Sub

cordialement,

Didier

[MEHDI_MHS]

désolé je me suis tromper

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim isect As Range
Dim n As String, commentaire As String
Dim c As Range
Set isect = Application.Intersect(Target, Range("c8:c33"))
If isect Is Nothing Then
    Exit Sub
Else
n = ActiveCell.Value
For Each c In Range("b101:b164")
If c.Value = n Then
commentaire = c.Offset(0, 1).Value
End If
Next c
ActiveCell.ClearComments
ActiveCell.AddComment
ActiveCell.Comment.Text Text:=commentaire
End If
End Sub
 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim isect As Range
Dim n As String, commentaire As String
Dim c As Range
Set isect = Application.Intersect(Target, Range("e8:e33"))
If isect Is Nothing Then
    Exit Sub
Else
n = ActiveCell.Value
For Each c In Range("d101:d110")
If c.Value = n Then
commentaire = c.Offset(0, 1).Value
End If
Next c
ActiveCell.ClearComments
ActiveCell.AddComment
ActiveCell.Comment.Text Text:=commentaire
End If
End Sub

[Didier Gonard]

Si, comme le code donné le suggère, il y a 2 procédures Worksheet_Change dans le même module Feuille, c'est normal que VBA réagisse, c'est interdit

Quand l"évènement va se produire, quelle procédure devrait-il prendre ?

voir ceci :

Les évènements dans la feuille de calcul Excel

cordialement,

Didier

[MEHDI_MHS]

je veux les assemblés comment ca se fait

[neupont]

Bonjour,
à ce moment là il faut réunir les conditions dans le même événement Worksheet_Change :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim isect As Range
Dim n As String, commentaire As String
Dim c As Range
 
If Not Intersect(Target, Range("c8:c33")) Is Nothing Then
    n = ActiveCell.Value
    For Each c In Range("b101:b164")
        If c.Value = n Then
            commentaire = c.Offset(0, 1).Value
        End If
    Next c
 
    ActiveCell.ClearComments
    ActiveCell.AddComment
    ActiveCell.Comment.Text Text:=commentaire
 
ElseIf Not Intersect(Target, Range("e8:e33")) Is Nothing Then
    n = ActiveCell.Value
    For Each c In Range("d101:d110")
        If c.Value = n Then
            commentaire = c.Offset(0, 1).Value
        End If
    Next c
 
    ActiveCell.ClearComments
    ActiveCell.AddComment
    ActiveCell.Comment.Text Text:=commentaire
 
Else
    Exit Sub
End If
 
End Sub