VBA Excel: sélection de dates glissantes d'un tableau
Résolu/Fermé
Lena_tkd
Messages postés
1
Date d'inscription
mardi 16 juillet 2019
Statut
Membre
Dernière intervention
16 juillet 2019
-
16 juil. 2019 à 11:26
yg_be Messages postés 23333 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 18 novembre 2024 - 12 août 2019 à 14:39
yg_be Messages postés 23333 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 18 novembre 2024 - 12 août 2019 à 14:39
A voir également:
- VBA Excel: sélection de dates glissantes d'un tableau
- Liste déroulante excel - Guide
- Si et excel - Guide
- Aller à la ligne excel - Guide
- Word et excel gratuit - Guide
- Excel compter cellule couleur sans vba - Guide
1 réponse
yg_be
Messages postés
23333
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
18 novembre 2024
Ambassadeur
1 551
16 juil. 2019 à 11:57
16 juil. 2019 à 11:57
bonjour, je suggère ceci:
Option Explicit Sub lena() Dim dt As Date, cejour As Date, nlig As Long, fl As Worksheet Set fl = ActiveSheet cejour = Date dt = DateSerial(Year(cejour), Month(cejour) - 1, Day(cejour - 1)) nlig = 1 Do While fl.Cells(nlig, 1) < dt And IsDate(fl.Cells(nlig, 1)) nlig = nlig + 1 Loop If nlig < 2 Then nlig = 2 End If fl.Range(fl.Cells(1, 1), fl.Cells(nlig - 1, 2)).Select End Sub
18 juil. 2019 à 15:06
18 juil. 2019 à 15:33
20 juil. 2019 à 12:51
20 juil. 2019 à 13:00
12 août 2019 à 11:28