recherche sur reference complete

[FREDPLONGEUR]

Bonjour FORUM et PierreJean

PierreJean ma bien aidé sur cette macro et l'en remercie
il y a toutefois un problême qui m'a l'air récurrent à EXCEL

Quand je recherche le contenu d'une cellule de référence dans un autre fichier
la recherche ne fait pas la dissociation entre une référence et une partie de d'une référence
exemple
reference recherchée SU 485 résultat => TSFACI094
reference recherchée SU 485-8 résultat => TSFACI094

Hors la recherche doit respecter le contenu de la cellule dans son intégralité
Ci-joint fichier regarder la ligne 4 est fausse

 

[Pierrot93]

Re : recherche sur reference complete

Bonjour Fred

pour rechercher la totalité, modifies la ligne de code ci dessous :

   Set c = Cells.Find(What:=Var.Value, After:=ActiveCell, LookIn:=xlFormulas, lookat:= _
        [B][COLOR="Red"]xlWhole[/COLOR][/B], SearchOrder:=xlByRows, SearchDirection:=xlNext)

bonne fin d'après midi.
@+

 

[FREDPLONGEUR]

Re : recherche sur reference complete

Bonjour PIERROT
et merci pour ta réponse
mais du coup il ne me trouve plus rien alors qu'il aurrait du en trouver
au moins 1, le "SU 485-8"
Sub test()
'
' test Macro
' Macro enregistrée le 04/12/2007 par Frédéric MARTIN
'
Dim Var As Range
Sheets("CONTROLE D'ACCES").Select
Range("A2").Select
Set Var = ActiveCell
Do While Var.Value <> "zzz"
Sheets("Feuil1").Select
Set c = Cells.Find(What:=Var.Value, After:=ActiveCell, LookIn:=xlFormulas, lookat:= _
xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext)
If Not c Is Nothing Then
Var.Offset(0, 1) = c.Offset(0, 1)
End If
Set Var = Var.Offset(1, 0)
Loop
End Sub

 

[Pierrot93]

Re : recherche sur reference complete

bonsoir,

a priori c'est normal puisque ta cellule est égale à "SU 485-8 ", en plus du texte il y a un certain nombre d'espaces.... pas top pour rechercher la valeur exacte...

bonne soirée
@+

 

[Pierrot93]

Re : recherche sur reference complete

Re

une solution avec une boucle qui supprime les espaces non significatifs :

Sub test()
Dim Var As Range
With Sheets("Feuil1")
    For Each Var In .Range("A1:A" & .Range("A65536").End(xlUp).Row)
        Var.Value = Trim(Var.Value)
    Next Var
    Set Var = Sheets("CONTROLE D'ACCES").Range("A2")
    Do While Var.Value <> "zzz"
        Set c = .Cells.Find(What:=Var.Value, LookIn:=xlFormulas, lookat:= _
            xlWhole, SearchOrder:=xlByRows)
        If Not c Is Nothing Then
            Var.Offset(0, 1) = c.Offset(0, 1)
        End If
        Set Var = Var.Offset(1, 0)
    Loop
End With
End Sub

a voir si cela peut t'aider.

bonne soirée
@+

edition : avec un bloc "with" ce sera mieux....

 

[FREDPLONGEUR]

Re : recherche sur reference complete

Merci beaucoup Pierrot
j'ai essayé, c'est super cela va m'aider énormément
Application : rapprochement de tarif
but : gain de temps

Merci encore et au Forum