Macro excel fonction Cells.Find

Résolu/Fermé
Fulista - Modifié le 11 avril 2023 à 10:54
 Fulista - 11 avril 2023 à 10:40

Bonjour, dans le but d'automatiser du traitement de données je cherche à écrire une macro capable de trouver la valeur 0,1 (au format nombre) dans la colonne A. En gros si la valeur 0,1 se trouve dans la cellule A34, je veux copier la cellule C34 dans une autre cellule (par exemple T28 dans le programme ci-dessous). J'ai commencé à écrire ce programme qui a fonctionné une journée mais plus maintenant... Si vous avez des indications pour régler mon problème je suis preneur !

Merci d'avance :) 

Sub test()
    Dim Trouve As Range
    Dim PlageDeRecherche As Range
    Dim DCR_dch As Double
    
    DCR_dch = 0.1 'Durée de la DCR
    
    'Recherche des valeurs
    Set PlageDeRecherche = ActiveSheet.Columns(1) 'Première colonne de la feuille active
    Set Trouve = PlageDeRecherche.Cells.Find(what:=DRC_dch, LookAt:=xlPart)
    
    'Range("T28") = Trouve.Offset(0, 2).Value   
     
End Sub
A voir également:

1 réponse

ccm81 Messages postés 10903 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 19 novembre 2024 2 426
Modifié le 7 avril 2023 à 16:04

Bonjoiur

Pb avec ta variable DCR_dch qui change de nom dans Find ...

  Set Trouve = PlageDeRecherche.Find ... devrait suffire

Mets la directive Option Explicit en début de module, ça te permetrra de détecter ce genre d'erreur

Cdlmnt

1

Top,

Merci beaucoup pour le coup de main et l'astuce !

0