Discussion :

[MInfo25]

Bonjour
J'aimerais rajouter les captions des checkbox dans mon fichier excel mais j'ai cette erreur : Object spécifié introuvable (voir la ligne en jaune sur la capture d'écran).


Voici le code en texte ici :

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
 
Private Sub CommandButton1_Click()
'Créer un devis
Dim i As Integer
Dim j As Integer
Dim cat As String
Dim ref As String
Dim produit As String
 
 
 
    Feuil8.Activate
    'Boucle des cases à cocher
    For i = 2 To 300
        If Controls("CheckBox" & i) Then  'Si coché
 
            Feuil8.Range("E" & i) = Controls("CheckBox" & i).Caption
        End If
    Next i
 
 
End Sub

[mjpmjp]

bonjour,
la question est : as tu 300 chekbox ??

et aussi perso j'aime bien : range("E" & i).value

@+JP

[MInfo25]

Merci ça marche quand je mets le nombre exact de checkbox disponible et il y en a que 19 au lieu de 300 :

Code :

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

1
2
3
4
5
6
7
8
 
'Boucle des cases à cocher
    For i = 5 To 19
        If Controls("CheckBox" & i) Then  'Si coché
 
            Feuil8.Range("E" & i) = Controls("CheckBox" & i).Caption
        End If
    Next i