Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Case a cocher

Case a cocher

10 réponses
Avatar
gerard
bonjour

milles excuses pour le pôste precedent

j'ai crée une petite appli interface access et une feuille Excel.

j'ai sur mon interface une case a cocher
Casedefaut
et sur ma feuil excel egalement une case a cocher
CaseOui
j'ai declaré mon objet excel et j'arrive tres bien a remplir une cellule
dans excel de la valeur de mon TxtNom .value par exemple .
du style
ObjExcel.workSheets("Dossier toto").range("A15").value =
Form_Dossier.TxtNom.value
le prob est la case a cocher.je voudrais quand ma case a cocher sur acces
est cochée , la case a cocher dans excel deviennent cochée.

merci beaucoup pour votre aide
ge
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
michdenis
Bonjour Gérard,

Est-ce que tu peux préciser ce que tu tentes de faire :

Ta case à cocher est sur une feuille excel et elle provient de quelle barre d'outils ? Formulaire ou Contrôle ?

Le code de la procédure est écrit dans un module de ton classeur excel ou Access ?

Quel est le nom de ta base de données ? Nom de ton formulaire de ta base de données ?

Est-ce que tes 2 applications sont ouvertes au moment de lancer la procédure ?


Salutations!




"gerard" a écrit dans le message de news:brfhr1$iuc$
bonjour

milles excuses pour le pôste precedent

j'ai crée une petite appli interface access et une feuille Excel.

j'ai sur mon interface une case a cocher
Casedefaut
et sur ma feuil excel egalement une case a cocher
CaseOui
j'ai declaré mon objet excel et j'arrive tres bien a remplir une cellule
dans excel de la valeur de mon TxtNom .value par exemple .
du style
ObjExcel.workSheets("Dossier toto").range("A15").value Form_Dossier.TxtNom.value
le prob est la case a cocher.je voudrais quand ma case a cocher sur acces
est cochée , la case a cocher dans excel deviennent cochée.

merci beaucoup pour votre aide
ge
Avatar
Pascal Engelmajer
Salut,
Si c'est un objet formulaire (comme cela est sous-entendu) ça peut être de
cette forme :
Dim objExcel As Object
On Error Resume Next
Set objExcel = GetObject(Class:="Excel.Application")
On Error GoTo 0
If objExcel Is Nothing Then
Set objExcel = CreateObject("Excel.Application")
End If
'Casedefaut étant bien identifiée
objExcel.workSheets("Dossier toto").CheckBoxes("CaseOui").Value Casedefaut.Value


--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
"gerard" a écrit dans le message de news:
brfhr1$iuc$
bonjour

milles excuses pour le pôste precedent

j'ai crée une petite appli interface access et une feuille Excel.

j'ai sur mon interface une case a cocher
Casedefaut
et sur ma feuil excel egalement une case a cocher
CaseOui
j'ai declaré mon objet excel et j'arrive tres bien a remplir une cellule
dans excel de la valeur de mon TxtNom .value par exemple .
du style
ObjExcel.workSheets("Dossier toto").range("A15").value > Form_Dossier.TxtNom.value
le prob est la case a cocher.je voudrais quand ma case a cocher sur acces
est cochée , la case a cocher dans excel deviennent cochée.

merci beaucoup pour votre aide
ge




