[VBA-E] utilisation impossible d' "ActiveSheet"

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:

---

1 2 3 4

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

---

Merçi de m'aiguiller

Bonjour

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

Code:

---

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

---

Il faut corriger en

Code:

---

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

---

Ok?

Code:

---

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:

---

"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 +

Code:

---

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:

---

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?

Code:

---

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:

---

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+

essai :

Code:

---

1 2 3

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

---

Code:

---

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

---

merçi pour votre aide
Le code ci dessus que vous m'avez indiqué me donne au débogage l'errerur 438 "propriété ou méthode non gérée par cet objet"

A +
Merçi encore

.. ?

Code:

---

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

---

super ça marche !!!
J'avais ce problème à résoudre depuis plusieurs semaines je vais pouvoir finir mon appli merçi encore si je patine encore je reviens içi
Merçi encore !!!!