masquer plusieurs lingnes dans plusieurs feuilles avec un checknox

[wrap food]

Bonjour,

voila j'ai une userforme dans le quel j'ai des checknox a cocher et si elles le sont, cela masque des lignes de la feuille active "base

je voudrais masquer les lignes de plusieurs feuilles ( la feuille active mais aussi de la feuille 2 mois et de la feuille 3 activ )

j'ai mis cela pour la feuille mais ça ne fonctione que sur une feuille

Private Sub equilibre_Click()
If Me.equilibre.Value = True Then
Rows("10:14").RowHeight = 35
'Me.ENVIE de S4.value = true them
Else
Rows("10:14").EntireRow.Hidden = True
End If
End Sub


auriez vous la solution

par avance

merci a tous.

 

[Gurgeh]

Re : masquer plusieurs lingnes dans plusieurs feuilles avec un checknox

Salut wrap food,

D'après ce que je comprends de ton code, il ne va effectivement fonctionner que sur une feuille, celle qui est active au moment où tu exécutes le code.

Pour masquer les lignes d'une feuille particulière, utilise plutôt l'instruction

Sheets(NomdelaFeuille).Rows("10:14").EntireRow.Hidden = True

Gurgeh

 

[Dull]

Re : masquer plusieurs lingnes dans plusieurs feuilles avec un checknox

Salut wrap food, le Forum

Peut tu mettre un exemple de ton fichier sans données confidentielles

Sinon ton code peux être réduit comme suit

Rows("10:14").RowHeight = IIf(Me.equilibre, 35, 0)

sinon, et sans être sur,je verrais bien cela

Private Sub equilibre_Click()
Dim Sh As Worksheet
For Each Sh In ThisWorkbook.Sheets
Sh.Rows("10:14").RowHeight = IIf(Me.equilibre = True, 35, 0)
Next Sh
End Sub

A tester

EDITION: Salut Gurgeh
Bonne Journée

 

[wrap food]

Re : masquer plusieurs lingnes dans plusieurs feuilles avec un checknox

désoler pour la répose tardive voila un fichier pour que cela soit plus simple

 

[Excel-lent]

Re : masquer plusieurs lingnes dans plusieurs feuilles avec un checknox

Salut WrapFood,

Il ne faut pas poser ta question plusieurs fois!!!!!

Car pour information tu as posé ta question ici, où tu as déjà obtenu un début de réponse. Et là-bas où je t'ai mis ma réponse (plus détaillé, car contrairement à mes confrères que je salue au passage, j'avais ton fichier).

A l'avenir, merci de ne pas poser la question plusieurs fois 😉

Comme indiqué là-bas, si tu as besoin de plus d'informations, n'hésite pas à le dire.

Bonne fin de soirée

 

[wrap food]

Re : masquer plusieurs lingnes dans plusieurs feuilles avec un checknox

merci beaucoup

encore deux petits questions.

-1 si je veux que les casses soient cochées dés le debut je mets quoi comme code?

-2 si j'ai plusieurs feuilles (10) et que je ne veux faire le masquage de ligne que sur 5 qui ne suivent pas je dois faire comment ??

encore désolé pour toutes ces questions.

 

[Dull]

Re : masquer plusieurs lingnes dans plusieurs feuilles avec un checknox

Salut wrap food, Excel-lent🙂, le Forum

Pour ta première question la partie en GRAS

Option Explicit
Dim i As Byte

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
For i = 1 To Sheets.Count
If i <> 2 Then
Sheets(i).Rows("6:7").EntireRow.Hidden = IIf(Me.CheckBox1.Value = False, False, True)
Sheets(i).Rows("8:9").EntireRow.Hidden = IIf(Me.CheckBox2.Value = False, False, True)
Sheets(i).Rows("10:11").EntireRow.Hidden = IIf(Me.CheckBox3.Value = False, False, True)
Sheets(i).Rows("12:13").EntireRow.Hidden = IIf(Me.CheckBox4.Value = False, False, True)
End If
Next i
Application.ScreenUpdating = True
Unload parametrage
End Sub

Private Sub UserForm_Initialize()
For i = 1 To 4
Controls("CheckBox" & i) = True
Next i
End Sub

Pour la deuxième 😕 pas compris

A te relire avec plus d'explications et surtout suit les conseils d'Excel-Lent il est toujours de bons conseils 🙂

Bonne Journée

 

[wrap food]

Re : masquer plusieurs lingnes dans plusieurs feuilles avec un checknox

Merci

encore une petit question si je veux le masquage des lignes est lieux sur des onglet qui ne se suivent pas example ( feuille1; feuille 3; feuille 10; feuille15) je modifits le code comment ??

et surtout encore merci

 

[Dull]

Re : masquer plusieurs lingnes dans plusieurs feuilles avec un checknox

Salut wrap food, le Forum

Remplace

If i <> 2 Then

par

If i <> 1 And i <> 3 And i <> 10 And i <> 15 Then

Bonne Journée