Avatar
gerard
bonjour,
merci michel
Bon je reprend tout
j'ai une application acces qui est ouverte il y a dessus entre autre une
case a cochée
je veux enregistrer toute les champs qui sont sur mon interface acces sur
une feuille excel qui existe dejà
je l'appelle donc
Set objExcel = CreateObject("Excel.Application")
le chemin de excel appele est
Chem=CurrentProject.path & "" & "MonDossier.xls"
le fichier est ouvert mais non visible
ObjExcel.Workbooks.Open(Chem)
jusque la il n'y a pas de prob, je rempli les cellules desirées avec les
valeurs de mes champs depuis access, mais je n'y arrive pas avec la case a
cochée
eX si la case d'acces est cochée je veux que la case dans excel soit cochée.
la case dans exel est faite avec la barre Visual basic et je voudrais que
sur excel la case soit t (si c'est le cas) coche donc bien blanche avec la
coche , pas en grisé...
j'espere que je n'ai rien oublié

ou peut etre merci denis
merci a tous les deux
ge

"michdenis" a écrit dans le message de
news:O1jMj$
Bonjour Gérard,

Est-ce que tu peux préciser ce que tu tentes de faire :

Ta case à cocher est sur une feuille excel et elle provient de quelle
barre d'outils ? Formulaire ou Contrôle ?


Le code de la procédure est écrit dans un module de ton classeur excel ou
Access ?


Quel est le nom de ta base de données ? Nom de ton formulaire de ta base
de données ?


Est-ce que tes 2 applications sont ouvertes au moment de lancer la
procédure ?



Salutations!




"gerard" a écrit dans le message de
news:brfhr1$iuc$

bonjour

milles excuses pour le pôste precedent

j'ai crée une petite appli interface access et une feuille Excel.

j'ai sur mon interface une case a cocher
Casedefaut
et sur ma feuil excel egalement une case a cocher
CaseOui
j'ai declaré mon objet excel et j'arrive tres bien a remplir une cellule
dans excel de la valeur de mon TxtNom .value par exemple .
du style
ObjExcel.workSheets("Dossier toto").range("A15").value > Form_Dossier.TxtNom.value
le prob est la case a cocher.je voudrais quand ma case a cocher sur acces
est cochée , la case a cocher dans excel deviennent cochée.

merci beaucoup pour votre aide
ge





Avatar
gerard
bonsoir
merci pour ta reponse
en fait la case acochée est faite depuis la bare d'outil visual basic
j'ai dejà fait ce que tu m'a proposé la case est bien cochée mais en griseé

merci pour ta reponse
ge

"Pascal Engelmajer" a écrit dans le
message de news:e1C%
Salut,
Si c'est un objet formulaire (comme cela est sous-entendu) ça peut être
de

cette forme :
Dim objExcel As Object
On Error Resume Next
Set objExcel = GetObject(Class:="Excel.Application")
On Error GoTo 0
If objExcel Is Nothing Then
Set objExcel = CreateObject("Excel.Application")
End If
'Casedefaut étant bien identifiée
objExcel.workSheets("Dossier toto").CheckBoxes("CaseOui").Value > Casedefaut.Value


--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
"gerard" a écrit dans le message de news:
brfhr1$iuc$
bonjour

milles excuses pour le pôste precedent

j'ai crée une petite appli interface access et une feuille Excel.

j'ai sur mon interface une case a cocher
Casedefaut
et sur ma feuil excel egalement une case a cocher
CaseOui
j'ai declaré mon objet excel et j'arrive tres bien a remplir une cellule
dans excel de la valeur de mon TxtNom .value par exemple .
du style
ObjExcel.workSheets("Dossier toto").range("A15").value > > Form_Dossier.TxtNom.value
le prob est la case a cocher.je voudrais quand ma case a cocher sur
acces


est cochée , la case a cocher dans excel deviennent cochée.

merci beaucoup pour votre aide
ge








Avatar
Pascal Engelmajer
salut,
j'ai testé sur mon poste (en ouvrant le fichier xls ce qui était omis dans
mon précédent mail)
la case n'est pas grisée (elle n'est pas disabled)
-
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
"gerard" a écrit dans le message de news:
brfl5j$1ks$
bonsoir
merci pour ta reponse
en fait la case acochée est faite depuis la bare d'outil visual basic
j'ai dejà fait ce que tu m'a proposé la case est bien cochée mais en
griseé


merci pour ta reponse
ge

"Pascal Engelmajer" a écrit dans le
message de news:e1C%
Salut,
Si c'est un objet formulaire (comme cela est sous-entendu) ça peut être
de

cette forme :
Dim objExcel As Object
On Error Resume Next
Set objExcel = GetObject(Class:="Excel.Application")
On Error GoTo 0
If objExcel Is Nothing Then
Set objExcel = CreateObject("Excel.Application")
End If
'Casedefaut étant bien identifiée
objExcel.workSheets("Dossier toto").CheckBoxes("CaseOui").Value > > Casedefaut.Value


--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
"gerard" a écrit dans le message de news:
brfhr1$iuc$
bonjour

milles excuses pour le pôste precedent

j'ai crée une petite appli interface access et une feuille Excel.

j'ai sur mon interface une case a cocher
Casedefaut
et sur ma feuil excel egalement une case a cocher
CaseOui
j'ai declaré mon objet excel et j'arrive tres bien a remplir une
cellule



