Discussion :

[apb62]

Bonjour à Tous

à la suite de la création des noms de lignes avec la commande NommerLignesGIEL2() je cherche à créé un code vba qui réalise ceci:

Pour réaliser des graphiques avec des cases à cocher je cherche un code vba
qui reprend les noms precedent avec le prefixe "graph" et qui contient par exemple:
graphgiel2trebernard : =si(GIEL2!$B$4;giel2trebernard;transp)

Merci pour votre aide

Cordialement

APB

[apb62]

Bonjour à Tous

J'ai, en cherchant dans le forum, trouvé cette formule:

Code vba :

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

1
2
3
4
5
6
 
Private Sub CheckBox1_Click()
Dim Resultat As String
Resultat = IIf(Sheets("Feuil1").CheckBox1.Value = True, "Coché", "Décoché")
MsgBox Resultat
End Sub

Je cherche à l'adapter à mon besoin, mais je suis néophite en vba,

Je voudrais que quand la case est :

cochée Resultat prend la valeur d'un nom de cellules "cocher" (=GIEL2!$D$10:$BO$10)

Non coché Resultat prend la valeur d'un autre nom de cellules "decocher" (=GIEL2!$D$24:$BO$24)

Merci pour votre aide

Cordialement

APB

[ouskel'n'or]

As-tu un CheckBox1 ou non ?
J'ai bien compris que si coché, tu souhaites que Resultat prend une valeur et si décoché Résultat en prend une autre...
Par contre, je ne comprends pas

cochée Resultat prend la valeur d'un nom de cellules "cocher" (=GIEL2!$D$10:$BO$10)

Tu veux mettre la formule ? Ou bien le nom de la cellule dans Resultat ?
Tu veux donner un nom à la formule ?
Donne un exemple de Resultat, ex :
Resultat = "=GIEL2!$D$10:$BO$10"
A+

NB - J'ai dû regarder dans l'aide pour Iif que je ne connaissais pas

Edit
Testé
En fait, avec Iif, tu fais ce que tu veux
Iif(Expression testée, Réponse si vrai, Réponse si faux)

Code :

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

MsgBox IIf(4 + 4 = 8, "C'est vrai", "C'est faux")

Suffit que tu saches quoi mettre dans expression. Ça évite les else.
A+

NB - J'ai fusionné tes deux discussions puisque l'objet est le même

[apb62]

Bonsoir et merci pour votre aide

si je comprend bien je dois ecire le code suivant

Code :

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

1
2
3
4
Private Sub CheckBox1_Click()
Dim Resultat As String
Resultat = IIf(Sheets("GIEL2").CheckBox1.Value = True, "GIEL2!$D$10:$BO$10", "GIEL2!$D$24:$BO$24")
End Sub

Je dois conserver les guillemés ou les enlever

Dans le fichier joint je voudrais automatiser ce code pour les lignes de 4 à 23

une boucle For Next peut être

Merci de votre patience pour un néophite

Cordialement

APB

[ouskel'n'or]

Ce que tu as mis semble correct mais je ne comprends pas, tu souhaite que résultat prenne la valeur de la plage $D$10:$BO$10 ? Ou ne veux-tu que la formule ?
En outre, tu n'as que deux options et qu'un seul "Resultat". Tu vas être obligé d'utiliser un tableau Resultat(19)
Je voudrais bien t'aider mais faut tout me dire, chuis un peu perdu quant à ton but
A+