Effacer texte sur plusieurs feuilles à partir d'un bouton

phlaurent55

Nous a quittés en 2020

Repose en paix

• 18 Avril 2009

• #2

Re : Effacer texte sur plusieurs feuilles à partir d'un bouton

bonjour DST,

avec ceci

Code:

Sub Macro1()
Dim i
For i = 2 To Worksheets.Count
    Sheets(i).Activate
    Range("C4").Select
    Selection.ClearContents
Next i
End Sub

 

Vote positif 0 Vote négatif

E

EricD01

Guest

• 18 Avril 2009

• #3

Re : Effacer texte sur plusieurs feuilles à partir d'un bouton

Salut à toi...

Je t'ai modifié ton fichier regarde si cela te convient...

Il existe une autre possibilité avec la fonction: for each...mais bon si celle là te convient alors tout va bien...

Dans l'attente bye bye et à plus...

 

Pièces jointes

• Support pour efface texte_modifié.zip

  12 KB · Affichages: 69

Vote positif 0 Vote négatif

vbacrumble

XLDnaute Accro

• 18 Avril 2009

• #4

Re : Effacer texte sur plusieurs feuilles à partir d'un bouton

Bonjour


Essaie ce code

Code:

Sub efface()
Dim s As Worksheet
For Each s In Worksheets
If s.Name <> "Feuil1" Then
s.Range("C4") = vbNullString
End If
Next
End Sub

EricD01: tu n'es pas obligé d'utiliser Activate

Ton code fonctionne parfaitement ainsi

Code:

Application.ScreenUpdating = False
For x = 2 To 5
Sheets("Feuil" & x).Range("C4") = ""
Next x
Application.ScreenUpdating = True

 

Dernière édition: 18 Avril 2009

Vote positif 0 Vote négatif

Roland_M

XLDnaute Barbatruc

• 18 Avril 2009

• #5

Re : Effacer texte sur plusieurs feuilles à partir d'un bouton

bonjour

ci-joint classeur

 

Pièces jointes

• SuppTextFeuil.xls

  44 KB · Affichages: 111

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 18 Avril 2009

• #6

Re : Effacer texte sur plusieurs feuilles à partir d'un bouton

Re,

tu peux aussi sélectioner plusieurs cellules dans le but de les effacer
à condition qu'elles se trouvent au même endroit sur toutes les feuilles

Code:

    Range("D7,E11,F14,H10,I6:K20").Select

te sélectionnera les cellules D7 E11 F14 H10 et la zone de cellules I6:K20

en espérant avoir répondu à ta demande

à+

Edit: Bonjour Roland Vbacrumble, Eric............... 5 réponses en 3 minutes, ça devient du luxe

 

Dernière édition: 18 Avril 2009

Vote positif 0 Vote négatif

D

DST

XLDnaute Occasionnel

• 18 Avril 2009

• #7

Re : Effacer texte sur plusieurs feuilles à partir d'un bouton

Merci à tous pour vos réponses.
Une rapidité exemplaire
DST

 

Vote positif 0 Vote négatif