Ecrire une initcheckbox

bonjour

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

Code:

---

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:

---

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

Code:

---

checkboxN.value=false

---

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

Code:

---

1 2 3

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

---

tu l'écrirais comme cela.

Code:

---

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.

Citation:

---

Envoyé par florent73

tu l'écrirais comme cela.

Code:

---

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:

---

1 2 3

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

---

le code

Code:

---

checkbox1.value=false

---

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

merci pour le code .


une autre question si tu connais.

cela fonctionne bien mais efface dons toutes les feuilles

Code:

---

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

---

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

Code:

---

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

---

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

Code:

---

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

---

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:

---

1 2 3

With activesheet //code end with

---

ou

Code:

---

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

---