Rapprochement de deux feuilles dans un classeur

Pierrot93

XLDnaute Barbatruc

• 25 Mars 2013

• #2

Re : Rapprochement de deux feuilles dans un classeur

Bonjour,

essaye peut être avec ceci :

Code:

        Set c = Sheets("NomFeuille").Columns(1).Find(What:=Var.Value, LookIn:=xlFormulas, LookAt:= _
            xlWhole, SearchOrder:=xlByRows)

Ensuite je souhaite décocher "Totalité du contenu de la cellule" dans la fonction recherche avec option
à la fin de la macro;

Cliquez pour agrandir...

remplace dans le code ci-dessus "xlWhole" par "xlPart"

bonne journée
@+

 

Vote positif 0 Vote négatif

F

FREDPLONGEUR

Guest

• 25 Mars 2013

• #3

Re : Rapprochement de deux feuilles dans un classeur

Merci beaucoup Pierrot

Ta réponse fonctionne super bien (merci beaucoup)

Concernant "xlPart" = OK mais pas dans le fonctionnement de la recherche
Quand j'ai fini avec la macro, et que j'utilise la fonction recherche hors macro
la case reste coché, il faudrait réinitialiser cette case à la fin de la macro

Merci d'avance

fred

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 25 Mars 2013

• #4

Re : Rapprochement de deux feuilles dans un classeur

Re,

lance une recherche à la fin de la procédure :

Code:

Set c = Sheets("NomFeuille").Columns(1).Find(What:="zzzz", LookIn:=xlFormulas, LookAt:= _
            xlPart, SearchOrder:=xlByRows)

mais bon..; à priori je ne vois pas trop l'intérêt...

 

Vote positif 0 Vote négatif

F

FREDPLONGEUR

Guest

• 25 Mars 2013

• #5

Re : Rapprochement de deux feuilles dans un classeur

super cela fonctionne, merci beaucoup Pierrot

En fait nous rapprochons des valeurs strictement similaires
après l'exécution de la macro la fonction recherche reste avec cette option
et il faut penser à la retirer, mes collaborateurs risquent d'oublier !

Merci beaucoup encore

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 25 Mars 2013

• #6

Re : Rapprochement de deux feuilles dans un classeur

Bonjour Fred, Pierrot

Pour le RAZ du find, tu peux tester un code de ce type fait avec l'enregistreur de macros.

Code:

Sub RAZ_Find()
On Error Resume Next
    Cells.Find(What:="zz", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False).Activate
End Sub

 

Vote positif 0 Vote négatif

F

FREDPLONGEUR

Guest

• 25 Mars 2013

• #7

Re : Rapprochement de deux feuilles dans un classeur

Merci beaucoup de votre aide

fred

 

Vote positif 0 Vote négatif