XL 2010 Cacher ou Afficher les cellules en fonction de la date en jaune

  • Initiateur de la discussion Initiateur de la discussion anthonygg
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

J'ai cherché toute la nuit 😅
J'ai un tout début de réponse !

Si je met 1 dans la case B2 alors ça me masque les colonnes de 3 à 9.
Si je met 0 ça m'affiche tout.

J'aimerai beaucoup faire ça mais pour toute la feuille Excel en fonction de la date.


Private Sub Worksheet_Change(ByVal Target As Excel.Range)

'choisir le mois
Dim a As Date
a = Range("B14").Value

Application.ScreenUpdating = True

If Range("B2") = 1 Then Columns("D😀").EntireColumn.Hidden = True
If Range("B2") = 2 Then MsgBox a
If Range("B2") = 3 Then Columns("D😀").EntireColumn.Hidden = False

End Sub
 
Bon je viens de réussir.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Application.ScreenUpdating = False
'choisir le mois
Dim a As Single
Dim b As Single
Dim c As Single

a = Range("B2").Value


Columns("C:ZZ").EntireColumn.Hidden = True

b = (3 + 9 * a)
c = (11 + 9 * a)

For i = b To c
Columns(i).EntireColumn.Hidden = False
Next

End Sub
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
16
Affichages
667
Réponses
6
Affichages
299
Retour