Discussion :

[Blaiz58]

Bonjour à tous,

Je cherche à supprimer le contenu de plusieurs cellules qui sont réparties sur plusieurs feuilles de mon classeur à l'aide d'une fonction sous VBA.

Voila le code que j'ai essayé mais qui ne marche pas (surement du au fait que c'est sur plusieurs feuilles)

Code :

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

1
2
3
4
5
Sub new_program()
 
Range("all_new_data").ClearContents
 
End Sub

Merci pour votre aide

[had4789]

Non c'est simplement car tu ne lui dit pas que c'est sur plusieurs feuilles et qu'excel n'est pas devin.

[Blaiz58]

Et comment tu indiques cela ?

J'ai essayé avec le For each mais ce n'est pas bon ahah

Merci

[Philippe Tulliez]

Bonjour,
D'après ce que tu as écrit et la formule que tu affiches (Range("all_new_data").ClearContents), cela signifierait que tu as nommé des cellules non contiguës et sur des feuilles séparées.
VBA ne semble pas répondre à des références à des cellules se trouvant sur des feuilles différentes
Par exemple, si l'on nomme une plage de plusieurs cellules contiguës mais se trouvant sur plusieurs feuilles (ici de Feuil1 à Feuil3)
A l'aide du gestionnaire des noms, nommons MultiSheets avec comme référence

Code :

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

=Feuil1:Feuil3!$C$10:$D$20

Les lignes suivantes provoques une erreur à la première ligne et pas à la deuxième

Code :

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

1
2
 MsgBox WorksheetFunction.Sum(Range("MultiSheets"))
 MsgBox "Somme de " & Evaluate("=SUM(MultiSheets)")

donc il est peu probable que la méthode Clear fonctionne avec des références 3D en tout les cas au stade de mes connaissances et de mes tests.