nom ambigu détecté : worksheet change

Version imprimable

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:

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

04/02/2011, 11h21
Didier Gonard
Bonjour,

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

Citation:

Private Sub Worksheet_SelectChange(ByVal Target As Range)

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

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

Didier

désolé je me suis tromper

Code:

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

04/02/2011, 11h32
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
04/02/2011, 11h34
MEHDI_MHS

je veux les assemblés comment ca se fait

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

Code:

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