Affectation macro condition If

kartnemaniac Messages postés 3 Date d'inscription Statut Membre Dernière intervention -
kartnemaniac Messages postés 3 Date d'inscription Statut Membre Dernière intervention - 29 juin 2017 à 12:08

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!

Afficher la suite

A voir également:

Affectation macro condition If
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Excel cellule couleur si condition texte - Guide
Jitbit macro recorder - Télécharger - Confidentialité
Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Macro word - Guide

1 réponse

Réponse 1 / 1

jordane45 Messages postés 38486 Date d'inscription Statut Modérateur Dernière intervention 4 752

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

kartnemaniac Messages postés 3 Date d'inscription Statut Membre Dernière intervention

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!

jordane45 Messages postés 38486 Date d'inscription Statut Modérateur Dernière intervention 4 752 > kartnemaniac Messages postés 3 Date d'inscription Statut Membre Dernière intervention

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 ..

kartnemaniac Messages postés 3 Date d'inscription Statut Membre Dernière intervention

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..

Discussions similaires

comment intégrer une fonction SI dans un champ calculé

Transformer un chiffre en lettres dans excel sans macro

recup couleur de cellule sans macro

Copie automatique tableau Excel sans macro

Votre réponse

Discussions similaires