Sujet Précédent Sujet Suivant

Find vba

Résolu/Fermé
happy4u Messages postés 39 Date d'inscription vendredi 28 octobre 2016 Statut Membre Dernière intervention 17 septembre 2017 - Modifié par happy4u le 17/01/2017 à 16:46
happy4u Messages postés 39 Date d'inscription vendredi 28 octobre 2016 Statut Membre Dernière intervention 17 septembre 2017 - 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

2 réponses

Réponse 1 / 2
eriiic Messages postés 24597 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 22 septembre 2024 7 235
17 janv. 2017 à 18:41
Bonjour, 

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

eric
0
happy4u Messages postés 39 Date d'inscription vendredi 28 octobre 2016 Statut Membre Dernière intervention 17 septembre 2017
Modifié par happy4u le 18/01/2017 à 14:36
Bonjour , merci pour ta réponse eriiic. Qu'est ce qu'il fait Offset et Resize stp? merci
0
eriiic Messages postés 24597 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 22 septembre 2024 7 235
18 janv. 2017 à 14:39
Bonjour,

faire F1 dessus pour avoir l'aide qui est très bien faite.
eric
0
happy4u Messages postés 39 Date d'inscription vendredi 28 octobre 2016 Statut Membre Dernière intervention 17 septembre 2017
18 janv. 2017 à 15:03
Merci ;)
0
Réponse 2 / 2
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 306
18 janv. 2017 à 16:21
Bonjour
je souhaite alors copier les valeurs des cellules K8, K9, K10
OK, mais pour les copier où ?
0
happy4u Messages postés 39 Date d'inscription vendredi 28 octobre 2016 Statut Membre Dernière intervention 17 septembre 2017
18 janv. 2017 à 18:25
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

Discussions similaires

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

0 réponse
"L'indice n'appartient à la sélection" + VBA
fleur.31 -
geosevda -

2 réponses
linux : find & grep
2009 -
Gavroche -

15 réponses
Erreur d'exécution 13 Incompatibilité de type
grace -
pijaku -

5 réponses
ouverture d'un fichier excel à partir d'un code VBA
TraderAS -
pijaku -

3 réponses