Discussion :

[xeron33]

Bonjour à tous,

J'utilise Excell 2003 et je n'arrive pas à utiliser la propriété ActiveSheet pour faire tourner ce code trouvé içi pour un problème de récupération de valeurs de CheckBox insérés sur une feuille Excel.
Quand je débogue le code l'erreur 5 apparait "Argument ou appel de procédure incorrect "
Me manque t-il une bibliothèque ? Pourtant ActiveSheet appartient à la bibliothèque Excel .
Ou peut être que ce code doit se trouver dans une procédure spéciale, car je l'ai intégré dans une procédure "sub" .

Code :

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

1
2
3
4
For i = 1 To 3
    ActiveSheet.Shapes("CheckBox " & i).Select
    VChk = Selection.Value
  Next i

Merçi de m'aiguiller

[Pierre Fauconnier]

Bonjour

Ce n'est pas activesheet qui pose problème, mais le fait que tu as un espace après checkbox dans

Code :

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

ActiveSheet.Shapes("CheckBox " & i).Select

Il faut corriger en

Code :

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

ActiveSheet.Shapes("CheckBox" & i).Select

Ok?

[xeron33]

Code :

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

1
2
3
4
For i = 1 To 3
    ActiveSheet.Shapes("CheckBox" & i).Select
    VChk = Selection.Value
  Next i

merçi pour ta contribution , en effet la ligne

Code :

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

"ActiveSheet.Shapes("CheckBox" & i).Select"

passe maintenant par contre la suivante au débogage me renvoie l'erreur 438 "propriété ou méthode non gérée par cet objet" la variable VChk est déclarée en tant que variant.
Merçi si tu peux m'aider
A +

[Pierre Fauconnier]

Code :

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

Shapes("checkbox" & i)

ne renverra pas la valeur TRUE ou FALSE car les objets SHAPES n'ont pas de propriété VALUE...

CheckBox1, CheckBox2 et CheckBox3 sont des contrôles posés sur ta feuille.

Tu peux donc utiliser directement

Code :

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

VChk = chkbox1.value

Autre chose... Sauf à ne pas avoir transmis ton code complet, ou a tout le moins suffisamment complet pour que l'on puisse le comprendre... je ne vois pas l'utilité de boucler de cette manière sur tes trois checkbox puisque, à la sortie de la boucle, Vchk contiendra toujours la valeur ce checkbox3...

Peux-tu nous éclairer sur ce que tu souhaites réellement réaliser ou obtenir?

[xeron33]

Code :

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

1
2
3
4
5
For i = 1 To 3
    ActiveSheet.Shapes("CheckBox" & i).Select
    VChk = chkbox1.Value
    'VChk = Selection.Value (en commentaire pour l'instant)
  Next i

Bonsoir et encore merçi
Le but de ce code est de lire en déboguant la valeur des 3 CheckBox posés sur ma feuille excel soient CheckBox1 ,... 2 et 3. et d'utiliser ces valeurs pour une procédure sub.
La ligne "VChk = chkbox1.value " me donne au débogage erreur 424 "Objet requis"
Doit on se positionner sur la collonne ou se trouve les CheckBox en utilisant ce genre de condition comme je l'ai fait dans ma sub ou est ce que la collection Shapes les trouve toute seule ?

Code :

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

1
2
i= 3
 If ((range("B" & i & "").NumberFormat = "d-mmm-yy") And range("B" & i & "") <> "" And (range("A" & i & "").NumberFormat = "d-mmm-yy")) And range("A" & i & "") <> "" Then ...

merçi si tu peux m'aider
A+

[SfJ5Rpw8]

essai :

Code :

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

1
2
3
 
 
    VChk  =ActiveSheet.Shapes("CheckBox" & i).Value