Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2019 recherche date sur ligne

  • Initiateur de la discussion Initiateur de la discussion loic126
  • Date de début Date de début
  • Mots-clés Mots-clés
    date

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

loic126

XLDnaute Nouveau
bonjour,
je souhaiterai que la colonne correspondant à la date du jour (située en B2) apparaisse en cliquant sur le bouton.

j'ai essayé ça mais sans succès :
VB:
Private Sub Bouton1_Cliquer()
    With Worksheets("MOUVEMENT FOURNITURES")
        .Activate
        .Rows(2).Find(Date).Select
    End With
End Sub

ainsi que :
Code:
Private Sub Workbook_Open()
Dim cellule As Range
For Each cellule In Sheets("Planning").Range("B5:ADN5")
If cellule = Date Then
ActiveWindow.ScrollColumn = cellule.Column
End If
Next cellule
End Sub

que me manque-t-il?

merci de votre aide
 

Pièces jointes

Bonsoir loic126, bienvenue sur XLD,

Il n'est pas courant de mettre des "dates" comme en-têtes de colonnes d'un tableau structuré.

Car alors ce ne sont plus de vraies dates (nombres) mais des textes.

On peut malgré tout travailler avec ces textes, voyez cette macro dans ThisWorkbook :
VB:
Private Sub Workbook_Open()
Application.Goto Rows(2).Find(Format(Date, "dd/mm/yyyy"), , xlValues), True 'cadrage
End Sub
C'est un texte qui est recherché en ligne 2.

Sur le fichier joint les colonnes A:G sont figées pour permettre un bon cadrage.

A+
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
9
Affichages
231
Réponses
2
Affichages
258
Réponses
4
Affichages
346
  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
831
Réponses
2
Affichages
606
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…