[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😉