Textbox alimentée à partir d'une autre feuille

Bonsoir à tous et meilleurs voeux pour cette nouvelle année.

Je plante sur un truc, je m'explique:

je suis en train de créer un fichier qui me permet de gérer mes recettes de pâtisserie avec 3 onglets

"0 COMMANDES" ou je souhaiterais mettre mes boutons de commandes ....en gros pour gérer mon classeur!

"1 ARTICLES" ou je saisie via un userform "CREATION" la création de mes ingrédients (farine, sel ,sucre etc....).

Ce que déjà je n'arrive pas à faire c'est numéroter automatiquement des articles a la suite dans la colonne "PLU".

"2 BASE RECETTE" qui serait mon support pour toute nouvelle recette.

Pour resumer je voudrais a l'ouverture de mon fichier me trouver sur l'onglet "0 COMMANDES".

Je pourrais appeler un UserForm pour créer/modifier un article, un autre UserForm pour créer une nouvelle recette.

J'arrive donc à créer une nouvelle recette a laquelle j'y attribue un nom.jusque la ça va!

Dans "BASE RECETTE" en cliquant sur "ingrédients" j'ouvre un UserForm avec qui j'aimerais bien rentrer les ingrédients à la suite comme pour "ARTICLES" .je pourrais appeler mes ingrédients soit par leur nom soit par leur "PLU" (ça serait vraiment vraiment TOP!)

Je n'ai aucun soucis avec "ARTICLES" a partir du moment ou j'utilise le bouton situé dans le même onglet par contre si j'utilise le même bouton dans "COMMANDES" mes textboxs ne se remplissent pas!

C'est bien la tout mon problème

Je joins mon fichier en espérant avoir été assez explicite.

Je réponds illico aux questions(c'est dans mon intérêt)

Merci à vous

13recettes.xlsm (203.42 Ko)

Bonjour

Un début de réponse à tester. Te convient-il ?

Bye !

25recettes-v1.xlsm (231.45 Ko)

Merci , merci et merci!

Juste un dernier soucis dans l'automatisation de la numérotation "PLU".

Quand j'ajoute des ingrédients ile compteur reste bloqué a "6".

Mais bon je vais chercher ....

Encore merci c'est exactement ce que je voulais!

Bonjour Superdjacks,

j'ai essayé en mettant après tes 2 variables I et J de ton Userform CREATION

ce qui donne à tester :

EDIT : non cela n'incrémentera plus PLU+1

 'Pour le formulaire
Private Sub UserForm_Initialize()

    Dim J&      ' variable Long
    Dim I%      ' variable Integer
 ''''   TextBox2.Value = ""                                  ' on vide le contenu PLU de la textbox de l'USF creation
    ComboBox2.ColumnCount = 4              ' Pour la liste déroulante Unité de mesure
    ComboBox2.List() = Array("", "K", "L", "PIECE")
    ComboBox3.ColumnCount = 7              ' Pour la liste déroulante Fournisseurs
    ComboBox3.List() = Array("", "THONON GOURMAND", "MOULINS DU BION", "PROMOCASH")

    Set ws = Sheets("1 ARTICLES") 'Correspond au nom de votre onglet dans le fichier Excel
    With Me.ComboBox1
        For J = 2 To ws.Range("A" & Rows.Count).End(xlUp).Row
            .AddItem ws.Range("A" & J)
        Next J
    End With
    For I = 1 To 7
        Me.Controls("TextBox" & I).Visible = True
    Next I
End Sub

Bonjour

Pour la fenêtre Création, je vois déjà cela dans ton bouton Aller au cas où tu rajoutes un ingrédient... mais il y a encore du travail apparemment....

Private Sub CommandButton1_Click()

    Dim no_ligne, dlg, numplu As Integer
    no_ligne = ComboBox1.ListIndex + 2
    'Set Ws = Sheets("1 ARTICLES") 'Correspond au nom de votre onglet dans le fichier Excel
                                    'déjà défini dans userform_initialize
    If no_ligne = 1 Then
        dlg = ws.Range("A" & Rows.Count).End(xlUp).Row
        numplu = ws.Range("B" & dlg).Value + 1
        MsgBox "Nouvel article , remplir tous les champs, pour le PLU, mettre : " & numplu
        Exit Sub
    Else
        TextBox1.Value = ws.Cells(no_ligne, 1).Value
        TextBox2.Value = ws.Cells(no_ligne, 2).Value
        ComboBox3.Value = ws.Cells(no_ligne, 8).Value
        TextBox4.Value = ws.Cells(no_ligne, 9).Value
        TextBox5.Value = ws.Cells(no_ligne, 3).Value
        TextBox6.Value = ws.Cells(no_ligne, 7).Value
        TextBox7.Value = ws.Cells(no_ligne, 6).Value
        ComboBox2.Value = ws.Cells(no_ligne, 5).Value
        TextBox9.Value = ws.Cells(no_ligne, 4).Value
    End If
End Sub

A voir

A+

ça ne fonctionne ps!

Quelle prise de tête !

Oups, désolé

SORRY :

J'ai fait une grosse gaffe en faite il ne faut pas mettre textbox2="" ' à vide ou rien car, aussi non on ne pourra jamais incrémenter

PLU +1 etc...

Ah la la pff je suis désolé

Bon j'avance un peu et ce que je peux dire c'est que quand je rentre un nouvel article via l'UserForm "CREATION" la cellule numérotée a un petit triangle vert en haut à gauche qui indique "nombre stocké sous forme de texte".

Si je formate la cellule en nombre la numérotation suivante se poursuit mais l'erreur passe sur la nouvelle cellule.

Donc voila!

Merci Patty,

pour l'incrémentation

je viens de comprendre à l'instant :

1 clic sur l'onglet '1 articles'

puis, bouton 1 pour l'ouverture de l'Usf'CREATION',

ensuite, si l'on souhaite que la colonne B s'incrémente de +1 on clic UNIQUEMENT sur le bouton []Aller []de l'Usf'CREATION, il arrive ensuite le message box, il suffit de mettre le chiffre correspondant de ce message box dans le textbox2

crdlt,

André

RE

As-tu passé la totalité de ta colonne B (PLU) en nombre ??

A+

Ok ça marche!

Je pensais qu'il était possible que cela se fasse tout seul.

Merci de votre aide.

Bonsoir

super pour toi

tu as la possibilité d'indiquer que tu as apprécié l'aide en cliquant sur le coeur ...en bas à droite ...comme tu veux

Bonne soirée

Peut-être à bientôt ??

Bon courage pour la suite

Merci à vous pour votre aide et .... ä bientôt

Rechercher des sujets similaires à "textbox alimentee partir feuille"