trouver cellule du mois en cours

Le
Pascal
bonjour à tous et toutes,
votre aide bienvenue pour le problème suivant
Je cherche simplement à me positionner sur la première cellule du mois en
cours (cellule a3:A500)
ce petit bout de code ne me donne que le numéro de mois en cours (7 pou
juillet) et me positionne toujours dans la colonne A (qui contient des
dates) au 7 janvier
y a t'il une formule plus directe pour y arriver ?
merci de votre aide
Pascal
CODE--
Dim c As Range
With Worksheets(1).Range("a3:a500")
Set c = .Find(Month(Now))
If Not c Is Nothing Then
Range(c.Address).Select
End If
End With
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
isabelle
Le #19744961
bonjour Pascal,

Set c = .Find(DateSerial(2009, Month(Now), 1))

isabelle

Pascal a écrit :
bonjour à tous et toutes,
votre aide bienvenue pour le problème suivant
Je cherche simplement à me positionner sur la première cellule du mois en
cours (cellule a3:A500)
ce petit bout de code ne me donne que le numéro de mois en cours (7 pou
juillet) et me positionne toujours dans la colonne A (qui contient des
dates) au 7 janvier
y a t'il une formule plus directe pour y arriver ?
merci de votre aide
Pascal
---CODE-----------
Dim c As Range
With Worksheets(1).Range("a3:a500")
Set c = .Find(Month(Now))
If Not c Is Nothing Then
Range(c.Address).Select
End If
End With
---------------------------





Pascal
Le #19746601
Merci pour ton aide judicieuse Isabelle
j'apprend...j'apprend...
Pascal

"isabelle" a écrit dans le message de groupe de discussion :
ei#
bonjour Pascal,

Set c = .Find(DateSerial(2009, Month(Now), 1))

isabelle

Pascal a écrit :
bonjour à tous et toutes,
votre aide bienvenue pour le problème suivant
Je cherche simplement à me positionner sur la première cellule du mois en
cours (cellule a3:A500)
ce petit bout de code ne me donne que le numéro de mois en cours (7 pou
juillet) et me positionne toujours dans la colonne A (qui contient des
dates) au 7 janvier
y a t'il une formule plus directe pour y arriver ?
merci de votre aide
Pascal
---CODE-----------
Dim c As Range
With Worksheets(1).Range("a3:a500")
Set c = .Find(Month(Now))
If Not c Is Nothing Then
Range(c.Address).Select
End If
End With
---------------------------






Publicité
Poster une réponse
Anonyme