(Excel VB) macro erreur synthaxe

Résolu/Fermé

olive60 Messages postés 253 Date d'inscription vendredi 7 septembre 2007 Statut Membre Dernière intervention 21 décembre 2010 - 11 sept. 2007 à 17:55
olive60 Messages postés 253 Date d'inscription vendredi 7 septembre 2007 Statut Membre Dernière intervention 21 décembre 2010 - 11 sept. 2007 à 23:10

REbonjour,

J'ai essayé ta formule mais effectivement il ya une erreur de synthaxe...

Tu vois où??? voici mes deux checkbox:

Private Sub CheckBox1_Click()

If CheckBox2.IsSelected Then End Sub
Else

Range("C47").Select
ActiveCell.FormulaR1C1 = "0.48%"
Range("C56").Select
ActiveCell.FormulaR1C1 = "0.28%"
Range("C65").Select
ActiveCell.FormulaR1C1 = "0.43%"
Range("C66").Select
ActiveCell.FormulaR1C1 = "0.30%"
End Sub

Private Sub CheckBox2_Click()

If CheckBox1.IsSelected Then End Sub
Else

Range("C47").Select
ActiveCell.FormulaR1C1 = "0.60%"
Range("C56").Select
ActiveCell.FormulaR1C1 = "0.35%"
Range("C65").Select
ActiveCell.FormulaR1C1 = "0.54%"
Range("C66").Select
ActiveCell.FormulaR1C1 = "0.38%"
End Sub

Je suis novice en Visual basic dc j'ai pas bcp d'experience de formulations!!!

Merci si tu peux encore m'aider!!

Olive

A voir également:

(Excel VB) macro erreur synthaxe
Erreur 0x80070643 - Guide
Liste déroulante excel - Guide
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Formule excel - Guide
Si et excel - Guide

9 réponses

Réponse 1 / 9

ShaBoo
11 sept. 2007 à 18:13

Private Sub CheckBox1_Click()

If CheckBox2.IsSelected Then

Exit

Else

Range("C47").Select
ActiveCell.FormulaR1C1 = "0.48%"
Range("C56").Select
ActiveCell.FormulaR1C1 = "0.28%"
Range("C65").Select
ActiveCell.FormulaR1C1 = "0.43%"
Range("C66").Select
ActiveCell.FormulaR1C1 = "0.30%"

EndiF

End Sub

Réponse 2 / 9

olive60 Messages postés 253 Date d'inscription vendredi 7 septembre 2007 Statut Membre Dernière intervention 21 décembre 2010 27
11 sept. 2007 à 18:19

Bonjour, merci pour ta réponse.

Il y a encore une erreur de synthaxe... apparemment ca bloque sur le Exit...

Merci si tu peux encore m'aider.

Olive

Réponse 3 / 9

ShaBoo
11 sept. 2007 à 18:24

Private Sub CheckBox1_Click()

If CheckBox2.IsSelected Then

Exit Sub

Else

Range("C47").Select
ActiveCell.FormulaR1C1 = "0.48%"
Range("C56").Select
ActiveCell.FormulaR1C1 = "0.28%"
Range("C65").Select
ActiveCell.FormulaR1C1 = "0.43%"
Range("C66").Select
ActiveCell.FormulaR1C1 = "0.30%"

EndiF

End Sub

RTFM ;)))

Réponse 4 / 9

olive60 Messages postés 253 Date d'inscription vendredi 7 septembre 2007 Statut Membre Dernière intervention 21 décembre 2010 27
11 sept. 2007 à 18:28

ARRRGGHHH !!!

Désolé :

Ca donne "erreur d'execution "438" propriete ou méthode non gérée par cet objet"

Mais ou est cette erreur!!!!!

En tout cas merci de ton aide...

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 9

olive60 Messages postés 253 Date d'inscription vendredi 7 septembre 2007 Statut Membre Dernière intervention 21 décembre 2010 27
11 sept. 2007 à 18:52

Si qq un a une idée... sur la question, je suis preneur!!!

pour résumer si c'est pas clair : je voudrais que l'on ne puisse pas cocher la checkbox 1 si la checkbox 2 est deja cochée et vice et versa...

Merci d'avance pour votre aide !!

Olive

Réponse 6 / 9

zefoots Messages postés 146 Date d'inscription samedi 9 juin 2007 Statut Membre Dernière intervention 11 septembre 2007 62
11 sept. 2007 à 19:13

Salut

Private Sub CheckBox1_Click() 
    If CheckBox2.IsSelected Then 
        Exit Sub
    End If

    Range("C47").Select
    ActiveCell.FormulaR1C1 = "0.48%"
    Range("C56").Select
    ActiveCell.FormulaR1C1 = "0.28%"
    Range("C65").Select
    ActiveCell.FormulaR1C1 = "0.43%"
    Range("C66").Select
    ActiveCell.FormulaR1C1 = "0.30%"
End Sub

Pareil pour CheckBox2_Click()

Réponse 7 / 9

eriiic
11 sept. 2007 à 20:32

Bonjour,

remplace CheckBox2.IsSelected par CheckBox2.Value

et tu n'es pas obligé de selectionner une cellule pour la modifier, ex:
Range("C47").Value = "0.48%"

cdt

Réponse 8 / 9

fifi08
11 sept. 2007 à 20:42

comment dans une cellule introduire cette condition:

si le résultat de (2007-(autre cellule))=0 lerésulat affiché sera 1

merci d' avance
je débute dans excel

Réponse 9 / 9

olive60 Messages postés 253 Date d'inscription vendredi 7 septembre 2007 Statut Membre Dernière intervention 21 décembre 2010 27
11 sept. 2007 à 23:10

OUIIIIIII

MErci a vous deux vous vous etes complété !!!

Enfin maintenant ca fonctionne plutot pas mal!!!

MERCI LES GARS !!

A+

Olive

Discussions similaires

Instagram "Désolé, une erreur s'est produite"

Erreur vidéo inconnue sur le Freebox Player

Free erreur 38 : impossible d'envoyer des SMS

Discussions similaires

Newsletters