Discussion :

[yougmeaz]

Bonjour à toutes et à tous,

Tout d'abord j'aimerais remcercier Heureux-oli pour tous les tutos mis à dispo gratutitement en VBA car étant novice j'ai beaucoup appris grâce à cela !

Cependant, j'ai un soucis avec une condition que j'aimerais enregister :

Je souhaiterais, dans un boutton imprimer, qu'il vérifie que soit la checkbox 1, 2 ou 3 soit cochée avant qu'il execute un ActiveDocument.PrintOut

Je ne sais pas si je suis très clair mais merci par avance pour vos lumières !

Hugo

[Heureux-oli]

Salut,

Dans ta routine, tu mets simplement un test

Code :

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

If CheckBox1 Then ....

[yougmeaz]

Merci !

Mais je ne dois pas bien m'y prendre :

Code :

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

1
2
3
4
5
6
7
Private Sub CommandButton11_Click()
If Checkbox1 Then
ActiveDocument.SendMail
Else
msgbox "Choisissez un véhicule"
End If
End Sub

Merci

[Heureux-oli]

Salut,

En mode debug, ça donne quoi ?

Si tu as trois cases à cocher, dans ce code, tu n'en traite qu'une.

Ta case à cocher se trouve où, sur le document, un UserForm ?

[yougmeaz]

Bien quand j'execute la commande il m'affiche le msgbox quoi case cochée ou non

Sinon j'ai effectivement 3 cases à vérifier (une seule doit être cochée) mais je voulais tester sur une seule pour voir ce que ça donnerait.

Ma case se trouve directement dans le document

[Heureux-oli]

Salut,

Tes cases à cocher sont de quel type (Champ de formulaire hérité, content control ou activeX) ?

Pero, pour ce genre de chose, je préfère passer par des UserForm's.

[yougmeaz]

C'est ni du hérités ni du ActiveX donc très certainnement content control, cela dit j'ai essayé avec du hérité et j'obtiens le même résultat.

Merci

[Heureux-oli]

Salut,

Selon le type de case à cocher, on y accède pas de la même manière.

Pour un champ de formulaire hérité ActiveDocument.FormFields("MaCaseACocher").Result.

[yougmeaz]

Effectivement, ca fonctionne bien quand je passe sur des objets "formulaires hérités" merci beaucoup

Mais je serais vraiment intéressé de savoir comment fonctionne la condition avec du content control , j'essaie depuis le début d'AM mais je ne trouve pas

[Heureux-oli]

Salut,

De cette manière : activedocument.ContentControls(1).Checked

[yougmeaz]

Salut !

Code :

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

1
2
3
4
5
6
7
Private Sub CommandButton11_Click()
If ActiveDocument.ContentControls(1).Checked = True Then
ActiveDocument.SendMail
Else
msgbox "Merci de signer le document"
End If
End Sub

Il me met : Cette propriété est disponible uniquement pour les contrôles de de case à cocher

J'imagine que c'est par ce que je ne lui ai pas précisé de quelle case je parlais, mais je ne vois pas ou donner cette info dans l'expression

merci encore

[Heureux-oli]

Salut,

Le 1 est l'index du contentcontrol.
On peut utiliser son nom ("LeNom") au lieu de (1)

[yougmeaz]

Bonjour !

Rien a faire je n'arrive pas à faire réfférence au nom du content control... j'ai opté pour la technique de l'index

Merci pour ton aide !

Et pour ce qui se poseraient la question, pour un content control de texte c'est

Code :

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

ActiveDocument.ContentControls(7).Range = "Cliquez ici pour entrer une date." Then ...

[yougmeaz]

Re bonjour à ceux qui passent par là !

Je m'obstine à vouloir trouver une solution mais en vain...

Existe t'il un autre moyen de sélectionner du content control autre que l'index ?

Quand j'essaie de remplacer (1) par ("nomducontentcontrol") il ne comprend pas...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub test()
 
If ActiveDocument.ContentControls("texte").Range = "ok" Then
MsgBox "hourra!"
Else
 
End If
 
 
 
End Sub

Contrairement à un formfield lorsque j'utilise un champs de formulaire hérité, où la cela fonctionne bien

[EnProjet]

Si ça peut aider...

Après plusieurs essais, les contrôles de contenu sont numérotés automatiquement de gauche à droite et de haut en bas
Ce qui veut dire que si tu en ajoute un au début par exemple, ton "ancien" premier, quel que soit sont type "case à cocher, liste déroulante, etc., devient, de facto, le numéro 2.

Tu dois donc, pour le contrôler, connaitre sa position (son numéro) et son type

Pour info, "Title" et "Tag" te renvoient respectivement le titre et la balise de ton contrôle

[yougmeaz]

Bonjour EnProjet et merci pour ta réponse

Je me suis résigné à utiliser les formfieds qui sotn beaucoup plus pratiques bien que moins ergonomique.

le truc c'est que j'ai entre 15 et 30 champs par formulaire donc la modification est très pénible en cas d'ajout/suppression de champs ...

Merci en tout cas @+