Macro excel - Masquer colonne si date

Résolu
Céline -  
 Céline -
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!

3 réponses

  1.
    ccm81 Messages postés 11033 Statut Membre 2 434
     
    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
    1
  3. Céline
     
    Ca fonctionne.
    Un énorme merci!!!!
    0