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

Signaler
-
 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

Messages postés
9527
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
8 août 2020
1 877
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
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 56950 internautes nous ont dit merci ce mois-ci

Merci beaucoup je le tente
Ca fonctionne.
Un énorme merci!!!!