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