XL 2019 Trouver date

[Rabeto]

Bonsoir,

J'aimerai svp que ma macro cherche et sélectionne la date égale à la valeur de la cellule J1 dans la plage à partir de J4 jusqu'à la dernière cellule contenant une valeur.

J'ai mis un code mais celui-ci ne marche pas.

merci

 

[Cousinhub]

Bonjour,
Peut-être ainsi :

Sub aller()
If Not IsError(Application.Match(CLng(Range("J1").Value), Rows(4), 0)) Then
    Application.Goto Cells(4, Application.Match(CLng(Range("J1").Value), Rows(4), 0)), True
End If
End Sub

Bonne soirée

 

[Rabeto]

super, merci Cousinhub

 

[Rabeto]

Petite question, si j'aimerai que la recherche se fasse à partir de la 15e colonne ligne 8.
Pour que j'adapte à mon fichier

 

[Cousinhub]

Bonjour,
Est-ce qu'il existe une possibilité d'avoir une date dans les 14 premières colonnes de la ligne 8?
Si aucune de ces cellules ne peut comporter de dates, tu remplaces Rows(4) par Rows(8) dans les 2 lignes de code.
Si le "risque" existe, tu peux essayer ainsi :

Sub aller()
Dim Plg As Range
Dim DerCol As Long
DerCol = Cells(8, Columns.Count).End(xlToLeft).Column
Set Plg = Range(Cells(8, 15), Cells(8, DerCol))
If Not IsError(Application.Match(CLng(Range("J1").Value), Plg, 0)) Then
    Application.Goto Cells(8, Application.Match(CLng(Range("J1").Value), Plg, 0) + 14), True
End If
End Sub

Bonne journée

 

[Rabeto]

Merci Cousinhub

C'est exactement ce que j'ai fais, ça marche