Find vba

Résolu
happy4u Messages postés 39 Statut Membre -  
happy4u Messages postés 39 Statut Membre -
Bonjour,

j 'ai une feuille excel qui contient des dates et des valeurs, et je souhaite chercher une date spécifique dans la feuille. Après avoir trouver la date recherchée je souhaite prendre les valeurs en dessous de cette date. par exemple si la date x est trouvé à l'endroit K6 , je souhaite alors copier les valeurs des cellules K8, K9, K10. J'ai réussi à faire un code qui return l'adresse de la date recherchée mais je sais pas comment faire pour la suite!
Merci de votre aide

Sub TestDate()
Dim VarDate As Date
VarDate = CDate("04/12/2016")
Set x = Sheets("Summary").Cells.Find(VarDate, , xlValues, xlWhole, , , False)
End Sub
A voir également:

2 réponses

eriiic Messages postés 25847 Statut Contributeur 7 279
 
Bonjour,

If Not x Is Nothing Then
    x.Offset(2).Resize(3).Copy
    ' suite...
End If

eric
0
happy4u Messages postés 39 Statut Membre
 
Bonjour , merci pour ta réponse eriiic. Qu'est ce qu'il fait Offset et Resize stp? merci
0
eriiic Messages postés 25847 Statut Contributeur 7 279
 
Bonjour,

faire F1 dessus pour avoir l'aide qui est très bien faite.
eric
0
happy4u Messages postés 39 Statut Membre
 
Merci ;)
0
michel_m Messages postés 18903 Statut Contributeur 3 317
 
Bonjour
je souhaite alors copier les valeurs des cellules K8, K9, K10
OK, mais pour les copier ?
0
happy4u Messages postés 39 Statut Membre
 
Bonjour,
Copier vers une autre feuille mais il me fallait l'astuce d'eriic pour copier les cases recherchées , avec offset ça marche bien!!
C'est résolu merci :)
0