[VBA] Problème avec .FIND

C

Compte Supprimé 979

Guest

• 14 Juin 2012

• #2

Re : [VBA] Problème avec .FIND

Salut Sly-D

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

Code:

LookAt:=xlPart

Utilise : XlWhole

A+

 

Vote positif 0 Vote négatif

S

sly.d

XLDnaute Nouveau

• 14 Juin 2012

• #3

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

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 14 Juin 2012

• #4

Re : [VBA] Problème avec .FIND

Re,

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

Utilises la fonction : =SUPPRESPACE(Cellule)

A+

 

Vote positif 0 Vote négatif

S

sly.d

XLDnaute Nouveau

• 14 Juin 2012

• #5

Re : [VBA] Problème avec .FIND

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

 

Vote positif 0 Vote négatif

S

sly.d

XLDnaute Nouveau

• 14 Juin 2012

• #6

Re : [VBA] Problème avec .FIND

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

Merci beaucoup

 

Vote positif 0 Vote négatif

S

sly.d

XLDnaute Nouveau

• 14 Juin 2012

• #7

Re : [VBA] Problème avec .FIND

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

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 14 Juin 2012

• #8

Re : [VBA] Problème avec .FIND

Re,

Voici le code un peu optimisé

Code:

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+

 

Vote positif 0 Vote négatif

S

sly.d

XLDnaute Nouveau

• 14 Juin 2012

• #9

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 ?

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 14 Juin 2012

• #10

Re : [VBA] Problème avec .FIND

Re,

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

A+

 

Vote positif 0 Vote négatif

S

sly.d

XLDnaute Nouveau

• 14 Juin 2012

• #11

Re : [VBA] Problème avec .FIND

Merci beaucoup pour ton aide

 

Vote positif 0 Vote négatif

S

sly.d

XLDnaute Nouveau

• 15 Juin 2012

• #12

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.

 

Vote positif 0 Vote négatif

S

sly.d

XLDnaute Nouveau

• 15 Juin 2012

• #13

Re : [VBA] Problème avec .FIND

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

 

Vote positif 0 Vote négatif