dans excel de la valeur de mon TxtNom .value par exemple .
du style
ObjExcel.workSheets("Dossier toto").range("A15").value > > > Form_Dossier.TxtNom.value
le prob est la case a cocher.je voudrais quand ma case a cocher sur
acces


est cochée , la case a cocher dans excel deviennent cochée.

merci beaucoup pour votre aide
ge












Avatar
gerard
salut
tu as bien essayeé avec des case acocher faite a partir de la barre d'outil
VB

"Pascal Engelmajer" a écrit dans le
message de news:
salut,
j'ai testé sur mon poste (en ouvrant le fichier xls ce qui était omis
dans

mon précédent mail)
la case n'est pas grisée (elle n'est pas disabled)
-
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
"gerard" a écrit dans le message de news:
brfl5j$1ks$
bonsoir
merci pour ta reponse
en fait la case acochée est faite depuis la bare d'outil visual basic
j'ai dejà fait ce que tu m'a proposé la case est bien cochée mais en
griseé


merci pour ta reponse
ge

"Pascal Engelmajer" a écrit dans le
message de news:e1C%
Salut,
Si c'est un objet formulaire (comme cela est sous-entendu) ça peut
être



de
cette forme :
Dim objExcel As Object
On Error Resume Next
Set objExcel = GetObject(Class:="Excel.Application")
On Error GoTo 0
If objExcel Is Nothing Then
Set objExcel = CreateObject("Excel.Application")
End If
'Casedefaut étant bien identifiée
objExcel.workSheets("Dossier toto").CheckBoxes("CaseOui").Value > > > Casedefaut.Value


--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
"gerard" a écrit dans le message de news:
brfhr1$iuc$
bonjour

milles excuses pour le pôste precedent

j'ai crée une petite appli interface access et une feuille Excel.

j'ai sur mon interface une case a cocher
Casedefaut
et sur ma feuil excel egalement une case a cocher
CaseOui
j'ai declaré mon objet excel et j'arrive tres bien a remplir une
cellule



dans excel de la valeur de mon TxtNom .value par exemple .
du style
ObjExcel.workSheets("Dossier toto").range("A15").value > > > > Form_Dossier.TxtNom.value
le prob est la case a cocher.je voudrais quand ma case a cocher sur
acces


est cochée , la case a cocher dans excel deviennent cochée.

merci beaucoup pour votre aide
ge
















Avatar
Pascal Engelmajer
salut,
case à cocher créée dans Excel par :
Dim ctrl
Set ctrl = WorkSheets("Dossier
toto").OLEObjects.Add(ClassType:="Forms.CheckBox.1", Link:úlse, _
DisplayAsIcon:úlse, Left:0, Top:0, Width: 0, Height _
:@)
ctrl.Name = "caseNon"
en tous cas ce qui suit (dans Access) rend la case Enabled ( non grisée):
objExcel.WorkSheets("Dossier toto").caseNon.Enabled = True
objExcel.WorkSheets("Dossier toto").caseNon.Value = True
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
"gerard" a écrit dans le message de news:
brfos1$3he$
salut
tu as bien essayeé avec des case acocher faite a partir de la barre
d'outil

VB

"Pascal Engelmajer" a écrit dans le
message de news:
salut,
j'ai testé sur mon poste (en ouvrant le fichier xls ce qui était omis
dans

mon précédent mail)
la case n'est pas grisée (elle n'est pas disabled)
-
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
"gerard" a écrit dans le message de news:
brfl5j$1ks$
bonsoir
merci pour ta reponse
en fait la case acochée est faite depuis la bare d'outil visual basic
j'ai dejà fait ce que tu m'a proposé la case est bien cochée mais en
griseé


merci pour ta reponse
ge

"Pascal Engelmajer" a écrit dans
le



message de news:e1C%
Salut,
Si c'est un objet formulaire (comme cela est sous-entendu) ça peut
être



de
cette forme :
Dim objExcel As Object
On Error Resume Next
Set objExcel = GetObject(Class:="Excel.Application")
On Error GoTo 0
If objExcel Is Nothing Then
Set objExcel = CreateObject("Excel.Application")
End If
'Casedefaut étant bien identifiée
objExcel.workSheets("Dossier toto").CheckBoxes("CaseOui").Value > > > > Casedefaut.Value


--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il
va."




