[VBA] Problème avec .FIND

[sly.d]

Bonjour à tous,

J'ai un problème, je fait une recherche par rapport a des noms, mon programme fonctionne tres bien,
mais lorsque les noms se ressemble alors ma recherche ne me donne pas le bon résultat.
Alors je me suis dit pourquoi faire une rechercheV à la place, mais ca ne fonctionne pas,
si je met Faux j'ai des NA, si je met Vrai mes résultats sont décalés.

Voici mon code :

Sub teshjkt()
Application.ScreenUpdating = False

Sheets("Nom").Activate

Dim i As String


Dim rng As Range

i = 2

Sheets("Nom").Activate
Sheets("Nom").Cells(i, 1).Select


Do While Sheets("Nom").Cells(i, 1) <> ""

Sheets("Nom").Activate
Sheets("Nom").Cells(i, 1).Select
Selection.Copy


Sheets("Synthèse").Activate


Set rng = Sheets("Synthèse").Cells.Find(what:=Sheets("Nom").Cells(i, 1), After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False)

If Not rng Is Nothing Then rng.EntireRow.Copy Else Sheets("Nom").Cells(i, 1).Copy


Sheets("Resultat").Activate
Sheets("Resultat").Cells(i, 1).Select
ActiveSheet.Paste
Application.CutCopyMode = False
i = i + 1

Selection.Offset(1, 0).Select

Loop

Application.ScreenUpdating = True

End Sub

Merci d'avance pour votre aide,
Sly-D

 

[Compte Supprimé 979]

Re : [VBA] Problème avec .FIND

Salut Sly-D

Sans regarder ton fichier, je pense que ton problème se situe ici

LookAt:=xlPart

Utilise : XlWhole

A+

 

[sly.d]

Re : [VBA] Problème avec .FIND

Merci, Malheuresement quand j'écris XlWhole à la place XlPart, il ne prend pas en compte tout mes noms et donc ça ne fonctionne pas

 

[Compte Supprimé 979]

Re : [VBA] Problème avec .FIND

Re,

Normal, tous tes noms sont suivis d'espaces !?

Utilises la fonction : =SUPPRESPACE(Cellule)

A+

 

[sly.d]

Re : [VBA] Problème avec .FIND

Je viens d'utiliser la fonction supprespace et ca ne marche pas

 

[sly.d]

Re : [VBA] Problème avec .FIND

C'est bon ca marche.
Il y a du avoir un bug.

Merci beaucoup

 

[sly.d]

Re : [VBA] Problème avec .FIND

En faite ca fonctionne une fois sur 2 ^^
Je vais essayer de découvrir pourquoi

 

[Compte Supprimé 979]

Re : [VBA] Problème avec .FIND

Re,

Voici le code un peu optimisé

Sub TestFind()
  Dim Lig As Long
  Dim rng As Range
  
  Application.ScreenUpdating = False
  Lig = 2
  Sheets("Resultat").Activate
  Do While Sheets("Nom").Cells(Lig, 1) <> ""
    On Error GoTo Suite
    Set rng = Sheets("Synthèse").Cells.Find(what:=Sheets("Nom").Cells(Lig, 1), LookIn:=xlValues, LookAt:=xlWhole, _
                                            SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False)


    If Not rng Is Nothing Then rng.EntireRow.Copy Else Sheets("Nom").Cells(Lig, 1).Copy
    Sheets("Resultat").Cells(Lig, 1).Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
Suite:
    Lig = Lig + 1
    Selection.Offset(1, 0).Select
  Loop
  Application.ScreenUpdating = True
End Sub

A+

 

[sly.d]

Re : [VBA] Problème avec .FIND

Merci beaucoup, je suis débutante, je comprend de mieux en mieux mais c'est pas tout le temps facile
le On Error GoTo Suite sert à ne pas avoir de message d'erreur ?

 

[Compte Supprimé 979]

Re : [VBA] Problème avec .FIND

Re,

C'est tout à fait ça ... continue tu es sur la bonne voie

A+

 

[sly.d]

Re : [VBA] Problème avec .FIND

Merci beaucoup pour ton aide

 

[sly.d]

Re : [VBA] Problème avec .FIND

Bonjour,
Excuse moi de te "re déranger".

Je suis en train de faire un macro avec une rechercheV mais certains noms n'existe pas donc sur excel j'ai des NA,
mais en macro j'ai une erreur donc jme ss rappeler d'utiliser On Error GoTo Suite.
Le problème c'est que j'ai 2 noms qui n'existe pas et donc j'ai quand même une erreur ...

Merci d'avance.

 

[sly.d]

Re : [VBA] Problème avec .FIND

Comme d'habitude je pose mes questions trop vite.
J'ai trouvé j'utilise On Error Resume Next