Discussion :

[mourier]

Bonjour,

Quelqu'un peut-il me dire pourquoi, lorque je lance la macro suivante, je tombe sur le message : "erreur de compilation , End Sub attendu " ?

Macro :

Code :

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

1
2
3
4
5
6
Sub Macro11()
 
Private Sub Workbook_NewSheet(ByVal Sh As Object)
    Sh.Move After:=Sheets(Sheets.Count)
 
End Sub

merci pour votre aide

[laetitia]

bonjour mourier le forum c' est normal tu mets une macro evenementielle dans une macro????

Code :

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

1
2
3
Private Sub Workbook_NewSheet(ByVal Sh As Object)
Sh.Move After:=Sheets(Sheets.Count)
End Sub

que veut tu faire excatement ??????????

[rvtoulon]

Slt,
Simplement parce que tu ne peux pas imbriquer deux macro en même temps.
c'est soit:

Code :

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

1
2
3
Sub tata()
'ton code
End Sub

soit

Code :

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

1
2
3
Private sub toto ()
'ton code
End Sub

par contre tu peux appeller une macro dans une autre

Code :

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

1
2
3
4
Private Sub toto ()
'Ton code
call tata
End Sub

A+