Aide création formulaire VBA

Version imprimable

05/09/2017, 11h24
madpres

1 pièce(s) jointe(s)

Aide création formulaire VBA

Bonjour à tous ,

Je travail sur un fichier excel pour mon service
Je souhaite faire un formulaire pour que chaque personne clic sur un bouton ( bouton crée ) et remplisse le formulaire qui complètera directement le tableau qui est sur l'onglet "DAL".
Avec le bouton valider qui complétera le tableau et un bouton quitter .

Jai fait le formulaire (Useform1) avec quelques listes déroulantes qui correspondent aux listes qui figure sur mon tableau Excel "onglet Listes" .

J'ai modifié les noms des textbox et combobox en "ctl de 1 à 21" qui correspondent aux colonnes 1 à 21 de mon tableau .
Alors maintenant pour pouvoir exécuter mon formulaire en mode VBA je suis totalement perdu , j'ai pourtant passer énormément de temps à essayer de le faire avec les aides et formules que je trouve sur les forums ou Google mais cela ne fonctionne pas .

Si vous pouvez m'aider ça serait top !

Merci ++++ d'avance pour votre aide et vos réponses

Jess
05/09/2017, 11h42
Pierre Fauconnier

Salut.

Mon message de ce jour 09h09 sur cette discussion te donne des pistes et un fichier d'exemple. Si commentaires, merci de réagir ICI et non sur l'autre discussion ;)
05/09/2017, 11h52
madpres

merci

Merci pour ta réponse je vais voir ton exemple .:D

1 pièce(s) jointe(s)

Bonjour
commencez par ça :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
Sub RéinitCtl()
    Dim i%
    For i = 1 To 21
        Controls("ctl" & i).Value = ""
    Next i
    ctl1.SetFocus
End Sub
 
Private Sub cbQuit_Click()
    Unload Me
End Sub
 
Private Sub cbValid_Click()
 
    For i = 1 To 21
        If Controls("ctl" & i).Value = "" Then
                MsgBox "Renseigner toute les rubriques !", vbCritical, "Saisie incomplète  "
         Exit Sub
            End If
    Next i
 
 
 Dim j As Long
 With Sheets("DAL")
 
j = .Range("A" & Rows.Count).End(xlUp).Row + 1
 .Range("A" & j) = Controls("ctl1").Value
  .Range("B" & j) = Controls("ctl2").Value
   .Range("C" & j) = Controls("ctl3").Value
    .Range("D" & j) = Controls("ctl4").Value
     .Range("E" & j) = Controls("ctl5").Value
      .Range("F" & j) = Controls("ctl6").Value
       .Range("G" & j) = Controls("ctl7").Value
        .Range("H" & j) = Controls("ctl8").Value
         .Range("I" & j) = Controls("ctl9").Value
          .Range("J" & j) = Controls("ctl10").Value
           .Range("K" & j) = Controls("ctl11").Value
            .Range("L" & j) = Controls("ctl12").Value
             .Range("M" & j) = Controls("ctl13").Value
              .Range("N" & j) = Controls("ctl14").Value
               .Range("O" & j) = Controls("ctl15").Value
                .Range("P" & j) = Controls("ctl16").Value
                 .Range("K" & j) = Controls("ctl17").Value
                  .Range("R" & j) = Controls("ctl18").Value
                   .Range("S" & j) = Controls("ctl19").Value
                    .Range("T" & j) = Controls("ctl20").Value
                     .Range("U" & j) = Controls("ctl21").Value
 
 
   End With
   RéinitCtl
End Sub

ou bien tout simplement vu que les données sont de même ordre que les textbox et le combobox :

Code:

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub cbValid_Click()  
 Dim j As Long
 With Sheets("DAL")
 j = .Range("A" & Rows.Count).End(xlUp).Row + 1
 For i = 1 To 21
 Cells(j, i) = Controls("ctl" & i).Value
 Next i
End With
RéinitCtl
End Sub

05/09/2017, 12h10
Menhir

La première question à se poser avant de créer un formulaire est : a-t-il vraiment un intérêt ?
Représente-t-il un véritable valeur ajoutée (en terme d'ergonomie ou d'information de l'utilisateur) par rapport à un remplissage direct dans les cases ?
Personnellement, dans les applications que j'ai réalisées (ce qui ne veut surtout pas dire "tous les cas"), j'ai toujours trouvé des solutions plus pratique (pour l'utilisateur), quitte a passer éventuellement par un MsgBox ou (au pire) un InputBox.
Donc, avant de se compliquer la vie, prendre un peu de recul pour se poser cette question.

Ceci dit, je te conseille ces lectures :
https://excel.developpez.com/cours/?page=prog#userform
https://excel.developpez.com/sources/?page=UserForm
https://excel.developpez.com/faq/?page=UserForm