Masquer/afficher cellules

[DBFOE]

Bonjour,
D'abord un grand bravo pour le forum qui m'a déjà bien aider mais là je cales ... et je n'ai rien trouver (mon niveau Excel est très moyen !!!).

J'ai dans ma feuille 7 OptionButton qui me permettent 7 semaines ainsi q'un récapitulatif : jusque là ça va. Mais ces même boutons devarient faire masquer ou afficher des plages de cellules avec des ScrollBar. Pour les ScrollBar pas de problèmes mais pour les cellules ça m'éfface toute la ligne ou fait apparaitre toute la ligne.
Voici le code pour le premier bouton je l'ai détaillé pour qu'il soit plus lisible :

Private Sub OptionButton16_Click()
Range("D54:Q115,D44:AB51").Select
Selection.EntireRow.Hidden = True

Range("Semaine2:Semaine7").Select
Selection.EntireRow.Hidden = True

ScrollBar2.Visible = 0
ScrollBar3.Visible = 0
ScrollBar4.Visible = 0
ScrollBar5.Visible = 0
ScrollBar6.Visible = 0
ScrollBar7.Visible = 0

Range("D54:AB61,D44:AB45").Select
Selection.EntireRow.Hidden = False

Range("Semaine1").Select
Selection.EntireRow.Hidden = False

End Sub

J'ai essayé avec le "blanc" mais la plage contient du texte des bordures et de la couleur dans certaines cellules. Pour masquer pas de problèmes mais pour faire réapparaitre là c'est plus compliqué.

J'espères que je n'ai pas été trop long mais j'essai d'être le plus précis possible.

Merci

 

[Staple1600]

Re : Masquer/afficher cellules

Bonsoir


C'est normal non ?

Selection.EntireRow.Hidden=True

EntireRow se traduit par ligne entière

Hidden par caché (ou masqué)

et True par vrai

 

[DBFOE]

Re : Masquer/afficher cellules

Bonsoir Staple1600,
C'est ça les apprentis sorciers, on fait des bêtises.
Je comprends ton détail mais si j'enlèves l'un ou l'autre j'ai une erreur et si j'enlèves les deux je me retrouve avec faux à la fermeture et vrai à l'ouverture.

Merci pour ta patience car je débutes en vba.

 

[Staple1600]

Re : Masquer/afficher cellules

Re


Ce que je voulais dire

c'est que tu ne peux masquer qu'une ligne ou une colonne entière.
(ce qui semble logique)

Mais si tu joins un fichier exemple, il sera plus aisé de t'aider.

 

[DBFOE]

Re : Masquer/afficher cellules

Je ne peux pas envoyer le fichier car il est trop volumineux même en enlevant ce qui ne nous interresse pas 56.7ko
Désolé

 

[DBFOE]

Re : Masquer/afficher cellules

Comme dit plus haut : pour le blanc j'ai essayé et cela fonctionne mais pour faire réapparaitre là c'est plus compliqué car mes plages contiennent plusieurs cellules : certaines avec du texte, d'autres des bordures et d'autres un fond de couleur.

 

[DBFOE]

Re : Masquer/afficher cellules

Excusez-moi, je n'avais pa vu que l'on pouvait envoyer des fichiers Zip : le voila.

 

[DBFOE]

Re : Masquer/afficher cellules

J'ai les yeux qui se ferment, je reprenderais demain.
Bonne nuit

 

[DBFOE]

Re : Masquer/afficher cellules

Bonsoir,
Bloquant sur ma première idée, j'ai ai eu une autre : J'ai fait une copie de mes cellules sur une autre feuille puis je fais une copie.

Sheets("Source").Select
    Range("I39:K40").Select
    Selection.Copy
    Sheets("Mensualisation").Select
    Range("I39:K40").Select
    ActiveSheet.Paste

Quand j'active la macro seule cela fonctionne mais quand je l'incorpore dans mon OptionButton j'ai une erreur sur Range("I39:K40").Select

Il doit y avoir une erreur entre Sheets et Range mais je ne vois pas.
Merci

 

[Banzai64]

Re : Masquer/afficher cellules

Bonsoir

Si tu veux plus d'aide transmets un fichier au format .xls

 

[DBFOE]

Re : Masquer/afficher cellules

Bonsoir,
J'ai eu beau l'allégé il est toujours trop loud, je te l'ai mis ici : Cijoint.fr - Service gratuit de dépôt de fichiers

Merci

 

[Banzai64]

Re : Masquer/afficher cellules

Bonjour

A voir et surtout à tester

 

[DBFOE]

Re : Masquer/afficher cellules (Resolu)

Bonjour Banzai64,
Un grand MERCI car là je ne l'aurais jamais trouvé tout seul. Cà a l'air de très bien fonctionner.
Si je peux me permettre une petite question : connais-tu un site ou un livre avec un lexique qui détaille le vba car maintenant je vais essayer de comprendre ton code et progressé un peu (vu mon niveau se sera pas dur !!!).

Encore bravo.😉

 

[Staple1600]

Re : Masquer/afficher cellules

Bonjour à tous


Pour Banzai64 (pour info)
Tu peux alléger ceci

With Range("E39:AE40")
      .ClearContents
      .Interior.ColorIndex = xlNone
      .Borders(xlDiagonalDown).LineStyle = xlNone
      .Borders(xlDiagonalUp).LineStyle = xlNone
      .Borders(xlEdgeLeft).LineStyle = xlNone
      .Borders(xlEdgeTop).LineStyle = xlNone
      .Borders(xlEdgeBottom).LineStyle = xlNone
      .Borders(xlEdgeRight).LineStyle = xlNone
      .Borders(xlInsideVertical).LineStyle = xlNone
      .Borders(xlInsideHorizontal).LineStyle = xlNone
    End With

en cela

With Range("E39:AE40")
      .ClearContents
      .Interior.ColorIndex = xlNone
      .Borders.LineStyle = xlNone
End With

 

[Banzai64]

Re : Masquer/afficher cellules

Bonjour DBFOE

Bonjour Staple1600

connais-tu un site ou un livre avec un lexique qui détaille le vba

Il y en n' a à foison sur le net mais je trouve qu'ici c'est déjà très bien pour apprendre

Pour Banzai64 (pour info)
Tu peux alléger ceci

Merci

Ce Henry pratique mais fait pas les simplifications