Find " erreur d'exectution "91"

C

chico

Guest

• 16 Décembre 2005

• #16

[file name=essaifonction_Find.zip size=10994]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/essaifonction_Find.zip[/file]

 

Pièces jointes

• essaifonction_Find.zip

  10.7 KB · Affichages: 11

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 16 Décembre 2005

• #17

Bonjour

C'est le format qui gène

J'ai l'impression que tu ne pourras pas le faire avec un Find. Tu seras obligé de passer par une boucle.

 

Vote positif 0 Vote négatif

C

chico,

Guest

• 16 Décembre 2005

• #18

bonjour Mister Pascal,

si tu regarde la Feuil2
il y a 2 colonne de date, une sans mise en forme
et l'autre avec mise en forme
et ca marche avec les 2 colonnes,
mais dans la Base_Personnel la colonne B marche pas, et je vois pas une different pour dire que c ca qui empeche find de s'executer.

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 16 Décembre 2005

• #19

re

excuse moi mais moi dans la feuille 2 dans les 2 colonnes je n'ai pas de mise en forme

SI je mets une mise en forme dans la colonne B le find me plante aussi

 

Vote positif 0 Vote négatif

C

chico

Guest

• 16 Décembre 2005

• #20

re pascal,

je voulais dire mise en forme conditionnel:

dans feuil2 colonne B il y a des mise en forme conditionnel et ca marche.

de quel mise en fome tu parle alors?

(je perd pas espoire, je vais finir par comprendre pourkoi ca merche pas, oui je sais je suis tetu, mais j'aime pas abandonner comme ca :S

 

Vote positif 0 Vote négatif

C

chico

Guest

• 16 Décembre 2005

• #21

je pense que tu parle du format de cellule,

g essayé et effectivement si le format de la date dans la cellule n'est pas la meme que le format de la recherche, Find bloque.
zut alors, il va faloir que je trouve une autre solution pour chercher la ligne de la date cherché.
et faire une boucle g peur que ca soit un peu lourd parce que dans la colonne B les dates vont du 1er janvier a 31 decembre de plus, il y a plusieurs date a chercher par operation.

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 16 Décembre 2005

• #22

Salut Chico
bonjour le Fil
bonjour le Forum

le problème viens de la mise en forme de tes Dates et non de la mise en forme conditionnelle
si tu déclare ta Variable ValAChercher comme Date tu as lors de la recherche en colonne 2 une erreur
car tu as alors un format personnel qui devient un String (Lol Salut André)
le Format VBA de ddd/dd/mm/yyyy donne ex 01/01/2006 dim.01/01/2006 et non dim/01/01/2006
donc on ne peut utiliser la même Macro pour les deux Colonnes Voilà ce que j'ai cru Comprendre
as tu besoin de rechercher ces deux Format dans la même feuille???
je vais continué a chercher Lol
Bonne Journée

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 16 Décembre 2005

• #23

Re:Find \" erreur d'exectution \"91\"

Re

voilà ce que j'ai réussi à Bidouiller Lol Arfffff

en pièce Jointe le Fichier

bonne fin de Journée [file name=essaifonction_FindV2.zip size=14229]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/essaifonction_FindV2.zip[/file]

Message édité par: Chti160, à: 16/12/2005 15:18

 

Pièces jointes

• essaifonction_FindV2.zip

  13.9 KB · Affichages: 10

Vote positif 0 Vote négatif

B

Bricofire

Guest

• 16 Décembre 2005

• #24

Bojour à tous, 🙂 ,Chico

J'avais eu un pb du genre lourd à gérer en faisant des pirouettes, je l'avais résolu en séparant le jour de la date dans une colonne contigue et en exploitant weekday et weekdayname. Je concaténais les val des 2 colonnes quand j'avais besoin du texte en un seul morceau (bte dialogue etc...).

Sinon tu peux couper ta recherche en deux ou mettre un filtre qui selon la colonne activera ValAChercher 1 ou 2 .
ceci fonctionnant :


Sub essaichercher2()
ValAChercher2 = Sheets('date_a_chercher').Range('B8').Text
With Worksheets('Base_Personnel').Range('B4:B34')
i = .Find(what:=ValAChercher2, LookIn:=xlValues).Row
End With
MsgBox i
End Sub

Sub essaichercher()
ValAChercher = Sheets('date_a_chercher').Range('B8')
With Worksheets('Base_Personnel').Range('A4:A34')
i = .Find(what:=ValAChercher, LookIn:=xlValues).Row
End With
MsgBox i
End Sub


Bonne journée à tous,

Bfr

 

Vote positif 0 Vote négatif

Bricofire

XLDnaute Impliqué

• 16 Décembre 2005

• #25

Re
un -test-, ce que je craignais est arrivé, je perd mon id...

Bfr

 

Vote positif 0 Vote négatif

C

Chico

Guest

• 16 Décembre 2005

• #26

bonjour a tous,
désolé j'etais pas devant mon pc durant une bonne moitié de la journée.
alors g résolu le prob en disant a la colonne A = a la conne B
mais la colonne A n'a pas de format de date:
exemple:
B8 = dim 01.01.2006 ( jjj jj/mm/aaa)
A8 = B8 (sans format de date)

donc je fais la fonction FIND sur la colonne A
il me reste plus qu'a cacher la colonne A 🙂

voila
merci a tous
-Chico-

 

Vote positif 0 Vote négatif