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
---------------------------
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
isabelle
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 ---------------------------
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
---------------------------
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
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 ---------------------------
Merci pour ton aide judicieuse Isabelle
j'apprend...j'apprend...
Pascal
"isabelle" <i@v> a écrit dans le message de groupe de discussion :
ei#w3lwAKHA.4004@TK2MSFTNGP05.phx.gbl...
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
---------------------------
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 ---------------------------