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
A voir également:

1 réponse

ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   2 433
 

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
Fulista
 

Top,

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

0