*Bonjour,*

j'ai réaliser un formulaire VBA pour la saisie des renseignement d'un patient avec sec examen demandées
sur UF j'ai introduit une listbox

Mon souci est comment peut-on Transférer les sélections sur la feuil lorsque en validant la saisie
voila le CODE:

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
Private Sub CommandButton1_Click()
 
Dim i As Integer
If UserForm1.TextBox1 = "" Or UserForm1.TextBox2 = "" Then
    MsgBox "MERCI DE SIASIR Les Champs Nom et Prénom", vbCritical, "Champs manquants"
    TextBox1.SetFocus
    Else
 
 i = 1
 Do While Cells(i, 1) <> ""
 Cells(i, 1).Offset(1, 1).Select
 i = i + 1
 Loop
 ActiveCell.Value = UCase(UserForm1.TextBox1.Value)
 ActiveCell.Offset(0, 1).Value = UCase(Left(UserForm1.TextBox2.Value, 1)) & LCase(Right(UserForm1.TextBox2.Value, Len(UserForm1.TextBox2.Value) - 1))
 ActiveCell.Offset(0, 2).Value = UserForm1.TextBox3.Value
 ActiveCell.Offset(0, 4).Value = UserForm1.ComboBox1.Value
 UserForm1.TextBox1.Value = ""
 UserForm1.TextBox2.Value = ""
 UserForm1.TextBox3.Value = ""
 UserForm1.ComboBox1.Value = ""
 TextBox1.SetFocus
 
 End If
If ActiveCell.Offset(-1, -1).Value = "ID" Then
 ActiveCell.Offset(0, -1).Value = 1
 Else
 ActiveCell.Offset(0, -1).Value = ActiveCell.Offset(-1, -1).Value + 1
 
 End If
 
End Sub
sur la feuil les cellule reversées pour la sélection de la listbox est à partir de G2-N2

ci joint
Nom : vba.png
Affichages : 1195
Taille : 42,9 Ko