Affectation macro condition If

kartnemaniac Messages postés 3 Statut Membre -  
kartnemaniac Messages postés 3 Statut Membre -
Bonjour,

Voilà je suis sur Mac (il n'y a donc pas le contrôle ActiveX) et je veux affecter une macro à une case à cocher.

Mais quand je veux créer le programme ça me met erreur d'éxécution 424 et vba me dit que la ligne avec if a un problème.

Je vous mets la le programme ci dessous: 
Sub Caseàcocher5_Cliquer()

If Caseàcocher5.Value = True Then   -> (c'est cette ligne qui plante)

[Devis!E43] = "Remise de"

[Devis!F43] = [E14]

[Devis!H43] = [Devis!H42] * [E14]

Else: [Devis!E43,Devis!F43,Devis!H43] = ""

End If

End Sub



EDIT : Ajout des balises de code (la coloration syntaxique).
Explications disponibles ici :ICI

Merci d'y penser dans tes prochains messages.


Voilà merci!
A voir également:

1 réponse

Réponse 1 / 1
jordane45 Messages postés 40050 Date d'inscription   Statut Modérateur Dernière intervention   4 758
 
Bonjour,

Une première piste ... tu es sûr du "nom" de ta case ?
Pourrais tu lancer la macro suivante et nous dire ce que ça t'a retourné ? 

Sub getShapesName()
  For Each Sha In ActiveSheet.Shapes
       MsgBox Sha.Name
  Next
End Sub

0
kartnemaniac Messages postés 3 Statut Membre
 
Merci pour ta réponse!

Et bien normalement oui, le nom caseàcocher6 et celui qui s'affiche quand je veux affecter une macro!
Pour ton programme, quand je lance cette macro ça me met un pop up d'une fenêtre microsoft avec d'abord check box 1 puis text box 1 puis check box 2 et enfin check box 6!
0
jordane45 Messages postés 40050 Date d'inscription   Statut Modérateur Dernière intervention   4 758 > kartnemaniac Messages postés 3 Statut Membre
 
Tu nous parles de la case 6 ... hors ton code fait référence à la case 5 .... Oo ??

Ensuite... il faut éviter les caractères accentué dans le nom des variables (ou objets).
Et enfin.. je pense qu'il faut utiliser le nom "checkbox6" au lieu de caseàcocher6 ..
0
kartnemaniac Messages postés 3 Statut Membre
 
Désolé je voulais dire caseàcocher5 !

J'ai essayé avec Checkbox6 mais c'est toujours la même ligne qui plante: 

<code>Sub Checkbox6_Click()

If Checkbox6.Value = True Then   -> (c'est cette ligne qui plante)

[Devis!E43] = "Remise de"

[Devis!F43] = [E14]

[Devis!H43] = [Devis!H42] * [E14]

Else: [Devis!E43,Devis!F43,Devis!H43] = ""

End If

End Sub
</code>

J'arrive pas à comprendre pourquoi..
0

Discussions similaires

Transformer un chiffre en lettres dans excel sans macro
vincentphilippos -
tontong -

6 réponses
comment intégrer une fonction SI dans un champ calculé
vg42 -
vera -

2 réponses
recup couleur de cellule sans macro
magouero -
JvDo -

7 réponses
A quoi sert la sortie IF OUT démodulateur?
LesNulsCCM -
Graffitir -

3 réponses
Copie automatique tableau Excel sans macro
sodwac -
sodwac -

5 réponses