XL 2019 Recherche d'une date dans une plage de cellules

stoky · 2 Décembre 2021

Bonjour,

j'ai les jours de 2022 dans la plage de cellule (D12:NE14). je mets une date en A5 et je voudrais par une macro qu'Excel me renvoie à la colonne (entre D et NE) contenant la date mise en A5. Je suis sur ce problème depuis deux jours et je ne trouve rien. Je me permets donc de vous demander de l'aide. Déjà un grand merci de que vous m'apporterez.

fanch55 · 2 Décembre 2021

Bonjour,

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = [A5].Address Then
        Set R = [D12:NE14].Find([A5])
        If Not R Is Nothing Then Application.Goto R, True
    End If
End Sub

stoky · 2 Décembre 2021

fanch55 à dit:

Bonjour,

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = [A5].Address Then
        Set R = [D12:NE14].Find([A5])
        If Not R Is Nothing Then Application.Goto R, True
    End If
End Sub

fanch55 à dit:

Bonjour,

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = [A5].Address Then
        Set R = [D12:NE14].Find([A5])
        If Not R Is Nothing Then Application.Goto R, True
    End If
End Sub

fanch55 · 2 Décembre 2021

🤔 ?

stoky · 2 Décembre 2021

Merci fanch55 mais il me fait une erreur de compil et je ne trouve pas quoi. je joins mon fichier en copiet et si en plus , il peut mettre la date sur fond jaune dans la plage D12:N14, ce serait génial.
Merci d'avance.

fanch55 · 2 Décembre 2021

A tester

stoky · 2 Décembre 2021

En plus quand je change la date à rechercher, il garde la même colonne ( entre D et NE) mais il change la date

stoky · 2 Décembre 2021

fanch55 à dit:
🤔 ?

J'ai encore des soucis, j'ai mis deux autres posts. Merci de m'aider encore si tu sais

fanch55 · 2 Décembre 2021

Jacky67 · 2 Décembre 2021

fanch55 à dit:
Regarde la pièce jointe 1123599

Hello Fanch
Attention à ==>Set R = [Plage_Dates].Find([A5])
Essaye une recherche sur 01/01/2022
Plutôt ==>Set R = [14:14].Find([A5])

**Je n'arrive pas à en trouver la raison..

fanch55 · 2 Décembre 2021

Jacky67 à dit:
Hello Fanch
Attention à ==>Set R = [Plage_Dates].Find([A5])
Essaye une recherche sur 01/01/2022
Plutôt ==>Set R = [14:14].Find([A5])

**Je n'arrive pas à en trouver la raison..

Salut @Jacky67 ,
ça, c'est le pb traditionnel du Find, quand on ne précise pas tous les paramètres, il conserve ce qu'il avait en mém, on l'oublie quand on veut coder rapidement .
En l’occurrence le code suivant devrait résoudre le pb potentiel actuel :
Set R = [Plage_Dates].Find([A5], lookat:=xlWhole) 😉

GALOUGALOU · 2 Décembre 2021

re stoky bonsoir le fil, bonsoir le forum
je vous propose une autre solution, mais qui ne remet pas en cause la pertinence des réponses précédentes.
juste pour vous offrir une solution de plus.
coloré de jaune avec une mfc

VB:

Sub date_jour()
Application.ScreenUpdating = False
Dim cellule As Range
On Error Resume Next
For Each cellule In ActiveSheet.Range("D14: NE14")
If cellule = ActiveSheet.Range("A5") Then
ActiveWindow.ScrollColumn = cellule.Column
cellule.Select
End If
Next cellule
End Sub

cdt
galougalou

Jacky67 · 3 Décembre 2021

fanch55 à dit:
Salut @Jacky67 ,
ça, c'est le pb traditionnel du Find, quand on ne précise pas tous les paramètres, il conserve ce qu'il avait en mém, on l'oublie quand on veut coder rapidement .
En l’occurrence le code suivant devrait résoudre le pb potentiel actuel :
Set R = [Plage_Dates].Find([A5], lookat:=xlWhole) 😉

Mais oui, j'avais complètement zappé, il y a des jours comme ca 😑

XL 2019 Recherche d'une date dans une plage de cellules

stoky

XLDnaute Junior

fanch55

XLDnaute Barbatruc

stoky

XLDnaute Junior

fanch55

XLDnaute Barbatruc

stoky

XLDnaute Junior

Pièces jointes

fanch55

XLDnaute Barbatruc

Pièces jointes

stoky

XLDnaute Junior

stoky

XLDnaute Junior

fanch55

XLDnaute Barbatruc

Pièces jointes

Jacky67

XLDnaute Barbatruc

fanch55

XLDnaute Barbatruc

GALOUGALOU

XLDnaute Accro

Pièces jointes

Jacky67

XLDnaute Barbatruc

Discussions similaires

XL 2019 Recherche d'une date dans une plage de cellules

XLDnaute Junior

XLDnaute Barbatruc

XLDnaute Junior

XLDnaute Barbatruc

XLDnaute Junior

Pièces jointes

XLDnaute Barbatruc

Pièces jointes

XLDnaute Junior

XLDnaute Junior

XLDnaute Barbatruc

Pièces jointes

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Accro

Pièces jointes

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency