Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

trouver un début de date fonction Find

  • Initiateur de la discussion Initiateur de la discussion charlou74
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

C

charlou74

Guest
Bonjour, j'aimerais trouver une date dans une colonne.
l'utilisateur rentre une date et ensuite trouve cette date et la selectionne.
voici mon code
Code:
'Récuperation des valeurs de début et de fin
    heure2 = Workbooks("MACRO_VISUALISATION.xls").Worksheets(1).Cells(5, 8).Value
    heure = Workbooks("MACRO_VISUALISATION.xls").Worksheets(1).Cells(5, 6).Value

puis je cherche la valeur
Code:
Worksheets(gaz).Activate
==>    Set rngDebut ActiveSheet.Columns(1).Cells.Find(heure,LookAt:=xlPart)
==>    Set rngFin = ActiveSheet.Columns(1).Cells.Find(heure2,LookAt:=xlPart)
    'si la valeur n'est pas trouvé on fait rien
        If rngDebut Is Nothing Then
        MsgBox " debut rien"
        End If
quand j'éxecuter le prog en mode pas à pas au niveau de la flèche heure et heure2 contienne bien la date "10/02/2010"par exemple.
j'utilise un xlpart car dans ma colonne de recherche la date est sous cette forme jj/mm/aaaa hh:mm.

et dans mon cas dans le rngDebut est toujours vide (nothing)

merci de votre aide.
 
Re : trouver un début de date fonction Find

Bonjour charlou,

regarde l'exemple ci-dessous, il faut peut être rechercher la propriété "text" de la cellule :

Code:
Dim x As Range
Set x = Range("A:A").Find(Range("B1").[COLOR="Red"][B]Text[/B][/COLOR], , xlValues, xlPart, , , False)

bonne journée
@+
 
Re : trouver un début de date fonction Find

c'est Résolu ma variable heure était en string et c'est en date qu'il faut la déclarer!
dim heure as Date
merci de ton aide qd même 😉
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
2
Affichages
411
Réponses
5
Affichages
913
  • Question Question
XL 2021 VBA excel
Réponses
4
Affichages
452
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…