XL 2016 VBA projet ou bibliothèque introuvable

[pat33bordeaux]

Bonjour,
Je rencontre un problème VBA projet ou bibliothèque introuvable.
lorsque je souhaite créer une FICHE RECETTE depuis le bouton " Créer fiche recette " dans USEFORM 3 j'obtiens systématiquement ce message :

Si une personne pouvez me venir en aide et résoudre ce problème car le VBA pour moi c'est un peu comme du chinois.
Merci à vous.
Voici le fichier à télécharger
https://mega.nz/file/oskzHLSS#UjLH0TRKu1G3hdCu15_2Bzb99aGUtD8-_zeacVfS87Q

 

[pat33bordeaux]

Bonjour le Fil
peut-être en modifiant la définition de la plage [A1] en Range("A1") ou Cells(1 ,1) Lol
il est même recommandé d'éviter les Select (que ce soit de feuille ou Cellule)
Bonne journée
Jean marie

Modifier la définition de la plage [A1] en Range("A1") ou Cells(1 ,1)
c'est de l'extra terrestre pour moi !
bonne journée.

 

[ChTi160]

Re

c'est de l'extra terrestre pour moi !

Mais je le parle pas non plus ! Lol
Sur l'image du post #1
Tu as [A1 ].Select ce qui semble être le problème qui cause le message .
Cela veut dire Sélectionner la Cellule "A1"
Je propose de remplacer cela par ce que j'ai proposé plus haut.
Soit : Range("A1").Select
Bonne continuation
Jean marie

 

[pat33bordeaux]

Re

Mais je le parle pas non plus ! Lol
Sur l'image du post #1
Tu as [A1 ].Select ce qui semble être le problème qui cause le message .
Cela veut dire Sélectionner la Cellule "A1"
Je propose de remplacer cela par ce que j'ai proposé plus haut.
Soit : Range("A1").Select
Bonne continuation
Jean marie

Range("A1").Select : fonctionne très bien !
Merci
problème résolu
Bonne journée.

 

[ChTi160]

Super !
Bonne continuation .
N'hésite pas si besoin.
Jean marie

 

[pat33bordeaux]

Super !
Bonne continuation .
N'hésite pas si besoin.
Jean marie

merci.
Quelques soucis avec certaines recettes quand je la sélectionne dans USEFORM3
J'obtiens ce message d'erreur

 

[ChTi160]

Re
Je te mets un Lien vers une discussion qui parle de ce Problème qui est dû à la même chose que la précédente !
Le Lien Ici :
il te faut essayer d'ajouter
Ex pour Ucase(TextBox15)

VBA.Ucase(TextBox15)

Bonne fin de Soirée
Je te rappelle que nous n'avoir pas ce Userform3 Lol (seul le Userform2 est Présent dans le Fichier que tu as joint)
Tu n'as toujours rien dans "Outils/Références"
Jean marie

 

[pat33bordeaux]

Re
Je te mets un Lien vers une discussion qui parle de ce Problème qui est dû à la même chose que la précédente !
Le Lien Ici :
il te faut essayer d'ajouter
Ex pour Ucase(TextBox15)

VBA.Ucase(TextBox15)

Bonne fin de Soirée
Je te rappelle que nous n'avoir pas ce Userform3 Lol (seul le Userform2 est Présent dans le Fichier que tu as joint)
Tu n'as toujours rien dans "Outils/Références"
Jean marie

re,

merci pour le lien.
C'est bizarre le fait que vous n'ayez pas Userform3
non toujours rien dans "Outils/Références"
Bonne soirée

 

[ChTi160]

Re
dans le zip tu as mis un seul fichier excel ?(je n'est pas tout regardé Lol
as tu essaye ce que je t'ai proposé ?
Jean marie

 

[pat33bordeaux]

Re
dans le zip tu as mis un seul fichier excel ?(je n'est pas tout regardé Lol
as tu essaye ce que je t'ai proposé ?
Jean marie

re ChTi160

oui j'ai essayé ce que tu propose et ça fonctionne très bien
Dans le zip j'ai mis deux fichiers excel
Bonne soirée.

 

[ChTi160]

Re
c'est ok !
je n'ai pas ouvert le Bon Fichier (Mes recettes")
jean marie

 

[pat33bordeaux]

Re
c'est ok !
je n'ai pas ouvert le Bon Fichier (Mes recettes")
jean marie

oui c'est celui là

 

[ChTi160]

Re
Tu risques donc d'avoir le même problème , si tu Utilises la Fonction LCase() (mettre en Minuscule)
n'hésite pas si besoin!

Jean Marie