Macro excel - Masquer colonne si date Résolu/Fermé

Question

Bonjour, 

Je dois finaliser une macro excel mais je bloque depuis un petit moment sur une selection puis masquage de colonnes:

- mes colonnes sont des dates entre le 01/01/12 et le 30/06/12
- dans une liste déroulante je demande de choisir une date de début comprise entre ces dates
- dans le tableau principal je voudrais masquer toutes les colonnes des dates précédents la date sélectionnée.

exemple:
- choix dans la liste du 05/01/12
- les colonnes du 1 au 4 janvier sont maquées


Merci de votre aide!

ccm81 · Answer

bonjour

un exemple commandé par un bouton

Option Explicit

Const plageDates = "A1:J1"
Const celluleDate = "L1"

Private Sub CommandButton1_Click()
Dim DateFin As Date
Dim co As Long, nbco As Long
Dim fini As Boolean
Application.ScreenUpdating = False
DateFin = Range(celluleDate).Value
nbco = Range(plageDates).Columns.Count
co = 0
fini = False
Do
  co = co + 1
  If Range(plageDates).Cells(1, co) < DateFin Then
    Range(plageDates).Cells(1, co).EntireColumn.Hidden = True
  Else
    fini = True
  End If
Loop Until fini Or co = nbco
Application.ScreenUpdating = True
End Sub

bonne suite

Céline · Answer

Merci beaucoup je le tente

Céline · Answer

Ca fonctionne.
Un énorme merci!!!!