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:
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
Merci pour vos retours, vos avis et vos conseils.

Sincèrement,