masquer colonnes

[lio]

Bonjour le forum,

Sur un calendrier, je désire masquer 2 colonnes si nous ne sommes pas en année bissextiles.

J'ai donc écrit ce bout de code mais il ne fonctionne pas ( mes colonnes restent tjs masquées ???)

Voici le code:

Private Sub Worksheet_Activate()' feuil fev
If Range('C2') DIFFERENT DE 2008 Or 2012 Or 2016 Then
[BG6:BH6].EntireColumn.Hidden = True
End If
End Sub

Mon année se trouve dans la cellule C2.

Je suis encore débutant et je ne comprends plus là

Merci pour votre aide et vos explications.

 

[PascalXLD]

re

non il suffit juste de changer l'année pour voir

tu mets 2008 les colonnes s'affichent tu mets 2007 les colonnes se masquent

 

[Jacques87]

Bonjour Pascal, Bonjour José

Pascal chez moi pas de problème ta solution donne satisfaction. As-tu regardé le fichier que j'ai joint dans un de mes derniers posts ? Si oui comprends tu le bug que j'ai soulevé ?
José j'aimerais accéder au ZOP, faut-il que je dise une grosse bourde pour pouvoir y accéder en tant qu'adhérent ou puis-je le consulter en tant qu'invité ?
Gaité et bonne humeur sont les deux mamelles de XLD, et que chacun s'en souvienne n'est ce pas.

 

[PascalXLD]

re

Jacques je pense qu'en fait le problème vient du fait que tu oublies de remettre visible les colonnes avec un hidden=false dans le cas où l'annnée soit 2008

 

[Hervé]

Bonjour tout le monde

Dès que l'on parle du zop, son président se manifeste, jacques, c'est par ici :

Lien supprimé


En plus, je trouve que ce post à quelques relents de zopette.

a plus

salut

Message édité par: hervé, à: 30/01/2006 14:35

 

[lio]

Bonjour Hervé,

Bon Pascal,je comprends un peu mieux maintenant. Si tu places l'année en manuel OK, ça roule.

Mais si tu vas dans l'onglet 'Donnees' et tu changes l'année avec la combobox: il ne se passe rien...

 

[Jacques87]

Merci Hervé

Je crois que je peux me préparer à de longues soirées poilantes ....

 

[PascalXLD]

RE

Voilà avec l'utilisation de la combo [file name=PlanningV4_20060130145903.zip size=14154]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/PlanningV4_20060130145903.zip[/file]

 

[Jacques87]

Lio, dans ce cas faiy donc le test sur la valeur du ComboBox1

annee = WorkSheets('donnees').ComboBox1.Value
If annee DIFFERENT DE .......

attention, au 'changements' de feuille, ne pas oublier de (re)sélectionner la feuille active

 

[lio]

Aucum problème, tout est liée puisque en C2 de la feuille de Fevrier, j'ai cette formule: =Janvier!C2.

Mon planning roule impec pour l'info mis à part ça.

 

[lio]

Merci à tous les intervenants de ce fil (que je n'aurait pas cru si long !).

Ca roule impec.

Merci encore.

Salutations. Lio.

 

[Gael]

Bonjour Lio, Pascal, Jacques, Jmps, Hervé,

Pour simplifier le code pour les années bissextiles, j'aurais plutôt écrit:

If Sheets('Janvier').Range('C2') Mod 4 = 0 Then

ce qui me paraît plus simple que:

If Sheets('Janvier').Range('C2') = 2008 Or Sheets('Janvier').Range('C2') = 2012 Or Sheets('Janvier').Range('C2') = 2016 Then

Et en plus ça marche pour toutes les années.

@+

Gael

Message édité par: Gael, à: 30/01/2006 15:23

 

[lio]

Bonjour Gael,

Merci pour la combine, je ne connaissais pas cette fonction.

Bonne journée.

 

[PascalXLD]

RE

Et oui comme José le dit la règle n'est pas aussi simple que cela

Il faut une année divisible par 4 mais pas par 100 sauf si elle est divisible par 400

Mias c'est vrai que cela fait plus propre avec le Mod 4 qui marchera jusqu'en 2100 où là il y aura une erreur

Bonne journée

 

[Jacques87]

José

(je sais plus trop
mais Grégorien et Julien je crois).

Une année terrestre à une longueur de 365,2422 jours en moyenne. Il faut donc à peu près 4 ans pour former un jour (4 * 0.2422 = 0.9688). Mais le calendrier Julien était arrondi à 365.25 jours ce qui provoquait un décalage d'environ 10 jours en 1 500 ans. Le calendrier Grégorien corrigea cette erreur avec toutefois un petit décalage d’une journée en 10 000 ans (0.9688 jour n’étant pas exactement égal à 1 jour).

pui-je maintenant entrer dans le ZOP, cher Président ?

 

[lio]

re,

Jmps, tu dis :mais est-ce qu'Excel (et surtout VBA) sera encore là en 2012 ?

Quesaco ?

J'essai de me mettre à fond au VBA et il va disparaitre?... hmy: :woohoo:

@ +