Discussion :

[Kilin]

Bonjour à tous,

Je suis absolument novice en programmation et je souhaiterais que vous m'aidiez à mettre un projet en page si cela est possible.

Je voudrais afficher des variables sur ma feuille courantes en fonction de cases qui seraient cochées ou non. Je pense qu'il faut obligatoirement passer par des macros mais je ne comprend pas trop comment cela fonctionne.

J'ai bien essayé dans ma feuille courante de placer des cases a cocher mais je n'arrive pas a les assigner à des variables.

Plus concrètement, si la CASEACOCHER1 est cochée, afficher la variable TEXTE1, si elle n'est pas cochée, ne rien afficher.

Quelqu'un aurait une suggestion ?

Merci d'avance,

[Mobydick_62]

Bonjour,

Plus concrètement, si la CASEACOCHER1 est cochée, afficher la variable TEXTE1, si elle n'est pas cochée, ne rien afficher.

Peux tu être plus précis. Qu'est ce que la variable TEXTE1 ? Il s'agit du texte qui se trouve dans un contrôle de texte ?
Et sous quelle forme doit t'elle s'afficher ?
Le mieux serait de mettre en pièce jointe un fichier exemple sur lequel on pourrait travailler.
Cordialement

[Kilin]

Dans un nouveau document texte, j'aimerais en entête de ce document, afficher disons deux CASES A COCHER.

Si la CASE A COCHER1 est cochée, afficher un texte dans ce même document sous ces cases un paragraphe texte qui correspondrait à la CASE A COCHER1 "cochée".
Si la CASE A COCHER1 n'est pas cochée, ne rien afficher voir afficher une autre portion de texte à la place du texte précédent.

La CASE A COCHER2 fonctionnerait de la même manière pour le paragraphe suivant et ainsi de suite ....

[Mobydick_62]

Voici un petit exemple en pièce jointe.
Pour éviter trop de difficultés les cases à cocher sont dans deux tableaux dont les lignes sont transparentes. Ainsi lorsqu'on coche une case le texte s'insère dans la cellule du dessous.
C'est beaucoup plus facile car à chaque clic, j'efface le contenu de la cellule pour mettre le nouveau texte (coché ou décoché)
Cordialement

[Kilin]

Bonjour,

C'est ce que je cherchais a à faire, merci !

Est ce qu'il est possible de faire la même chose en dehors d'un tableau ?
Et peut on avoir une action distincte pour chaque case ? La les deux cases ont la même fonction.

Cordialement,

[Mobydick_62]

Est ce qu'il est possible de faire la même chose en dehors d'un tableau

Peut être mais pas sur. En effet la case à cocher est une forme graphique. Si je clique dessus, je perd la position du curseur d'écriture et je ne trouve pas la solution pour trouver le paragraphe sous cette case à cocher pour écrire le texte. L'avantage du tableau est que "quoi qu'on fasse" je retrouve toujours l'endroit où écrire.
Il y a une possibilité qui est de mettre un repère de texte au niveau de la case à cocher et ensuite de descendre plus bas pour écrire. L'inconvénient est que les repères de texte peuvent être supprimés par erreur et là la macro va planter. L'avantage d'un tableau est que l'on récupère toujours les coordonnées des cellules. Et comme le tableau est transparent (pas de bordure) çà gêne pas beaucoup.
Ne connaissant pas les tenants et les aboutissants complet de ton projet et notamment le fait qu'un tableau puisse te gêner, je ne pourrai t'aider plus.

Et peut on avoir une action distincte pour chaque case ?

Oui on peut avoir une action distincte pour chaque case à cocher. Si les actions sont VRAIMENT distinctes, il suffit de faire autant de macro nécessaires.
Cordialement

[Kilin]

Mobydick_62 merci pour tous vos précieux conseils !

J'ai une dernière question concernant cette case a cocher, est ce qu'on peut assigner une variable qui sera vraie pour cochée, ou fausse non cochée, que je pourrais utiliser dans mon formulaire texte ?

[Mobydick_62]

Oui, on peut déclarer une varaible Boolean qui sera vraie ou fausse (True/False). Par exemple en ajoutant du code

Comme par exemple :

Code :

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

1
2
3
4
5
6
7
8
 Dim bCase1 as Boolean
 If oCase1.State = 1 Then
   sTexte = "Coché"
   bCase1 = True
  Else 
   sTexte = "Décoché"
   bCase1 = False
  End If

[Kilin]

Merci beaucoup c'est ce que je cherchais a faire !

Cordialement,