Comment récupérer les données des cases à cocher ?
Résolu/Fermé
Mr Boushido
Messages postés
6
Date d'inscription
jeudi 27 février 2014
Statut
Membre
Dernière intervention
3 mars 2014
-
Modifié par Mr Boushido le 27/02/2014 à 14:24
eriiic Messages postés 24569 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 14 mars 2024 - 3 mars 2014 à 15:25
eriiic Messages postés 24569 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 14 mars 2024 - 3 mars 2014 à 15:25
A voir également:
- Récupérer valeur checkbox vba
- Vba récupérer valeur cellule ✓ - Forum VB / VBA
- Recuperer video youtube - Guide
- Comment récupérer un compte facebook piraté - Guide
- Recuperer message whatsapp - Guide
- Récupérer photo instagram - Guide
8 réponses
f894009
Messages postés
17181
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
21 mars 2024
1 701
28 févr. 2014 à 14:38
28 févr. 2014 à 14:38
Re,
d'ou ma question Lien (#3):
ActiveCell = CaseCoche.CheckBox(i).Value (meme si le code est faut) Vu que vous avez des checkboxs, pourquoi une seule cellule a ecrire ???
un exemple de code a mettre dans le VBA de l'Userform: (ici deux checkbox, mais code a ecrire pour les 12 autres) ecriture feuille1 A1 a A14 suivant coche
Dim ValCheck(14)
Private Sub checkbox1_click()
If CheckBox1 Then
ValCheck(0) = "Conforme"
Else
ValCheck(0) = ""
End If
End Sub
Private Sub checkbox2_click()
If CheckBox2 Then
ValCheck(1) = "Non Conforme"
Else
ValCheck(1) = ""
End If
End Sub
Private Sub Valider_Click()
Dim i As Integer, point As Byte
With Worksheets("feuil1")
point = 1
.Range("A1:A15").ClearContents
For i = 0 To 1 '14
If ValCheck(i) <> "" Then
.Range("A" & point) = ValCheck(i)
point = point + 1
End If
Next i
End With
'CaseCoche.Hide
End Sub
d'ou ma question Lien (#3):
ActiveCell = CaseCoche.CheckBox(i).Value (meme si le code est faut) Vu que vous avez des checkboxs, pourquoi une seule cellule a ecrire ???
un exemple de code a mettre dans le VBA de l'Userform: (ici deux checkbox, mais code a ecrire pour les 12 autres) ecriture feuille1 A1 a A14 suivant coche
Dim ValCheck(14)
Private Sub checkbox1_click()
If CheckBox1 Then
ValCheck(0) = "Conforme"
Else
ValCheck(0) = ""
End If
End Sub
Private Sub checkbox2_click()
If CheckBox2 Then
ValCheck(1) = "Non Conforme"
Else
ValCheck(1) = ""
End If
End Sub
Private Sub Valider_Click()
Dim i As Integer, point As Byte
With Worksheets("feuil1")
point = 1
.Range("A1:A15").ClearContents
For i = 0 To 1 '14
If ValCheck(i) <> "" Then
.Range("A" & point) = ValCheck(i)
point = point + 1
End If
Next i
End With
'CaseCoche.Hide
End Sub