[RESOLU]effacement contenu cellules toutes les feuilles masquée

[regnum]

bonjour à tous

j'ai crée un bouton ( avec mot de passe) dans mon userform pour mettre toutes les cellules en blanc et effacer certaine cellule.

Private Sub CommandButton1_Click()
Dim sPass As String
sPass = InputBox("Veuillez saisir le mot de passe")
If sPass = "toto" Then 'continuer l'affichage de la feuille
Else 'Quitter le chargement de la feuille
End If
If sPass = "" Then
MsgBox "Manque Mot de Passe"
End If
'With Sheets
'.Visible = True
Range("A5:H500").Select
Cells.Interior.ColorIndex = 2
Range("H5:H500").Select
Selection.ClearContents
'.Visible = VeryHidden
End With
End Sub

ça fonctionne très bien si la feuille est active mais j'aimerais pouvoir le faire sur toutes les feuilles masquée de mon classeur .

mes essaies ne sont pas concluant...

merci

 

[JNP]

Re : effacement contenu cellules toutes les feuilles masquée

Bonjour Regnum ,
Supprime les Select, ça ira mieux ...

Sheets("Feuil1").Range("H5:H500").ClearContents

Bon dimanche

 

[regnum]

Re : effacement contenu cellules toutes les feuilles masquée

bonjour JNP

merci pour le code ,il est plus simple mais ne résoud pas mon poroblème de mes feuille masqué...

A+

 

[Staple1600]

Re : effacement contenu cellules toutes les feuilles masquée

Bonjour regnum, le fil, JNP

...pour mettre toutes les cellules en blanc ...

Cela va alourdir considérablement ta taille de ton classeur.

Pour info et adaptation à ta problématique , le code ci-dessous fonctionne

Sub a()
Dim s As Worksheet
For Each s In Worksheets
If Not s.Visible Then
s.Range("B5:B6") = Empty
End If
Next s
End Sub

 

[chris]

Re : effacement contenu cellules toutes les feuilles masquée

Bonjour

Y a t'il un mot de passe sur tes feuilles masquées ?

 

[JNP]

Re : effacement contenu cellules toutes les feuilles masquée

Re ,

merci pour le code ,il est plus simple mais ne résoud pas mon poroblème de mes feuille masqué...

Bizarre, j'a testé avec du VeryHidden et ça fonctionnait ...
La remarque de Chris est bonne, la feuille est-elle protégée ?
Bon dimanche

 

[regnum]

Re : effacement contenu cellules toutes les feuilles masquée

re bonjour a tous

NON il n'y a pas de mot de passe sur les feuille que sur l'action de mettre les cellule en blanc.

 

[regnum]

Re : effacement contenu cellules toutes les feuilles masquée

re bonjour a tous

merci a tous de me répondre.

staple1600,merci j'ai adapter ton code et il fonctionne impec
j'ai crée un userform pour le mot de passe (plus pratique pour moi)

Private Sub CommandButton1_Click()
UserForm2.Hide
End Sub
Private Sub CommandButton2_Click()
If TextBox1.Text = "stam" Then
Else: MsgBox ("Le mot de passe est invalide.")
End If
Call a
TextBox1 = ""
UserForm2.Hide
End Sub
Sub a()
Dim s As Worksheet
For Each s In Worksheets
If Not s.Visible Then
s.Range("A5:H500").Cells.Interior.ColorIndex = 2
s.Range("H5:H500").ClearContents
End If
Next s
End Sub

module:

Sub Bouton1_Cliquer()
UserForm2.TextBox1.SetFocus
UserForm2.Show
End Sub

merci encore

vous êtes super