Discussion :

[cocomathis]

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

[joe.levrai]

Bonjour,

tu ne peux pas avoir deux procédures portant le même nom, tu dois rassembler les deux en une seule.

au moyen d'un If/Elseif/End If pour chaque Intersect avec le traitement approprié

de plus, attention car tu as également l'évènement Change qui va se déclencher quand tu vas modifier les valeurs des cellules ... pour neutraliser (si besoin) il faudra inhiber les évènements lors du traitement de SelectionChange, via l'instruction Application.EnableEvents (True ou False)


PS : les instruction optionnelles (Option Explicit, Option Base 1 etc...) doivent se déclarer en tout début de module, et pas au milieu des procédures

[cocomathis]

ok après plusieurs essais, j'ai réussi a tout mettre dans le bon ordre.

Merci