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

[LOLO28]

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,

 

[phlaurent55]

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

Bonjour Lolo,

ton fichier en retour

à+
Philippe

 

[Si...]

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 :

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

 

[LOLO28]

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

Merci beaucoup pour votre aide c'est ce que je souhaiatai comme resultat