NNouveau venuNoctoInscrit le :07/11/2019Dernière activité :07/11/2019 à 16:22Messages2Votes0Fichiers0Téléchargements0SujetsMessagesStatistiquesVotes reçus Messages postés par NoctoDateAuteur du sujetSujetExtrait du message07/11/2019 à 14:59NoctoRecherche de date et affichageBon j'ai continué a bossé sur mon projet. Sub TestDate() Dim VarDate As Date Dim Feuille As Worksheet VarDate = CDate(InputBox("date")) For Each s In Array("Feuille 1",ect) With Sheets(s).Cells Set X = .Find(VarDate, , xlValues, xlWhole, , , False) If Not X Is Nothing Then MsgBox "X = " & X & Chr(13...07/11/2019 à 11:52NoctoRecherche de date et affichageJe debut en VBA, mais je m'attaque sur quelque chose de vraiment compliqué (pour moi) pour me facilité la vie sur un fichier excel. J'aimerai pouvoir rechercher une date dans un classeur avec plusieurs sheet. Et que si ca trouve la date cela m'affiche en message le nom du sheet et ce qu'il y a écrit...Forums