Pb feuille en VB

[Fabien]

Bonjour

J'ai des soucis pour écrire une macro

Si sur ma Saison en celllule M1 est égal à 7
Alors Masquer colonne T à W et AF à la fin sur la feuille Individuel

Si sur ma Saison en celllule M1 est égal à 9
Alors Masquer colonne AF à la fin sur la feuille Individuel

Ma macro fonctionne si tous sur la même feuille mais ce n'est pas le cas
De plus Ma ligne 1 est fusionné de la colonne B à AD, suis-je obligé de la défusionnnée pour masquer les colonnes???

Merci

A+

 

[Abel]

Re,

On peut masquer une colonne qui fait partie d'un ensemble fusionné.

Qu'entends tu par "Ma macro fonctionne si tous sur la même feuille mais ce n'est pas le cas" ?

Abel.

 

[Fabien]

Re,

C'est à dire que ma cellule M1 est sur la feuille Saison
Et que je veux masquer les colonnes dans la feuille Individuel

A+

 

[Abel]

Re,

Un peu à la bourre donc et suite à ton deuxième post sur ce sujet :

If Sheets("Saison").Range("m1") = 7 Then
Columns("t:w").Select
Selection.EntireColumn.Hidden = True
Columns("af:iv").Select
Selection.EntireColumn.Hidden = True
End If

Fonctionne si tu exécutes la macro depuis la feuille "Individuel". En fait, ce code masque les colonnes de la feuille active.

En espérant que cela te dépanne.

Abel.

 

[Fabien]

Alors j'ai écrit ta macro mais il me restait plus que la colonne A visible

Mais J'ai écrit

If Sheets("Saison").Range("M1") = 7 Then
[T1:W1].EntireColumn.Hidden = True
[AF1:IV1].EntireColumn.Hidden = True
End If

Et çà fonctionne nickel

A+ et merci Abel

 

[Fabien]

Oups

Une question, peut on remplacer la valeur 7 par "7 ou 8"
Ou je dois l'écrire deux fois

A+

 

[Abel]

Re,

If Sheets("Saison").Range("M1") = 7 or Sheets("Saison").Range("M1") = 8 Then

Abel.

 

[Fabien]

Bonjour

Maintenant que la macro fonctionne je me suis aperçu quelle s'éxecutait à chaque fois et je prèferais quelle ne s'éxecute que si La cellule M1 de la feuille saison Change.
J'ai essayé avec Worksheet_Change mais comme ce n'est pas sur la même feuille

J'ai l'impression que devrait prendre le problème à l'envers.
Ecrire un Worksheet_Change sur la feuille saison, çà va
et modifier la macro pour quelle masque les colonnes de la feuille Individuel

En faite je vois trop

A+

 

[Abel]

Re,

Private Sub Worksheet_Change(ByVal Target As Range)
If Target = Range("m1") Then "Se qui doit se passer si la valeur de "M1" change"
End Sub

Abel

 

[Fabien]

Salut

Oui, j'y avais pensé mais mon souci

La cellule M1 est sur la feuille Saison et la macro doit agir sur sur la feuille Individuel

Donc çà ne fonctionne pas...
J'ai donc essayer d'écrire sur ma feuille individuel

Private Sub Worksheet_Change(ByVal Target As Range)
If Target = Sheets("Saison").Range("M1") Then
[AF1:IV1].EntireColumn.Hidden = True
If Sheets("Saison").Range("M1") = 7 Or Sheets("Saison").Range("M1") = 8 Then
[T1:W1].EntireColumn.Hidden = True
End If
If Sheets("Saison").Range("M1") = 9 Or Sheets("Saison").Range("M1") = 10 Then
[T1:W1].EntireColumn.Hidden = False
End If
End If
End Sub

MAIS CA NE FONCTIONNE PAS NON PLUS

A+

 

[Fabien]

Re,

J'ai tenté de contourner le problème en écrivant le résultat de la cellule M1 de la feuille saison vers la cellule BC2 de la feuille Individuel.

Afin de déclarer une variable qui serait le résultat de ma cellule BC2 et de dire que si la variable à changer alors executer la macro

Mais je n'arrive pas à l'écrire
Si quelqu'un peut m'aider

A+

 

[Abel]

Bonjour Fabien, le forum,

Excuse pour le retard, j'étais en déplacement jeudi et vendredi.

If Target = Range("m1") Then "Ce qui doit se passer si la valeur de "M1" change"

"Ce qui doit se passer ..." peut être remplacer par un appel de procédure qui se situe ailleur.

A+

Abel.