Bonjour à tous,
Je vous explique mon soucis actuelle.
Je travaille en milieu hospitalier et je veux recréer une planification murale pour mon service.
J'ai donc mes N° de chambre dans les cellules C10 à O10.
Dans les cellules C2 à O2, j'ai le nom des patients.
Dans un userform, je voudrais par un combobox choisir la chambre en question, et pour vérifier que l'on a bien choisi la bonne chambre, il affiche dans un textbox le nom du patient qui va bien.
Ce qui marche: la combobox avec le choix des chambre
Ce qui ne marche pas: mettre dans le textbox le nom du patient
Voici mon code:
Merci pour vos retours, vos avis et vos conseils.
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 Option Explicit Dim Ws As Worksheet 'Variable pour un Objet Worksheet en PUBLIC pour tous les Controls de cet UserForm Dim Col As Variant Private Sub UserForm_Initialize() ' Supprimer l'ancien formulaire UserForm4.Hide ' Affectation de valeur à une variable Set Ws = Sheets("Planification") ' Initialisation des Combobox ComboBox1.Column = Ws.Range("C10:L10").Value ' Afficher le Nom du Patient dans la textbox ' TextBox1.Visible = Range(Col & "2") End Sub Private Sub CommandButton2_Click() ' Choix de la Colonne If ComboBox1.Value = "130P" Then Col = "C" If ComboBox1.Value = "130F" Then Col = "D" If ComboBox1.Value = "129P" Then Col = "E" If ComboBox1.Value = "129F" Then Col = "F" If ComboBox1.Value = "128P" Then Col = "G" If ComboBox1.Value = "128F" Then Col = "H" If ComboBox1.Value = "127P" Then Col = "I" If ComboBox1.Value = "127F" Then Col = "J" If ComboBox1.Value = "126P" Then Col = "K" If ComboBox1.Value = "126F" Then Col = "L" If ComboBox1.Value = "125P" Then Col = "M" If ComboBox1.Value = "125F" Then Col = "N" If ComboBox1.Value = "124" Then Col = "O" ' Bouton Valider Range(Col & "2", Col & "8").ClearContents ' Quitter le formulaire Unload Me ' Sauvegarde automatique ThisWorkbook.Save End Sub Private Sub CommandButton1_Click() 'Correspond au programme du bouton Annuler Unload Me End Sub
Sincèrement,
Partager