Contenu récent par Estysh

Salut! Pour la vérification, tu peux essayer: Dim cel as Range Dim iRow as integer iRow = sheets("nomdelafeuille").Range("J"&rows. Count).End(xlup).row For each cel in sheets("nomdelafeuille").range("J2:J" & iRow) It cel.value = Dateadd("d", -4, Date) then ...

Bonjour à tous! Je reviens avec un nouveau problème. J'ai un fichier contenant plusieurs macro qui fonctionnaient très sur xl 2007, quand je vais sur xl 2010 j'ai des erreurs (Erreur d'exécution 40036: erreur définie par l'application où l'objet. Private Sub UserForm_Initialize()...

Oui j'ai fait. Et j'ai fait la modification pour toutes mes combobox. Maintenant ça marche. Merci infiniment.

Ok. J'essaye. J'ai l'impression que ça bug car le fichier est lourd, votre solution me permettra l'alleger.

Frmreçu

Une idée de ce que ça peut vouloir dire?

Je modifie le fichier Je modifie le fichier tout à l'heure et je le renvoie.

Oui c'est ça, désolée. Ça me donne une erreur. Je suis déboussolée. Excusez moi, je ne comprends vraiment pas ce qui ce passe. Après cette erreur d'automation, tous les combobox sont inaccessibles.

Cbonomclient.list = Nom_Client. Value

Oui, j'ai testé mais ça me donne une erreur OBJET REQUIS.

Je ne sais vraiment pas quelles macros posé problème. Tout fonctionnait très bien jusqu'à un moment.

Le mot de passe c'est estelle

Ça bug à la ligne Frm.show À l'initialisation du formulaire, il y'a Txtdate.value = format(date, "dd.mm.yyy"

La zone nommée de mon fichier c'est Nom_Client Quand je redémarre la machine, ça fonctionne la première fois. L'erreur c'est la deuxième fois que je veux générer un reçu j'arrive à accéder à aucun combobox (ils sont tous vides) J'ai joint l'original mais sans les données.

Lorsque je fais ça, j'ai en erreur objet requis.