RECHERCHE CELL FIND

Question

Bonjour,

tout le monde !!! c'est encore moi !!  :)))
voilà j'ai fait une petite macro pour excel dans un fichier "light"
et ensuite la réintroduire dans le fichier de base ( plus lourd )

voilà mon petit probleme : dans mon code j'ai une petite fonction quie me permet de chercher une valeur par rapport à
à une zone de références ZR ( ZR qui est en commun dans mes 2 feuilles excel )
mais il peut arrivé dans certaine circonstances que mon ZR soit "vide"
ou que la valeur rechercher ne soit pas trouvé
dans ce cas là ma macro plante
je voudrais trouvé un moyen sous system de controle d'éviter ces erreurs
pouvez vous m'aider !!

merciiiiiii

voici mon code



 ZR = Worksheets("Charges techniciens").Cells(I, 11).Value
        ZR = Left(zr3, 2) ' permet de récupérer les 2 premiers caractére d'une cellule 
       
'recherche designation Tache
       Windows("Données .xls").Activate
       Worksheets("Feuill1").Activate
       Cells.Find(what:=ZR, After:=ActiveCell, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False).Activate
       designtache = ActiveCell.Offset(0, 1).Value
       Windows("Suivil.xls").Activate
       Worksheets("Feuill1").Cells(I, 22).Value = designtache

noobduvb · Answer

petit up ^^
merci

noobduvb · Answer

pas de brave personne pour m'aider ?
xD

noobduvb · Answer

sa séche didonc :)
j'ai entendu parlé du " set celluletrouvée=Cells.Find(what:=ZR ...
mais le probleme c'est que la cellule que je veus est à coté d'ou mon offset dans ma formule


quelqu'n pourrais m'aider ?

merciiiiiiiiiii

noobduvb · Answer

!!

noobduvb · Answer

re bonjours !
 juste passais pour vous dire que j'ai essayé avec 

Found = Cells.Find(what:=zr2, After:=ActiveCell, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False).Activate
        Do While Found = False
        GoTo Suivant 'Saute ma recherche avec ZR2
        Loop

mais lorsque mon found est false je plante a ma 1er ligne donc je passe pas par mon do while

et jai essayé aussi avec un 

On Error GoTo continue
*
*code 
*

continue:
If Err.Number = 91 Then
  GoTo Saute
End If

mais j'ai toujours dans c'est 2 cas un probleme

si quelqun peut m'aidé je suis là
merci

RECHERCHE CELL FIND

5 réponses

Discussions similaires

Newsletters