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!
A voir également:

3 réponses

Réponse 1 / 3
ccm81 Messages postés 11033 Statut Membre 2 433
 
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
Réponse 2 / 3
Céline
 
Merci beaucoup je le tente
0
Réponse 3 / 3
Céline
 
Ca fonctionne.
Un énorme merci!!!!
0