Discussion :

[ramo123469]

Bonjour à tous,

j'ai un bug que je n'arrive pas à résoudre : erreur d'exécution 91 variable objet ou variable de bloc with non définie

le code de la ligne ou ca bug est :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

strAdrDateEnvoiRelance = Range("C1:C100").Find(DateSerial(Mid(strAyJourOuvréMois(i), 7, 4), Mid(strAyJourOuvréMois(i), 4, 2), Mid(strAyJourOuvréMois(i), 1, 2)), Range("C1")).Address(False, False)

la variable a la valeur suivante : strAyJourOuvréMois(i)=01/04/2016

Le code VBA se déclenche quand je sélectionne la feuille ((Solde mensuel 2016) du classeur (Palettes europe BMF 2016). Il va copier toutes les cellules adacentes aux valeurs en dessous de -100 puis les colle sur une autre feuille d'un autre classeur, en mettant à coté les jours ouvrédu mois. Par al suite je veux afficher un msgbox dans le cas ou la date du jour est égal à une date parmis les dates des jours ouvrés créés dans la nouvelle feuille.

Et c'est cette dernière étape ou j'ai le bug. il me renvoie une valeur vide alors que la valeur existe bel et bien dans le tableau créé. j'ai pas mal chercher sur les forums pour résoudre ca, mais je n'arrive toujours pas à trouver la source de mon erreur. J'ai essayer al meme synthaxe pour ma fonction FIND sur une autre feuille et ca avait marché.

Quelqu'un voit il la source de mon erreur?
Je vous remercie pour votre aidePalettes Europe BMF - 2016.xlsmSUIVI Tableau relance mensuel transporteurs.xlsx

[Marc-L]

Bonjour, bonjour !

Si la méthode Find ne trouve rien, forcément tel quel ce code déclenche une erreur !

Mieux vaut utiliser cette méthode comme dans l'exemple de l'aide VBA interne (ou sur le site MSDN)
et en profiter pour lire ses paramètres ! Sans compter l'Enregistreur de macros …

Voilà, voilà !

______________________________________________________________________________________________________
Je suis Paris, Charlie, Bruxelles, …

[ramo123469]

Salut Marc-L,

Je te remrecie pour ta réactivité.
Il se trouve que j'ai essayé avec Find(what:=......., lookin:=.....) et ca n'a rien donné non plus. J'ai aussi essayé la meme méthode de Find avec d'autes données et sur d'auters feuilles et ca fonctionnait très bien jusque la.

As tu une idée de comment je pourrais écrire FIND afin que ca marche ?

[cerede2000]

Ce qu'indique Marc-L est que forcément sur le Find ne trouve pas, alors tu ne peux pas obtenir son adresse....
Donc :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim rgn As Range
Set rgn = Range("C1:C100").Find(DateSerial(Mid(strAyJourOuvréMois(i), 7, 4), Mid(strAyJourOuvréMois(i), 4, 2), Mid(strAyJourOuvréMois(i), 1, 2)), Range("C1"))
If Not rgn Is Nothing Then
	strAdrDateEnvoiRelance = rgn.Address(False, False)
End If

[ramo123469]

Bonjour cerede2000,

Oui, et en réalité c'est bien là mon problème. je ne comprends pas pourquoi il ne trouve pas alors que la valeur existe. j'ai meme ajouté les dateserial pour etre sur de comment va s'écrire la valeur.
j'ai dejà essayé avec un set rng mais même résultat. c.à. valeur non trouvé. je vous joins une photo pour vous rendre compte de la situation

[cerede2000]

Ah oui Find de date et en plus cellules fusionné une pur joie

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("C:C").Find(CDate(Mid(strAyJourOuvréMois(i), 7, 4) & "/" & Mid(strAyJourOuvréMois(i), 4, 2) & "/" & Mid(strAyJourOuvréMois(i), 1, 2)), LookAt:=xlWhole)

[ramo123469]

c'est vrai que c'est la première fois que j'utilise Find avec des cellules fusionnées, du coup je ne sais pas forcément s'il faut adopter une autre synthaxe, apparemment oui.
donc j'ai essayé ton code et......... ça ne marche pas non plus. Quand je l'essaie à part en remplacant la variable strAyJourOuvréMois(i) par 01/04/2016 ca me donne bien ce que je veux, quand je l'essaie dans mon prgramme avec strAyJourOuvréMois(i) qui contient 01/04/2016 ca ne marche pas lol

[cerede2000]

Met un classeur exemple avec donnée et code parce que les captures c'est bien mais pour tester faut tout repalucher à la main....

[ramo123469]

J'ai réessayé avec ça (en ajoutant le nom du fichier excel et de la feuille devant) et ca me trouve la valeur:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

a = Workbooks("SUIVI Tableau relance mensuel transporteurs.xlsx").Worksheets(MonthName(strMoisNow)).Range("C:C").Find(CDate(Mid(strAyJourOuvréMois(i), 7, 4) & "/" & Mid(strAyJourOuvréMois(i), 4, 2) & "/" & Mid(strAyJourOuvréMois(i), 1, 2)), LookAt:=xlWhole)

Donc à priori je me serais trompé sur le chemin et je cherchais dans une autre feuille. Donc je vais travailler avec ça et je ferais une petite mise à jour dans le cas ou ça marche complétement comme je le souhaite ou dans le cas ou je rencontre d'autres problèmes.

[ramo123469]

Met un classeur exemple avec donnée et code parce que les captures c'est bien mais pour tester faut tout repalucher à la main....

j'ai déjà mis les deux classeurs en pièce jointe dans le premier post