Discussion :

[florent73]

bonjour

je réinitialise tous mes texte mais je n'arrive pas a initialiser mes checkbox

Code :

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

1
2
3
4
5
6
7
 
Private Sub Initcheckbox()
.
.
.
 
End Sub

pouvez vous m'aider a écrire se texte.

mes autre init sont comme ça:

Code :

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

1
2
3
4
5
6
7
 
Private Sub InitRowSource()
 With Me.cboMember
 .RowSource = rng.Address(external:=True)
 .ListIndex = 0 ' Force la sélection du premier enregistrement
 End With
End Sub

cordialement

[Daranc]

Code :

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

checkboxN.value=false

il me semble
pour toute une floppée ça doit etre un truc di genre

Code :

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

1
2
3
for t= 1 to X 'x étant le nombre de checkbox
controls("checkbox" & t).value=false
next

[florent73]

tu l'écrirais comme cela.

Code :

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

1
2
3
4
5
6
7
8
Private Sub Initcheckbox()
cbod1.Value = False
Dim t
For t = 1 To 1 'x étant le nombre de checkbox
Controls("cbod1" & t).Value = False
Next
 
End Sub

car ça mais erreur.

[Daranc]

tu l'écrirais comme cela.

Code :

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

1
2
3
4
5
6
7
8
Private Sub Initcheckbox()
cbod1.Value = False
Dim t
For t = 1 To 1 'x étant le nombre de checkbox
Controls("cbod1" & t).Value = False
Next
 
End Sub

car ça mais erreur.

tes checkbox sont checkbox1 , checkbox2, ....checkboxN
le code pour les remettre à False (decoché) sera

Code :

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

1
2
3
for t= 1 to  N
controls("checkbox" & t).value=False
next

le code

Code :

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

checkbox1.value=false

est pour le cas ou il n'y a pas de boucle ou tu nomme chacun des checkbox

[florent73]

merci pour le code .


une autre question si tu connais.

cela fonctionne bien mais efface dons toutes les feuilles

Code :

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

1
2
 Range("O2").Select
 Selection.ClearContents

je voulais que cela se passe uniquement sur ma feuille de "donner" mais cela mais erreur

Code :

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

1
2
sheets("donner"). Range("O2").Select
 Selection.ClearContents

le code du bouton confirmé qui doit faire l'action.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub cmdConfirm_Click()
 Select Case UserFormStatus
   Case Status.NewRec ' Nouvel enregistrement
     WriteRecord rng.Rows.Count: InitData: InitRowSource
     Me.cboMember.ListIndex = rng.Rows.Count - 1
   Case Status.Modify: WriteRecord CurrentRecord ' Modification de l'enregistrement
 End Select
 OppositeStatus ' Inverse la valeur booléenne des boutons d'action
 
 Range("O2").Select
 Selection.ClearContents
 
End Sub

[Daranc]

tu emploies un userform ou un control activX?
pour un user form il suffit de te limiter aux checkbox de l'usf
pour un controle activX (là je ne pratique pas) essaies de voir si tu peut le faire avec

Code :

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

1
2
3
With activesheet
//code
end with

ou

Code :

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

1
2
3
4
5
6
whith sheets("donner")


//code
.range("O2").clearcontents ' ne pas oublier le point devant le range  (je pense aussi que c'est O et non 0 zéro)  
end with