Bonjour à tous.
Avant tout, merci à vous qui prenez le temps de lire ma question:
Je me sers d’un tableur qui contient dans la colonne A les dates de chaque jour de l’année (de A31 à A395).
Je cherche à ajouter un bouton sur mon tableur me permettant d’accéder directement a la ligne du jour en cliquant dessus.
Je n’ai fais jusqu’a maintenant que des macros basiques de tri associées à des boutons, et je ne me suis encore jamais servi de VBA, donc je vous remercie par avance pour votre aide sur ce sujet pour un novice comme moi.
Option Explicit
Sub SelectDateJour()
'Déclaration des variables
Dim i As Integer
Dim Derlign As Integer
'Initialisation des variables
'***********************************************
Derlign = Sheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Row 'n° de la dernière ligne non vide de la colonne A de la feuille 1
' "Feuil1" est à modifier suivant le nom de la feuille
'***********************************************
For i = 31 To Derlign 'boucle de la ligne i (de 31 à la dernière ligne non vide)
If Range("A" & i) = Date Then 'Si la cellule (A31) est = à la date du jour (Date étant l'équivalent de "AUJOURDHUI()" en VBA
Range("A" & i).Activate 'Je me position dessus
Exit Sub 'et je quitte la procèdure
End If
Next i ' si la date n'est pas trouvée en A31, la boucle continue et i prend la valeur de 32, puis 33, etc
End Sub
Bonjour ayant la même problématique mais avec l’incrémentation en ligne des dates j’ai tenté la mise à jour de la macro en conséquence mais sans succès.
pouvez vous m’y aider ?
les dates sont en ligne 3 de F à AQS ( office 365 )