Discussion :

[veer2006]

bonjour

je recois un message d'une erreur "erreur de compilation: Fonction ou variable attendue", et plus precisement dans la partie selection.Delete. le probleme c'est que ca marchait avant et tout d'un coup le message d'erreur. merci

[Invité]

Bonjour

Avec le code ce serait mieux, Non ?

Starec

[veer2006]

ok 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
Sub supprimer()
'
' supprimer Macro
' Macro enregistrée le 27/07/2007 par azyati
'
    Dim tabl(), chrt As ChartObject
    Dim n As Integer
    n = 0
    For Each chrt In Sheets("Feuil6").ChartObjects
        ReDim Preserve tabl(n)
        tabl(n) = chrt.name
        n = n + 1
    Next chrt
    On Error Resume Next
    Sheets("Feuil6").Shapes.Range(tabl).Select
    selection.Delete
 
End Sub

le probleme c'est que ca ne marche pas que dans un seul classeur, sur lequel je travail. une autre remarque c'est à chaque fois que je met Selection avec S majuscule, il me la transforme en selection avec s.

j'epere que vous pouviez m'aider. merci

[AlainTech]

Cherche, dans tout ton code, si tu n'as pas une variable qui s'appelle selection et change son nom.

[veer2006]

ehh oui, y'avait un macro que j'avais creé y a longtemps qui s'appelle selection. c'est lui qui a causé le probleme. merci beaucoup Alain.