Discussion :

[tarikov2006]

bonjour
dans une feuille j ai 2 macros mais le deuxieme ne fonctionne pas il me donne comme message Nom ambigu détecté
voila les deux 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
Option Explicit
 
Private Sub CommandButton1_Click()
 
End Sub
 
Private Sub ScrollBar1_Change()
 
End Sub
 
Private Sub TextBox1_Change()
    ActiveSheet.Range("b6").AutoFilter Field:=2, Criteria1:=TextBox1 & "*"
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address = "$C$2:$E$2" Then
        TextBox1 = ""
        [a5].AutoFilter
 
    End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo MS
If Intersect(Target, Range("D42")) Is Nothing Then
Cells(56, 11) = Cells(56, 11) + Cells(42, 4)
MS:
Cells(42, 4) = ""
End If
End Sub

merci d'avance

[SfJ5Rpw8]

Bonjour,

tu dis avoir 2 macros ? c'est quoi une macro pour toi ?

[tarikov2006]

j avais tort . je voulais dire deux CODE

[SfJ5Rpw8]

bonjour,

c'est pas mieux .... je vois toujours pas ce que tu appelle " le deuxieme " ...