Bonjour,

encore une fois, je fais appel aux sauveurs qu'il y a sur ce forum

Voila mon souci, j'ai un code dans le wroksheet avec 2 private sub selectionchange. quand j'en met un seul, ça fonctionne mais des que je mets les 2, j'ai "erreur de compilation, nom ambigu"

Voici le code:

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
42
43
44
45
46
47
48
49
50
51
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("B3:B65556")) Is Nothing Then
UserForm1.TextBox2 = ActiveCell.Value
UserForm1.TextBox1 = ActiveCell.Offset(0, 14).Value
UserForm1.TextBox3 = ActiveCell.Offset(0, 1).Value
UserForm1.TextBox4 = ActiveCell.Offset(0, 2).Value
UserForm1.TextBox5 = ActiveCell.Offset(0, 3).Value
UserForm1.TextBox6 = ActiveCell.Offset(0, 6).Value
UserForm1.TextBox7 = ActiveCell.Offset(0, 5).Value
UserForm1.TextBox8 = ActiveCell.Offset(0, 4).Value
 
UserForm1.Show
 
End If
End Sub
 
 
Option Explicit
 
 
 
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim n&, rg As Range
    On Error GoTo fin
    Application.ScreenUpdating = False
    If Target.Column = 10 Then
        With Application.WorksheetFunction
            If .CountIf(ActiveSheet.Columns(Target.Column), Target.Value) > 1 Then
                Set rg = ActiveSheet.Columns(10).Find( _
                    What:=Target.Value, After:=Target)
                rg.Clear
            End If
        End With
    End If
fin:
    Application.ScreenUpdating = True
End Sub
 
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Not Application.Intersect(Target, Range("L5:L33333")) Is Nothing Then 'modifie ton tableau
If Target.Value = "EN ATTENTE" Then
Target.Value = "ACTIVE"
 
Else
Target.Value = "EN ATTENTE"
End If
End If
 
End Sub
Encore une fois, je remercie d'avance ceux qui se pencheront sur mon problème