Sujet Précédent Sujet Suivant

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 22696 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 17 avril 2024 - 12 août 2019 à 14:39
Bonjour,

Je travaille sous Excel 2013 et dispose d'un tableau avec des dates en colonne A et des noms en colonne B: https://www.cjoint.com/c/IGqjkE6reID
En D1, j'ai mis une formule qui indique la date glissante à 31 jours (15/06/2019 si on est le 16/07/2019, 10/03/2019 si on est le 11/04/2019...).
J'aimerais savoir quel code VBA pourrait me permettre de sélectionner la partie du tableau (dates et noms) de la date la plus ancienne date à celle inférieure à la date figurant en D1, idéalement en intégrant la formule située en D1 dans un code pour libérer la cellule D1; autrement dit, j'aimerais pouvoir sélectionner le tableau de la première ligne à la dernière contenant les infos du 14/06/2019 si en D1 apparaît la date "15/06/2019"; quelqu'un aurait-il une piste?? Toutes les idées sont bonnes à prendre!

Je vous en remercie par avance!
A voir également:

1 réponse

Réponse 1 / 1
yg_be Messages postés 22696 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 17 avril 2024 1 471
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
1
Lena_tkd
18 juil. 2019 à 15:06
Le code fonctionne parfaitement, merci beaucoup!!!
0
yg_be Messages postés 22696 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 17 avril 2024 1 471 > Lena_tkd
18 juil. 2019 à 15:33
parfait, peux-tu alors marquer le sujet comme résolu, via la roue dentée à droite du titre?
0
Lena_tkd
20 juil. 2019 à 12:51
Je ne vois pas de roue dentée alors dans le mail reçu j'ai cliqué sur "votre question edt résolue" mais ça n'a rien fait de plus que je me rediriger vers le forum
0
yg_be Messages postés 22696 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 17 avril 2024 1 471 > Lena_tkd
20 juil. 2019 à 13:00
ok, je marque résolu, merci d'avoir essayé.
0
Lena_tkd
12 août 2019 à 11:28
Petite question complémentaire: comment récupérer le numéro de la dernière ligne de la sélection?? Merci
0

Discussions similaires

ouverture d'un fichier excel à partir d'un code VBA
TraderAS -
pijaku -

3 réponses