Checkbox error

[samkriss]

Je souhaite affiche quelque chose dans la cellule D18 a condition que la Checkbox8 soit vrai.

Voila mon bon de code:

Sub CheckBox_Email()

If CheckBox8.Value = True Then
[D18] = [G8] + "." + [B8] + "@test.com"
Else
Exit Sub
End If
End Sub

Le probleme est que j'ai une erreur : run-time error 424 objet required.
Visiblement, il y a un probleme avec CheckBox8.Value = True .
J'ai essayer pas mal de chose que j'ai vu sur le forum comme activesheet.checkboxes,mais je ne trouve pas


merci de voter aide

Samkriss

 

[Guest]

Re : Checkbox error

Bonjour,

L'erreur que je vois est celle-ci:

[D18] = [G8] + "." + [B8] + "@test.com"

Au lieu de

[D18] = [G8] &  "." &  [B8] &  "@test.com"

A+

 

[samkriss]

Re : Checkbox error

Merci pour la correction.
Mais le message d'erreur est toujours le meme, il n'y avait donc opas que ca comme erreur.

A suivre...

 

[Pierrot93]

Re : Checkbox error

Bonjour Sankriss, Hasco

le nom de l'objet diffère...

Sub [B][COLOR="Red"]CheckBox_Email[/COLOR][/B]()

If [COLOR="red"][B]CheckBox8[/B][/COLOR].Value = True Then

tu as 2 objets ? car les noms sont différents dans ton code... sinon peut être savoir où se trouve ta "checkbox", USF ou feuille de calcul, si feuille de calcul, si c'est un controle de la boite à outils controles ou de la barre d'outils formulaire...

bon après midi
@+

 

[samkriss]

Re : Checkbox error

Merci Pierrot93,

desormais les noms sont identique, mais toujours une erreur, differente cette fois: Compile error: expected function or variable

Pour repondre a ta question il s'agit d'une checkbox sur une feuille de calcul et elle provient de la barre d'outil formulaire.

Sub CheckBox8()

If CheckBox8.Value = True Then
[D18] = [G8] & "." & [B8] & "@test.com"
Else
Exit Sub
End If
End Sub

 

[13GIBE59]

Re : Checkbox error

Bonjour tout le monde.

Essaie de changer le nom de ta sub, qui reprend en partie le nom de ta checkbox. Parfois à cause de ça, ça coince.

PS : pour info : tu peux remplacer

CheckBox8.Value = True

par

CheckBox8

et

CheckBox8.Value = False

par

Not CheckBox8

 

[Dull]

Re : Checkbox error

Salut samkriss Ges🙂, Pierrot🙂 le Forum

As tu essayé cela

[B]Private Sub CheckBox8_Click()[/B]
If CheckBox8 = True Then
[D18] = [G8] & "." & [B8] & "@test.com"
Else
Exit Sub
End If
End Sub

Ou alors ça

Private Sub CheckBox8_Click()
[D18] = IIf(CheckBox8 = True, [G8] & "." & [B8] & "@test.com", "")
End Sub

A tester
EDITION: Salut JB
Bonne Journée

 

[samkriss]

Re : Checkbox error

Salut Dull,

Oui j'ai deja teste, la je n'ai aucun message d'erreur, je peux cocher ou decocher la case comme je veux, mais ne s'ecrit dans la case D18.

 

[Pierrot93]

Re : Checkbox error

Re, bonjour gibe, salut Dull🙂

Pour un controle de la barre d'outils formulaire :

If ActiveSheet.Shapes("Check Box 1").DrawingObject.Value = 1 Then

@+

 

[Dull]

Re : Checkbox error

Re le fil

Essaye ce fichier

Bonne Journée

 

[samkriss]

Re : Checkbox error

Et le vainqueur est : PIERROT93

Merci a toi et a vous tous pour le temps que vous y avait passe.

 

[Dull]

Re : Checkbox error

Re re Le fil

NomDeZeus...BoiteàOutilFormulaire... Je m'en donne 2 et je retient 1 ...Heureusement que Pierrot🙂 lit mieux que moi

Bonne Journée

 

[Pierrot93]

Re : Checkbox error

Re, bonjour carcharodon-carcharias

@ carcharodon-carcharias
pas une question de logique, voir post n°5, j'avais demandé dans le 4....

Pour repondre a ta question il s'agit d'une checkbox sur une feuille de calcul et elle provient de la barre d'outil formulaire.

bonne fin d'près midi
@+