Sénèque.
http://www.ilyapa.net/excel
"gerard" a écrit dans le message de news:
brfhr1$iuc$
bonjour

milles excuses pour le pôste precedent

j'ai crée une petite appli interface access et une feuille Excel.

j'ai sur mon interface une case a cocher
Casedefaut
et sur ma feuil excel egalement une case a cocher
CaseOui
j'ai declaré mon objet excel et j'arrive tres bien a remplir une
cellule



dans excel de la valeur de mon TxtNom .value par exemple .
du style
ObjExcel.workSheets("Dossier toto").range("A15").value > > > > > Form_Dossier.TxtNom.value
le prob est la case a cocher.je voudrais quand ma case a cocher
sur





acces
est cochée , la case a cocher dans excel deviennent cochée.

merci beaucoup pour votre aide
ge




















Avatar
michdenis
Bonjour Gérard,

En parlant de la case à cocher,
"faite avec la barre Visual basic "

Pour des contrôles dans une feuille de calcul, je ne connais que 2 barres d'outils

A ) Contrôle ( ou commande version excel 97)

B ) Formulaire


Si tu te sers d'un contrôle provenant d'ailleurs, il faut expliquer son origine !


Salutations!


"gerard" a écrit dans le message de news:brfkuj$ifn$
bonjour,
merci michel
Bon je reprend tout
j'ai une application acces qui est ouverte il y a dessus entre autre une
case a cochée
je veux enregistrer toute les champs qui sont sur mon interface acces sur
une feuille excel qui existe dejà
je l'appelle donc
Set objExcel = CreateObject("Excel.Application")
le chemin de excel appele est
Chem=CurrentProject.path & "" & "MonDossier.xls"
le fichier est ouvert mais non visible
ObjExcel.Workbooks.Open(Chem)
jusque la il n'y a pas de prob, je rempli les cellules desirées avec les
valeurs de mes champs depuis access, mais je n'y arrive pas avec la case a
cochée
eX si la case d'acces est cochée je veux que la case dans excel soit cochée.
la case dans exel est faite avec la barre Visual basic et je voudrais que
sur excel la case soit t (si c'est le cas) coche donc bien blanche avec la
coche , pas en grisé...
j'espere que je n'ai rien oublié

ou peut etre merci denis
merci a tous les deux
ge

"michdenis" a écrit dans le message de
news:O1jMj$
Bonjour Gérard,

Est-ce que tu peux préciser ce que tu tentes de faire :

Ta case à cocher est sur une feuille excel et elle provient de quelle
barre d'outils ? Formulaire ou Contrôle ?


Le code de la procédure est écrit dans un module de ton classeur excel ou
Access ?


Quel est le nom de ta base de données ? Nom de ton formulaire de ta base
de données ?


Est-ce que tes 2 applications sont ouvertes au moment de lancer la
procédure ?



Salutations!




"gerard" a écrit dans le message de
news:brfhr1$iuc$

bonjour

milles excuses pour le pôste precedent

j'ai crée une petite appli interface access et une feuille Excel.

j'ai sur mon interface une case a cocher
Casedefaut
et sur ma feuil excel egalement une case a cocher
CaseOui
j'ai declaré mon objet excel et j'arrive tres bien a remplir une cellule
dans excel de la valeur de mon TxtNom .value par exemple .
du style
ObjExcel.workSheets("Dossier toto").range("A15").value > Form_Dossier.TxtNom.value
le prob est la case a cocher.je voudrais quand ma case a cocher sur acces
est cochée , la case a cocher dans excel deviennent cochée.

merci beaucoup pour votre aide
ge





Avatar
gerard
salut a tous et merci
bon je crois que je complique tout je vais essayer de reprndre depuis le
debut

j'ai une feuille excel dans laquelle j'ai crée avec la barre d'outil " Boite
à outils controle" une case a cochée que j'ai nomée dans la barre de formule
,en haut a gauche "ChkTelFixe" et j'ai donc egalement dans ma barre de
formule = INCORPORER("Forms.CheckBox.1";"")

j'ai dans une interface Access nommée "Dossier" une case a cochée nomée
"CchPersoFix".
pour mon info. en prog quand cette case est cochée elle a bien pour valeur 1
et decochée la valeur 0
je continue:
quand je clic sur un bouton imprimer par exemple certains renseignements de
mon interface acces doivent aller renseigner une feuille Excel "Toto"
et donc quand dans mon interface la case a cochée "CchPersoFix" est validée
je voudrais que la case a cochée dans excel donc "ChkTelFixe" soit egalement
validée

dans mon appli acces j'appel ma feuille excel avec
Set objExcel = CreateObject("Excel.Application")
et je rempli dejà certains champs avec par exemple
ObjetExcel.Worksheets("Toto").range("A1")=form_Dossier.TxtNom.value

et donc je pensais pour les case a cocher faire du style
if Form_Dossier.CchPersoFix.value= 1 then
ObjetExcel.Worksheets("Toto").ChkTelFixe.value ="Vrai"
end if
et ca pas l'air de fonctionner

merci à tous
j'espere avoir ete un peu plus clair
'ai egalement le meme prob avec une case option mais je pense que le
principe est ensuite le meme
ge

"gerard" a écrit dans le message de
news:brfhr1$iuc$
bonjour

milles excuses pour le pôste precedent

j'ai crée une petite appli interface access et une feuille Excel.

j'ai sur mon interface une case a cocher
Casedefaut
et sur ma feuil excel egalement une case a cocher
CaseOui
j'ai declaré mon objet excel et j'arrive tres bien a remplir une cellule
dans excel de la valeur de mon TxtNom .value par exemple .
du style
ObjExcel.workSheets("Dossier toto").range("A15").value > Form_Dossier.TxtNom.value
le prob est la case a cocher.je voudrais quand ma case a cocher sur acces
est cochée , la case a cocher dans excel deviennent cochée.

merci beaucoup pour votre aide
ge




Avatar
Pascal Engelmajer
salut,
ObjetExcel.Worksheets("Toto").ChkTelFixe.value ="Vrai"
me semble faux car value et de typez booleen

ObjetExcel.Worksheets("Toto").ChkTelFixe.value =true
doit convenir

--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
"gerard" a écrit dans le message de news:
brhctb$lrv$
salut a tous et merci
bon je crois que je complique tout je vais essayer de reprndre depuis le
debut

j'ai une feuille excel dans laquelle j'ai crée avec la barre d'outil "
Boite

à outils controle" une case a cochée que j'ai nomée dans la barre de
formule

,en haut a gauche "ChkTelFixe" et j'ai donc egalement dans ma barre de
formule = INCORPORER("Forms.CheckBox.1";"")

j'ai dans une interface Access nommée "Dossier" une case a cochée nomée
"CchPersoFix".
pour mon info. en prog quand cette case est cochée elle a bien pour valeur
1

et decochée la valeur 0
je continue:
quand je clic sur un bouton imprimer par exemple certains renseignements
de

mon interface acces doivent aller renseigner une feuille Excel "Toto"
et donc quand dans mon interface la case a cochée "CchPersoFix" est
validée

je voudrais que la case a cochée dans excel donc "ChkTelFixe" soit
egalement

validée

dans mon appli acces j'appel ma feuille excel avec
Set objExcel = CreateObject("Excel.Application")
et je rempli dejà certains champs avec par exemple
ObjetExcel.Worksheets("Toto").range("A1")=form_Dossier.TxtNom.value

et donc je pensais pour les case a cocher faire du style
if Form_Dossier.CchPersoFix.value= 1 then
ObjetExcel.Worksheets("Toto").ChkTelFixe.value ="Vrai"
end if
et ca pas l'air de fonctionner

merci à tous
j'espere avoir ete un peu plus clair
'ai egalement le meme prob avec une case option mais je pense que le
principe est ensuite le meme
ge

"gerard" a écrit dans le message de
news:brfhr1$iuc$
bonjour

milles excuses pour le pôste precedent

j'ai crée une petite appli interface access et une feuille Excel.

j'ai sur mon interface une case a cocher
Casedefaut
et sur ma feuil excel egalement une case a cocher
CaseOui
j'ai declaré mon objet excel et j'arrive tres bien a remplir une cellule
dans excel de la valeur de mon TxtNom .value par exemple .
du style
ObjExcel.workSheets("Dossier toto").range("A15").value > > Form_Dossier.TxtNom.value
le prob est la case a cocher.je voudrais quand ma case a cocher sur
acces


est cochée , la case a cocher dans excel deviennent cochée.

merci beaucoup pour votre aide
ge