Discussion :

[JudeH]

Bonjour,

J'ai un formulaire pop up avec des checkbox pour faire l'appelle en réunion.

Etant obligé dans avoir plus que de personnes prévus je voudrais que les checkbox sans information ne soit pas valider automatique à la différence des autres.

j'ai en lien avec mes checkbox une plage de cellule avec des noms et dans cette plages de cellules il y en a des vides.

Je voudrais qu'avec une code, les cellules remplit en lien avec une check box soit coché et si la cellule est vide à la sa checkbox n'est pas coché.

voici mon code (je ne comprend pourquoi il ne fonctionne pas):

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
Private Sub UserForm_Initialize()
 
CheckBox1.Caption = Sheets("Ordre du jour prévisionnel").range("B37").value
CheckBox2.Caption = Sheets("Ordre du jour prévisionnel").range("B38").value
CheckBox3.Caption = Sheets("Ordre du jour prévisionnel").range("B39").value
CheckBox4.Caption = Sheets("Ordre du jour prévisionnel").range("B40").value
CheckBox5.Caption = Sheets("Ordre du jour prévisionnel").range("B42").value
CheckBox6.Caption = Sheets("Ordre du jour prévisionnel").range("B43").value
CheckBox7.Caption = Sheets("Ordre du jour prévisionnel").range("B44").value
CheckBox8.Caption = Sheets("Ordre du jour prévisionnel").range("B45").value
CheckBox9.Caption = Sheets("Ordre du jour prévisionnel").range("B41").value
CheckBox10.Caption = Sheets("Ordre du jour prévisionnel").range("B46").value
CheckBox11.Caption = Sheets("Ordre du jour prévisionnel").range("B51").value
CheckBox12.Caption = Sheets("Ordre du jour prévisionnel").range("B47").value
CheckBox13.Caption = Sheets("Ordre du jour prévisionnel").range("B48").value
CheckBox14.Caption = Sheets("Ordre du jour prévisionnel").range("B49").value
CheckBox15.Caption = Sheets("Ordre du jour prévisionnel").range("B50").value
 
If IsEmpty("B37") Then CheckBox1.value = False Else CheckBox1.value = True
If IsEmpty("B38") Then CheckBox2.value = False Else CheckBox2.value = True
If IsEmpty("B39") Then CheckBox3.value = False Else CheckBox3.value = True
If IsEmpty("B40") Then CheckBox4.value = False Else CheckBox4.value = True
If IsEmpty("B42") Then CheckBox5.value = False Else CheckBox5.value = True
If IsEmpty("B43") Then CheckBox6.value = False Else CheckBox6.value = True
If IsEmpty("B44") Then CheckBox7.value = False Else CheckBox7.value = True
If IsEmpty("B45") Then CheckBox8.value = False Else CheckBox8.value = True
If IsEmpty("B41") Then CheckBox9.value = False Else CheckBox9.value = True
If IsEmpty("B46") Then CheckBox10.value = False Else CheckBox10.value = True
If IsEmpty("B51") Then CheckBox11.value = False Else CheckBox11.value = True
If IsEmpty("B47") Then CheckBox12.value = False Else CheckBox12.value = True
If IsEmpty("B48") Then CheckBox13.value = False Else CheckBox13.value = True
If IsEmpty("B49") Then CheckBox14.value = False Else CheckBox14.value = True
If IsEmpty("B50") Then CheckBox15.value = False Else CheckBox15.value = True
 
End Sub

[Franc]

Salut, voici une proposition à tester:

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
Private Sub UserForm_Initialize()
 
Dim ws As Worksheet
Set ws = Sheets("Ordre du jour prévisionnel")
 
Dim i As Integer
Dim chkBox As CheckBox
 
For i = 1 To 15
    Set chkBox = Me.Controls("CheckBox" & i)
    chkBox.Caption = ws.Range("B" & (i + 36)).Value
    chkBox.Value = Not IsEmpty(ws.Range("B" & (i + 36)))
Next i
 
End Sub

[deedolith]

Salut,

Tu donnes en argument de la fonction IsEmpty une chaine, cette dernière n'étant pas vide, la fonction IsEmpty renvoie toujours False.

N'est-ce pas plutôt de références vers les cellules dont tu as besoin ?

Au passage, factorise, ca n'en sera que plus lisible:

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub UserForm_Initialize()
	Dim Ws As Excel.Worksheet
	Set Ws = ThisWorkbook.Worksheets("Ordre du jour prévisionnel")
 
	CheckBox1.Caption = Ws.range("B37").value
	'// ect ...
 
	CheckBox1.value = IsEmpty(Ws.Range("B37").Value)
	'// ect ...
End Sub