Mon code ne s'effectue pas tout le temps

Bonjour,
Eh ou vous déclenchez votre formulaire.... Pas de bouton de commande.... !

Bonjour,
En principe votre formulaire est prévu pour afficher une recette. Donc vous devriez avoir une liste déroulante pour choisir entre Entrée, Plat, Dessert et une deuxième qui affiche la liste de choix selon la première....Oui Non.... !

Oups petit oubli
je passais au formulaire par la fenêtre visual basic ^^

Bouton rajouté dans la feuille "Data"

https://www.cjoint.com/?0JflidGLn8n

Mes excuses

Cela serais peut être mieux en effet.

Je travaille la dessus

Merci Le Pingou

En effet c'est nettement mieux et bien plus visible au niveau du code.
Qui plus est, le code est générique pour le choix du menu.
Si cela peut aider voici le code:

Private Sub Choix_Menu_Click()
CB_Recette.RowSource = ""
If Choix_Menu.Value = "Entrée" Then
    CB_Recette.RowSource = "Entrée!A2:A" & Sheets("Entrée").Cells(1, 1).End(xlDown).Row
ElseIf Choix_Menu.Value = "Plat" Then
    CB_Recette.RowSource = "Plat!A2:A" & Sheets("Plat").Cells(1, 1).End(xlDown).Row
ElseIf Choix_Menu.Value = "Dessert" Then
    CB_Recette.RowSource = "Dessert!A2:A" & Sheets("Dessert").Cells(1, 1).End(xlDown).Row
End If
End Sub

Private Sub CB_Recette_Change()
Worksheets(Choix_Menu.Value).Activate
Dim a As Integer
Dim Fichier As String
    For a = 1 To 9999
        If CB_Recette.Value = Range("A" & a).Value Then
        TB_ingredient.Value = Range("E" & a).Value
        TB_Recette.Value = Range("F" & a).Value
        TB_Nombre.Value = Range("B" & a).Value
        TB_Preparation.Value = Range("C" & a).Value
        TB_Cuisson.Value = Range("D" & a).Value
    
        Fichier = "C:\Users\Cedric\Desktop\image\" & Range("A" & a).Value & ".jpg"
        'Vérifie si le fichier existe.
        If Dir(Fichier) <> "" Then
            'si le fichier existe, il est chargé pour visualisation.
            Image1.Picture = LoadPicture(Fichier)
            Else
            'Sinon, affiche aucune image.
            Image1.Picture = LoadPicture("")
        End If
        GoTo fin:
        End If
    Next
fin:
End Sub

Encore merci Le Pingou ;)

Bonjour,
Ma proposition : https://www.cjoint.com/?3JfoilmvHz1
J'espère dans le bon sens !

merci Le pingou, c'est parfait
Ton code à l'air plus "professionel" ^^

Bonjour,

Merci.
Je dois dire que j'ai réétudié votre code et moyennent quelques corrections cela marcherai aussi.

mon code marche bien mais je ne maitrise pas comme vous les verifications et les simplifications de code^^

j aurai juste une autre question si cela ne vous derange pas.

J aimerai créé un autre userform pour ajouter des recettes.
Ce serais un formulaire simple d'ajout.
Je devrais y arriver mais je ne sais pas comment inclure les images.

J'aimerai une solution pour importer une photo de recette du web et l enregistrer dans un dossier. Je ne sais pas si il existerai une solution et je ne sais pas par ou commencer.

Auriez vous une piste svp ?

Bonjour,
J'ai corrigé votre code dans le but que vous puissiez voir que tout marche aussi.
Je vous laisse découvrir les modifications.... !
Votre fichier : https://www.cjoint.com/?3JfsUVDzjM4
Concernant votre dernière demande je vous donne une réponse dans la soirée !
Question, les mêmes champs que le formulaire existant Oui/Non ?

Salutations.
Le Pingou

Je viens d'adapter votre code (j'ai juste changer les noms de combobox).
Tout est parfait

Je link le nouveau fichier avec le squelette du Userform d'enregistrement

https://www.cjoint.com/?3JftrfqXMlE

Merci pour votre aide et votre temps

Bonjour,
Merci, bon dimanche.
Réponse lundi !

Bonjour :)
Juste une autre question svp si vous suivez toujours ce fil.

Peut on afficher une image dans un userform à partir de son lien internet ?

Si c'est possible je pourrais juste me sauvegarder les liens et non les images et les appeler automatiquement dans un code vba.

Edit

J'ai trouver ce bout de code qui d'apres la personne marcherait

ActiveSheet.Pictures.Insert("http://s.tf1.fr/mmdia/i/70/7/2763707tvyhu.png")

Je ne sais pas trop comment l'utiliser et si il marche vraiment
il est issu de ce fil de discussion
https://forums.commentcamarche.net/forum/affich-16179990-macro-excel-pour-afficher-une-image-du-web

Reedit ^^

Je viens de me rendre compte que cela afficher l'image dans la feuille active du classeur

Bonjour,
Très intéressent la lecture de vos messages.
Personnellement pour les images je procéderais de cette manière :
1.- ajouter un contrôle [Image] dans le formulaire (pour ajouter)
2.-ajouter un bouton de commande pour insérer l'image
3.-le code déclencher par le bouton vous permet de choisir l'image sur votre PC ou le Web
4.-L'immage est insérer sur le formulaire y compris son nom (avec possibilité de modification
5.- via le bouton [Valider] enregistrer les données dans la feuille adéquate (entree, plat, dessert) y compris le nom de l'image. Cette dernière sera enregistrée dans votre dossier [Image_recette]

Décidément je vous accapare tout votre temps :)
C'est rassurant d'avoir un superviseur pour réaliser son projet qui ne donne pas directement les réponses mais donne des possibilitées à suivre. Je peux progresser un peu comme cela :)

J'ai bien analyser ce que vous m'avez dit
Voici ce que j'ai fais pour l'enregistrement des recettes à l'heure actuelle :

- Création du controle image (Image1)
- Création d'un bouton de commande (CmdB_Import)
-CmdB_Import ouvre l'explorateur de document au dossier ou j'enregistre mes images
- Je fais glisser l'image du site internet dans l'explorateur (cela l'enregistre donc dans le dossier sur mon pc)
- Je renomme l'image avant de valider l'explorateur (même nom que titre recette)
- Je valide l'explorateur en sélectionnant l'image qui s'importe dans mon controle image (Image1)

Il ne me manque plus qu'à faire mon code pour enregistrer ma recette (Je ne l'ai pas encore fais mais c'est la prochaine étape)

Dans l'idéal j'aimerais automatiser le renommage de mon image en lui donnant le même nom que mon titre recette mais je ne sais pas trop comment faire

Voici le fichier actuel
https://www.cjoint.com/?3Jgu62oAvCx

Merci beaucoup

Bonjour,
Votre fichier avec adaptation des procédures : https://www.cjoint.com/?3JhlPgOjc70

Je viens de regarder votre fichier.
Je vous remercie beaucoup, c'est exactement ce que je souhaitais :)

Je viens de regarder votre code. C'est bien au de la de mes petites capacités. Je n'y serais pas arriver tout seul.
Cela m'aidera un peu à progresser d'analyser votre code.

Encore un grand merci Le Pingou :)

Bonjour,
Merci, content pour vous.