Masquer/afficher cellules

Staple1600

XLDnaute Barbatruc

• 12 Novembre 2010

• #2

Re : Masquer/afficher cellules

Bonsoir


C'est normal non ?

Selection.EntireRow.Hidden=True

Cliquez pour agrandir...

EntireRow se traduit par ligne entière

Hidden par caché (ou masqué)

et True par vrai

 

Vote positif 0 Vote négatif

D

DBFOE

XLDnaute Nouveau

• 12 Novembre 2010

• #3

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.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 12 Novembre 2010

• #4

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.

 

Vote positif 0 Vote négatif

D

DBFOE

XLDnaute Nouveau

• 12 Novembre 2010

• #5

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é

 

Vote positif 0 Vote négatif

D

DBFOE

XLDnaute Nouveau

• 12 Novembre 2010

• #6

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.

 

Vote positif 0 Vote négatif

D

DBFOE

XLDnaute Nouveau

• 13 Novembre 2010

• #7

Re : Masquer/afficher cellules

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

 

Pièces jointes

• Mensualisation.zip

  41.3 KB · Affichages: 42

Vote positif 0 Vote négatif

D

DBFOE

XLDnaute Nouveau

• 13 Novembre 2010

• #8

Re : Masquer/afficher cellules

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

 

Vote positif 0 Vote négatif

D

DBFOE

XLDnaute Nouveau

• 13 Novembre 2010

• #9

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.

VB:

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

 

Vote positif 0 Vote négatif

B

Banzai64

XLDnaute Accro

• 13 Novembre 2010

• #10

Re : Masquer/afficher cellules

Bonsoir

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

 

Vote positif 0 Vote négatif

D

DBFOE

XLDnaute Nouveau

• 14 Novembre 2010

• #11

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

 

Vote positif 0 Vote négatif

B

Banzai64

XLDnaute Accro

• 14 Novembre 2010

• #12

Re : Masquer/afficher cellules

Bonjour

A voir et surtout à tester

 

Pièces jointes

• Mensualisation V009.zip

  30.8 KB · Affichages: 42

Vote positif 0 Vote négatif

D

DBFOE

XLDnaute Nouveau

• 14 Novembre 2010

• #13

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

 

Dernière édition: 14 Novembre 2010

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 14 Novembre 2010

• #14

Re : Masquer/afficher cellules

Bonjour à tous


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

Code:

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

Code:

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

 

Vote positif 0 Vote négatif

B

Banzai64

XLDnaute Accro

• 14 Novembre 2010

• #15

Re : Masquer/afficher cellules

Bonjour DBFOE

Bonjour Staple1600

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

Cliquez pour agrandir...

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

Cliquez pour agrandir...

Merci

Ce Henry pratique mais fait pas les simplifications

 

Vote positif 0 Vote négatif