(Excel VB) macro erreur synthaxe

Résolu
olive60 Messages postés 253 Date d'inscription   Statut Membre Dernière intervention   -  
olive60 Messages postés 253 Date d'inscription   Statut Membre Dernière intervention   -
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:

9 réponses

Réponse 1 / 9
ShaBoo
 
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
0
Réponse 2 / 9
olive60 Messages postés 253 Date d'inscription   Statut Membre Dernière intervention   27
 
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
0
Réponse 3 / 9
ShaBoo
 
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 ;)))
0
Réponse 4 / 9
olive60 Messages postés 253 Date d'inscription   Statut Membre Dernière intervention   27
 
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...
0

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   Statut Membre Dernière intervention   27
 
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
0
Réponse 6 / 9
zefoots Messages postés 146 Date d'inscription   Statut Membre Dernière intervention   62
 
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()
0
Réponse 7 / 9
eriiic
 
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
0
Réponse 8 / 9
fifi08
 
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
0
Réponse 9 / 9
olive60 Messages postés 253 Date d'inscription   Statut Membre Dernière intervention   27
 
OUIIIIIII

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

Enfin maintenant ca fonctionne plutot pas mal!!!

MERCI LES GARS !!

A+

Olive
0

Discussions similaires

Erreur 3005 sur France TV
Cambodgil -
PK -

5 réponses
Transformer un chiffre en lettres dans excel sans macro
vincentphilippos -
tontong -

6 réponses