recherche d'une date

bonjour patounet,

voici un exemple,

Sub Macro1()
Sheets("semaine").Select
On Error Resume Next
Cells("A4:BJ4").Find(What:=Sheets("aujord'dui").[E5], After:¬tiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:úlse, SearchFormat:úlse).Activate
ActiveCell.Offset(3, 0).Select
If Err.Number <> 0 Then
MsgBox (" Cette date n'a pas été trouvé dans la plage A4:BJ4.")
Err.Clear
End If
End Sub

isabelle

bonjour à tous
je cherche à inscrire une date dans une feuille aujourd'dui nommée "
aujord'dui"dans la cellule E5
comment faire pour retrouver cette date dans la feuille "semaine", la
selectionner
puis descendre de 3 cellules (les dates sont sur une ligne ("a4:bj4") ).
merci de votre aide

Si (comme je crois comprendre) la variable date est en E5 de la feuille
"aujourdui" et que l'on doive la chercher en A4:BJ4 de la feuille "semaine" et
sélectionner " lignes au-dessous :

Sub zzz()
On Error Resume Next
Application.Goto Reference:="semaine!R7C" &
[match(aujourdhui!E5,semaine!A4:BJ4,0)]
End Sub

PS : si la date est présente plusieurs fois dans la plage A4:BJ4, c'est la 1°
occurrence qui sera retenue
AV

ok et merci Isabelle et AV pour vos solutions
patounet

bonjour patounet,

voici un exemple,

Sub Macro1()
Sheets("semaine").Select
On Error Resume Next
Cells("A4:BJ4").Find(What:=Sheets("aujord'dui").[E5], After:¬tiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:úlse, SearchFormat:úlse).Activate
ActiveCell.Offset(3, 0).Select
If Err.Number <> 0 Then
MsgBox (" Cette date n'a pas été trouvé dans la plage A4:BJ4.")
Err.Clear
End If
End Sub

isabelle

bonjour à tous
je cherche à inscrire une date dans une feuille aujourd'dui nommée "
aujord'dui"dans la cellule E5
comment faire pour retrouver cette date dans la feuille "semaine", la
selectionner
puis descendre de 3 cellules (les dates sont sur une ligne ("a4:bj4") ).
merci de votre aide