VBA - Remplir une zone de texte par Userform

Version imprimable

06/02/2019, 05h00
Ally97

1 pièce(s) jointe(s)

VBA - Remplir une zone de texte par Userform

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?

Pièce jointe 447696

Merci d'avance

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:

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

06/02/2019, 18h06
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

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

Code:

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:

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

Cdlt

06/02/2019, 20h51
Ally97

C'est parfait

Merci beaucoup