Discussion :

[misterW]

Bonjour à tous les amis,
Petit problème de bug dans mon code :

Pour faire un gestionaire de recettes, j'ai créé une première userform "créer_recette" ou on saisit le nom de la recette, sa catégorie et le nombre de personnes.
On clique sur "continuer et ajouter des ingrédients", les informations nom_recette et nombre_de_personnes se saisissent dans le tableau de la feuille gestion des recettes.
Ensuite une nouvelle userform "ingredient_recette" s'affiche avec ajouter un ingrédient. Tant que l'on clique sur ingrédient suivant les informations "nom_ingredient" et "quantite" se saisissent dans le tableau et la userform se réinitialise de manière à pouvoir ressaisir un nouvel ingréidient. Quand on a terminé, l'information se saisit mais la userform se ferme.


Seulement :
-mes formules pour saisir les données de la userform "creer_recette" et "ingredient_recette" dans le tableau ne marchent pas (même problème que le fichier précédent)
-la formule dans "ingredient_recette" qui devrait ajouter les ingrédients en "A" de la feuille "ingrédients" ne marche pas.

Pourriez vous m'aider ? Je ne comprend pas pourquoi ça ne fonctionne pas.

Je joint le fichier.

Merci de votre aide

ps : Je suis désolé si la présentation n'est pas soignée, je suis au début de la création.

[clementmarcotte]

Le texte de Pierre Fauconnier est extrêmement clair : Pas de *&?%$/"/%&()_)_)&?%$ de fichier-joint à la première question.

Et puis tu as un triangle qui indique une erreur dans ta colonne Prix unitaire. Clique sur une cellule avec un triangle, clique sur le point d'exclamation et agis en conséquence.

[misterW]

D'accord, je supprime le fichier, mais il faut avouer que c'est quand même plus pratique pour comprendre le cas.

En bref, j'utilise une formule pour que les informations d'une userform se saisissent dans un tableau :

je définis mes variables : dim textbox1 as string et dim textbox2 as integer (un texte et une valeur numérique)
j'affecte mes variables :

Code :

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

1
2
textbox1 = a
textbox2 = b

Le problème arrive ici je pense

Code :

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

1
2
3
4
5
6
7
8
With Sheets("nom_de_la_feuille")
 
derligne = Cells(Rows.Count, "A").End(xlUp).Row + 1
 
.Range("B" & derligne).Value = a
.Range("C" & derligne).Value = b
 
End With

a et b sont des textbox.

Mais Les valeurs de a et b ne se saisissent pas dans le tableau.

Deuxième problème, pour que les données d'un tableau soient saisis dans ma combobox, j'utilise la formule suivante :

Code :

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

1
2
3
Private Sub initialize()
Me.nom_listbox = Application.Transpose(Range(Sheets("feuille en question").[A2], Sheets("feuille en question").[A65000].End(xlUp)))
End Sub

Pourriez-vous me corriger ?

J'espère avoir été clair

Pour respecter la charte du forum, j'ai supprimé mon fichier joint, je le rajouterai si il est nécessaire à votre compréhension.

Merci !

[clementmarcotte]

Et puis tu as un triangle qui indique une erreur dans ta colonne Prix unitaire. Clique sur une cellule avec un triangle, clique sur le point d'exclamation et agis en conséquence.

[misterW]

Oui en effet merci, je n'ai pas défini le prix unitaire as integer, donc il se convertissait en texte.
Mais ça n'explique pas mon erreur dans la userform de création de recette (code indiqué précédemment)

Merci !

[clementmarcotte]

Bonjour,

Je me suis laissé attendrir. Il te reste juste à faire les ajustements qui s'imposent:

Code :

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

1
2
3
Sub enhaut()
      DernièreLigne = Range("A65536").End(xlUp).Row + 1
End Sub

[misterW]

Ok super merci beaucoup Nicolasmarcotte, ça marche bien, je l'ai réutilisée plusieurs fois !