Find vba

Résolu

happy4u -

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

Afficher la suite

A voir également

Find vba
Find and mount - Télécharger - Récupération de données
Ava find - Télécharger - Divers Utilitaires
Oppo find n2 flip - Accueil - Guide téléphones
Easy find - Télécharger - Divers Utilitaires
Find junk files - Télécharger - Nettoyage

2 réponses

Réponse 1 / 2
eriiic Contributeur
Bonjour,
```
If Not x Is Nothing Then
    x.Offset(2).Resize(3).Copy
    ' suite...
End If
```
eric
0
1. happy4u Auteur
  
  Bonjour , merci pour ta réponse eriiic. Qu'est ce qu'il fait Offset et Resize stp? merci
  
  0
2. eriiic Contributeur
  
  Bonjour,
  
  faire F1 dessus pour avoir l'aide qui est très bien faite.
  eric
  
  0
3. happy4u Auteur
  
  Merci ;)
  
  0
Réponse 2 / 2
michel_m Contributeur
Bonjour
je souhaite alors copier les valeurs des cellules K8, K9, K10
OK, mais pour les copier où ?

0
1. happy4u Auteur
  
  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

Find vba

2 réponses

Discussions similaires

Newsletters