Discussion :

[madpres]

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

[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

[madpres]

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

[BENNASR]

Bonjour
commencez par ça :

Code :

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

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 :

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

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

[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