Discussion :

[Ally97]

Bonjour à tous,

Je suis sous la version office 2013

Voici mon projet:

Je souhaiterai rentrer une liste d'ingrédient dans une zone de texte(shape)=> Quantité , mesure , ingredient (soit 3 cases a remplir) a l'aide d'un userform

J'ai réussi a le faire sur le 3 premieres formes mais comment passer aux autres?
Sachant que je pourrais remplir au maximum 15 ingrédients

Mon projet est-il réalisable?
Y a t-il une autre façon de procéder?


test 2.xlsm

Merci d'avance

[ARTURO83]

Bonjour
Voici, mais auparavant, il faut supprimer tous les "0" pour tous les objets compris entre 1 et 9 "01QTE" -->"1QTE", "01C" -->"1C" etc...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub CommandButton1_Click()
' Ajouter un ingrédient
    For i = 1 To 15
        If ActiveSheet.Shapes(i & "QTE").TextFrame.Characters.Text = "" Then
            ActiveSheet.Shapes(i & "QTE").TextFrame.Characters.Text = TextBox1
            ActiveSheet.Shapes(i & "C").TextFrame.Characters.Text = ComboBox2
            ActiveSheet.Shapes(i & "I").TextFrame.Characters.Text = ComboBox1
            End
        End If
    Next i
End Sub

Cdlt

[Ally97]

Bonjour,

Je vous remercie pour votre réponse

La fenetre se ferme aprés la 1ere saisie c'est normal?
Je vais essayer d'y ajouter inputbox

[ARTURO83]

Si vous ne voulez pas qu'elle se ferme recopiez ce code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub CommandButton1_Click()
' Ajouter un ingrédient
    For i = 1 To 15
        If ActiveSheet.Shapes(i & "QTE").TextFrame.Characters.Text = "" Then
            ActiveSheet.Shapes(i & "QTE").TextFrame.Characters.Text = TextBox1
            ActiveSheet.Shapes(i & "C").TextFrame.Characters.Text = ComboBox2
            ActiveSheet.Shapes(i & "I").TextFrame.Characters.Text = ComboBox1
            UserForm_initialize
        End If
    Next i
End Sub

et ajoutez celui-ci

Code :

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

1
2
3
4
5
Private Sub UserForm_initialize()
    ComboBox1.Text = ""
    ComboBox2.Text = ""
    TextBox1.Text = ""
End Sub

Cdlt

[Ally97]

C'est parfait


Merci beaucoup