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

A voir également:

Find vba
Partition find and mount - Télécharger - Récupération de données
Excel compter cellule couleur sans vba - Guide
Vba attendre 1 seconde ✓ - Forum VB / VBA
Ava find - Télécharger - Divers Utilitaires
Mkdir vba ✓ - Forum VB / VBA

2 réponses

Réponse 1 / 2

eriiic Messages postés 24603 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 15 décembre 2024 7 258
17 janv. 2017 à 18:41

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

eriiic Messages postés 24603 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 15 décembre 2024 7 258
18 janv. 2017 à 14:39

Bonjour,

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

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

Réponse 2 / 2

michel_m Messages postés 16602 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 313
18 janv. 2017 à 16:21

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

Discussions similaires

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

Document initial créé par Pijaku

Cette fiche pratique est essentiellement tirée de l'aide Excel. L'exemple d'utilisation est un conseil basé sur ma propre petite expérience.

Introduction Méthode via Excel Code VBA correspondant Syntaxe Valeur renvoyée A savoir Exemple d'utilisation Recherche multiple FindNext - FindPrevious Une variante : Find_Next FindAll

Introduction La méthode find permet de trouver la première occurrence d'une information spécifique, dans un range. En clair, cette méthode permet d'aller chercher dans une feuille ou une partie d'une feuille Excel, une information, une donnée ou une partie de cette donnée. ...

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

Bonjour,
Nous avons un problème dans la programmation de notre VBA. Voici notre programme:

Sub Bloucle1Bull()
Dim a, k As Integer

k = 2
Do While Worksheets("formulaire").Cells(2, 2) Worksheets("formulaire").Cells(k, 4)
k = k + 1
Loop

a = 2
Do While Worksheets("formulaire").Cells(k + 1, 4) Worksheets("BDD Call").Cells(a, 1) Or (Worksheets("BDD Call").Cells(a, 4) = (Worksheets("Bullspread").Cells(2, 3) + 100)) Or Worksheets("BDD Call").Cells(a, 7) Worksheets("bullspread").Cells(2, 7)
a = a + 1
Loop

''''''''''''on recopie la ligne du premier call trouvé pour le jour 2 ...

Erreur d'exécution 13 Incompatibilité de type

Bonjour,

Je ne comprend pas pourquoi j'ai une erreur d'execution 13 : incompatibilité de type car mon code marchait très bien avant...Je met en gras la ligne où il y a l'erreur

'affichage des feuilles concernées et vérification des champs Sheets("Recap").Visible = True If Cathégories = "" Then MsgBox "Sélectionnez une catégorie de défauts dans la liste déroulante" ElseIf défauts = "" Then MsgBox "Sélectionnez un défauts qualité dans la liste déroulante" Exit Sub End If Dim i As Integer Dim n As Integer n = 3 i = 2 MsgBox "Veuillez patienter pendant le traitement..." Application.Cursor = xlWait 'affiche le sablier 'Suppression des don...

linux : find & grep

Bonjour,

il faut a la question suivante en utilisant grep et find :
affichier les noms de fichiers qui contient le mot "premier" a partir de votre dossier "home"

j'aii essayé avec : find ~ -name * -print -exec grep "premier"

mais j'arrive que a afficher les lignes ... comment faire pour afficher le nom de fichier ?

ouverture d'un fichier excel à partir d'un code VBA

Bonjour,

je souhaite ouvrir un fichier excel à partir du code suivant:

Sub Ouvrir()
Workbooks.Open Filename:="C:\Documents and Settings\Administrateur\Bureau\TRADING\Action.xlsx"
End Sub

sauf que lors de l'exécution j'ai cette erreur
==> Instruction incorrecte à l'extérieur d'une procédure et il met en bleu cette partie :
C:\Documents and Settings\Administrateur\Bureau\TRADING\Action.xlsx

merci