erreur d'exécution 91 variable objet ou variable de bloc with non définie

Version imprimable

01/04/2016, 13h10
ramo123469

3 pièce(s) jointe(s)

erreur d'exécution 91 variable objet ou variable de bloc with non définie

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:

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 aidePièce jointe 205580 Pièce jointe 205581 Pièce jointe 205582
01/04/2016, 13h21
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, …
01/04/2016, 13h39
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 ?

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:

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

01/04/2016, 14h08
ramo123469

1 pièce(s) jointe(s)

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 Pièce jointe 205589
01/04/2016, 14h15
cerede2000

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

Code:

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)
01/04/2016, 14h38
ramo123469

2 pièce(s) jointe(s)

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

Pièce jointe 205593 Pièce jointe 205594
01/04/2016, 14h46
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....
01/04/2016, 14h52
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:

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.
01/04/2016, 14h55
ramo123469

Citation:

Envoyé par 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....

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