Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Recherche code vba pour masquer les colonnes en fonctions d'une valeur dans une autre

  • Initiateur de la discussion Initiateur de la discussion LOLO28
  • 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 !

LOLO28

XLDnaute Nouveau
bonjour le forum ,
Ce que j'aimerai qu'il se produise , lorsque je mets la date dans la cellule a2 , je voudrai que les colonnes comprises entre "colonne b et az" n' ayant pas la date de la cellule a2 soit masquées.
'ai assayé de modifier cette macro trouvé sur le forum mais cela ne fonctionne pas
Sub CacheColonnes()
ColDebut = 3
ColFin = 100

For ColCnt = ColDebut To ColFin
If Cells(ColCnt, ActiveCell.Row).Value = Range("a2") Then
Cells(RowCnt, ChkCol).EntireColumn.Hidden = True
End If
Next
End sub
merci de votre aide,
 

Pièces jointes

Re : Recherche code vba pour masquer les colonnes en fonctions d'une valeur dans une

salut

bonjour le forum ,
Ce que j'aimerai qu'il se produise , lorsque je mets la date dans la cellule a2 ...
donc une évènementielle.
Dans la page de code de la feuille :
Code:
Private Sub Worksheet_Change(ByVal R As Range)
  If R.Address <> "$A$2" Then Exit Sub
  Dim i as Byte
  Application.ScreenUpdating = 0
  Columns("A:IV").Hidden = 0
  For i = 3 To Range("IV1").End(xlToLeft).Column
    If Columns(i).Find(Range("A2")) Is Nothing Then Columns(i).Hidden = 1
  Next
End Sub
 

Pièces jointes

- 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

  • Question Question
XL 2019 Code VBA
Réponses
12
Affichages
820
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…