Affectation macro condition If

kartnemaniac Messages postés 3 Statut Membre -
kartnemaniac Messages postés 3 Statut Membre - 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
Macro word - Guide
Macro recorder - Télécharger - Divers Utilitaires
Excel cellule couleur si condition texte - Guide
Excel condition ou - Guide

1 réponse

Réponse 1 / 1
jordane45 Messages postés 30426 Date d'inscription Statut Modérateur Dernière intervention 4 830
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
1. 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
  1. jordane45 Messages postés 30426 Date d'inscription Statut Modérateur Dernière intervention 4 830 > 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
2. 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

Affectation macro condition If

1 réponse

Discussions similaires

Newsletters