Macro excel fonction Cells.Find

Résolu
Fulista -  
 Fulista -

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

1 réponse

  1. ccm81 Messages postés 11033 Statut Membre 2 434
     

    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
    1. Fulista
       

      Top,

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

      0