quicktibong
XLDnaute Nouveau
Bonjour,
j'ai dans un fichier excel une mutitude de checkboxes (environ 200). J'ai besoin de récupérer la valeur de ces checkboxes dans un autre fichier excel. J'ai donc lié les deux fichiers.
Pour récupérer les valeurs des checkboxes (1 si elle est coché et un chiffre négatif aléatoire si elle ne l'est pas), j'utilise des tableaux.
Mais j'ai le code erreur suivant qui apparaît : Erreur d'exécution '1004', La méthode 'Checkboxes' de l'objet '_Worksheet' a échoué.
Lorsque je clique sur Débogage, il me pointe la ligne :
comme si il n'arrivait pas à renvoyer la valeur de la checkboxe...
Auriez vous une solution ?
j'ai dans un fichier excel une mutitude de checkboxes (environ 200). J'ai besoin de récupérer la valeur de ces checkboxes dans un autre fichier excel. J'ai donc lié les deux fichiers.
Pour récupérer les valeurs des checkboxes (1 si elle est coché et un chiffre négatif aléatoire si elle ne l'est pas), j'utilise des tableaux.
Mais j'ai le code erreur suivant qui apparaît : Erreur d'exécution '1004', La méthode 'Checkboxes' de l'objet '_Worksheet' a échoué.
Lorsque je clique sur Débogage, il me pointe la ligne :
Code:
If FicheCh.CheckBoxes(TableauCheckbox(m)).Value = 1 Then
Auriez vous une solution ?
Code:
Dim FicheChantier As Worksheet
Set FicheCh = ActiveWorkbook.Sheets("Fiche ch")
Dim DonnéesFC As Worksheet
Set DonnéesFC = ThisWorkbook.Sheets("Données fiches ch")
Dim m As Integer
m = 0
Dim Tableaulig
Tableaulig = Array(11, 13, 15, 16, 17)
Dim Tableaucol
Tableaucol = Array(4, 4, 4, 4, 5)
Dim TableauCheckbox
TableauCheckbox = Array(3, 4, 5, 6, 192, 177, 182, 181, 123)
' 3, 4, 5, 6, 192, 177, 182, 181 et 123 sont les numéros des checkboxes dont je veux récupérer la valeur
For m = 4 To 8
If FicheCh.CheckBoxes(TableauCheckbox(m)).Value = 1 Then
DonnéesFC.Cells(l, j) = "Oui"
j = j + 1
DonnéesFC.Cells(l, j) = FicheCh.Cells(Tableaulig(k), Tableaucol(k))
Else
DonnéesFC.Cells(l, j) = "Non"
j = j + 2
End If
k = k + 1
Next m