Find vba

Résolu

happy4u Messages postés 39 Date d'inscription Statut Membre Dernière intervention -
happy4u Messages postés 39 Date d'inscription Statut Membre Dernière intervention - 18 janv. 2017 à 18:25

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:

Find vba
Find and mount - Télécharger - Récupération de données
Ava find - Télécharger - Divers Utilitaires
Excel compter cellule couleur sans vba - Guide
Fonction find vba ✓ - Forum Excel
Fonction Find vba ✓ - Forum Excel

2 réponses

Réponse 1 / 2

eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention 7 275

Bonjour,

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

eric

happy4u Messages postés 39 Date d'inscription Statut Membre Dernière intervention

Bonjour , merci pour ta réponse eriiic. Qu'est ce qu'il fait Offset et Resize stp? merci

eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention 7 275

Bonjour,

faire F1 dessus pour avoir l'aide qui est très bien faite.
eric

happy4u Messages postés 39 Date d'inscription Statut Membre Dernière intervention

Merci ;)

Réponse 2 / 2

michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention 3 314

Bonjour
je souhaite alors copier les valeurs des cellules K8, K9, K10
OK, mais pour les copier où ?

happy4u Messages postés 39 Date d'inscription Statut Membre Dernière intervention

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 :)

Discussions similaires

Méthode find dans VBA - Recherche de données sous Excel

"L'indice n'appartient à la sélection" + VBA

Erreur d'exécution 13 Incompatibilité de type

linux : find & grep

appliquer une pause dans une macro vba excel

Votre réponse

Discussions similaires