Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Suppression dans plusieurs feuilles

Suppression dans plusieurs feuilles

5 réponses
Avatar
STEN
Bonjour tout le monde

Comment faire pour supprimer toutes les donn=E9es dans=20
plusieurs feuilles =E0 la fois en sachant que les celules=20
sont les m=EAmes pour toutes les feuilles.
Worsheets("feuil1:feuil3").range("A1:C1").value=3D""
ne fonctionne pas

Merci
Signaler un problème avec ce contenu

5 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
sabatier
je verrais bien un p'tit coup d'Array, si je puis dire, sten
jps

"STEN" a écrit dans le message de
news:331b01c47e9c$cfad5e20$
Bonjour tout le monde

Comment faire pour supprimer toutes les données dans
plusieurs feuilles à la fois en sachant que les celules
sont les mêmes pour toutes les feuilles.
Worsheets("feuil1:feuil3").range("A1:C1").value=""
ne fonctionne pas

Merci
Avatar
sabatier
finalement, je n'en suis pas si sûr, sten...tu as de la chance que AV se
soit réveillé ce matin...
jps

"sabatier" a écrit dans le message
de news:%
je verrais bien un p'tit coup d'Array, si je puis dire, sten
jps

"STEN" a écrit dans le message de
news:331b01c47e9c$cfad5e20$
Bonjour tout le monde

Comment faire pour supprimer toutes les données dans
plusieurs feuilles à la fois en sachant que les celules
sont les mêmes pour toutes les feuilles.
Worsheets("feuil1:feuil3").range("A1:C1").value=""
ne fonctionne pas

Merci




Avatar
papou
Bonjour
Dim tbl(), f
tbl = Array("Feuil1", "Feuil2","Feuil3")
For Each f In tbl
Worksheets(f).Range("A1:C1").ClearContents
Next f

Cordialement
Pascal

"STEN" a écrit dans le message de
news:331b01c47e9c$cfad5e20$
Bonjour tout le monde

Comment faire pour supprimer toutes les données dans
plusieurs feuilles à la fois en sachant que les celules
sont les mêmes pour toutes les feuilles.
Worsheets("feuil1:feuil3").range("A1:C1").value=""
ne fonctionne pas

Merci
Avatar
dadda
Bonjour tout le monde
Bonjour Sten

Sub effacer()
For i = 1 To 3
Worksheets(i).Range("A1:C1").Value = ""
Next
End Sub

cordialement

-----Message d'origine-----
finalement, je n'en suis pas si sûr, sten...tu as de la
chance que AV se

soit réveillé ce matin...
jps

"sabatier" a
écrit dans le message

de news:%
je verrais bien un p'tit coup d'Array, si je puis dire,
sten


jps

"STEN" a écrit
dans le message de


news:331b01c47e9c$cfad5e20$
Bonjour tout le monde

Comment faire pour supprimer toutes les données dans
plusieurs feuilles à la fois en sachant que les celules
sont les mêmes pour toutes les feuilles.
Worsheets("feuil1:feuil3").range("A1:C1").value=""
ne fonctionne pas

Merci





.




Avatar
Frédéric Sigonneau
Bonjour,

Autre méthode possible (sans boucle) :

Sub test()
Sheets("Feuil1").Range("A1:C1").ClearContents
Sheets(Array("Feuil1", "Feuil2", "Feuil3")).FillAcrossSheets _
Sheets("Feuil1").Range("A1:C1")
End Sub

FS
---
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !


Bonjour tout le monde

Comment faire pour supprimer toutes les données dans
plusieurs feuilles à la fois en sachant que les celules
sont les mêmes pour toutes les feuilles.
Worsheets("feuil1:feuil3").range("A1:C1").value=""
ne fonctionne pas

Merci