Discussion :

[embuskade]

Bonjour,

Je suis un débutant sur le vba.

J'aimerais mettre 3 cases à cocher sur ma feuille excel (sans passer par un userform si c'est possible).

J'ai fais une macro avec le code suivant qui marche pas bien sûr.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub teste()
If CheckBox1.Value = False Then (l'erreur est sur cette ligne!!!)
' SMIM+SPI
Range("C16") = "=((C12/100)*D12)+((C13/100)*D13)"
 
ElseIf CheckBox2.Value = 0 Then
' SMI+SPI
Range("C16") = "=((C11/100)*D11)+((C13/100)*D13)"
 
Else
' SMI+SMIM
Range("C16") = "=((C11/100)*D11)+((C12/100)*D12)"
 
End If
End Sub

Je m'arrache les cheveux parce que je comprends pas l'erreur

Merci beaucoup si vous arriviez à me mettre sur la bonne voie

A+

[helios77]

Es-tu sûr qu'elle s'appelle CheckBox1, etc .....

Quel est le message d'erreur ? "Objet requis " je suppose ==> ta checkbox doit s'appeler autrement

[embuskade]

Salut et merci pour ta réponse.

Tu as raison.

L'erreur est "Erreur d'exécution '424': Objet requis"

Justemment j'arrive pas à trouver comment renommer mes checkbox. Je trouve pas.

c'est tout bête je sais mais moi je sais pas comment renommer ces checkbox sur excel.

Pour info, mes checkbox n'ont pas de texte parce qu'elle sont à coté d'un texte contenu dans une cellule.

Es-ce que c'est le texte de remplacement qui donne le nom de la checkbox ???

J'ai de très bonne connaissance ne php et js mais je suis complètement largué sur excel

[helios77]

Un simple clic droit dessus et tu vas trouver propriétés
Tu changes la propriété name

[embuskade]

Si je fais un clique droit dessus j'ai :

"affecter une macro",
"Format de contrôle",
"ordre",
"groupe",
"modifier le texte", etc.

mais pas "propriété"....

Je comprends vraiment pas...

[helios77]

Si tu fais AffecterMacro, il va te proposer un truc du genre
CaseàCocher3_QuandClick

Le nom de ta chekbox est CaseàCocher3

[embuskade]

Merci

J'avais déjà tenté ce coup là mais j'ai toujours la même erreur... Je comprends vraiment rien.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub teste()
If Caseàcocher10.Value = 0 Then
' SMIM+SPI
Range("C16") = "=((C12/100)*D12)+((C13/100)*D13)"
 
ElseIf Caseàcocher11.Value = 0 Then
' SMI+SPI
Range("C16") = "=((C11/100)*D11)+((C13/100)*D13)"
 
Else
' SMI+SMIM
Range("C16") = "=((C11/100)*D11)+((C12/100)*D12)"
 
End If
End Sub

[ouskel'n'or]

Tu la prends où ta case à cocher ?

Le nom apparaît dans la barre de formule à gauche, et là tu peux changer le nom

[zazaraignée]

Ne faudrait-il pas signifier à VBA qu'il s'agit d'une formule de cellule?

Par exemple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("C16").Formula = "=((C11/100)*D11)+((C12/100)*D12)"

Et puis un CheckBox, ça a des événements... Tu mets ton code dans la partie code de ta feuille ou se trouve les CheckBox.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub CheckBox1_Click()
    Call teste
End Sub
 
Private Sub CheckBox2_Click()
    Call teste
End Sub

En passant, évite les caractères accentués dans ton code. Des fois VB les digère mal.

[ouskel'n'or]

(Salut zaza)
Comme embuskade peut affecter une macro à son checkbox, et bien qu'il ne m'ait pas répondu, j'en déduis qu'elle est d'origine "Barre d'outils formulaires...
Auquel cas, voici le code qui lui permet de tout connaître de sa checkbox

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub LaMacroQuiDitTout()
    Worksheets("Feuil1").Shapes("Check Box 4").Select
    With Selection
        If .Value = 1 Then 
            MsgBox " Nom = " & .Name & vbLf & "Texte = " & .Text & vbLf & "valeur = " & .Value
           else
            Msgbox "C'est vraiment n'importe quoi cette valeur " & .value
    End With
End Sub

Une remarque : Tu dois utiliser le nom par défaut de la check box, celui donné par Excel. C'est l'aide qui a dit
Pour connaître le vrai nom, maintenant que tu as tout bidouillé, tu fais une autre macro

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub LaMacroQuiDiQueLesNoms()
For Each LaShape In ActiveSheet.Shapes
     MsgBox LaShape.Name
Next
End Sub

Et respecte les espaces dans les noms quand tu les utilises
A+

[embuskade]

Excusez moi pour mon retard. Je viens de voir vos réponses.

Je vais tout de suite essayer de règler mon problème. Je vous tiens au courrant.

[embuskade]

ouskel'n'or : J'ai essayé ton script (en rajoutant end if )

Les noms de mes 3 checkbox sont : Check Box 10, Check Box 11, Check Box 12. Mais le problème c'est que c'est des noms avec des espaces... Et que si je mets ces noms dans mon script j'aurais encore une erreur.

Il faut que je change les noms ? Si oui comment ?

Merci

[ouskel'n'or]

Non, mets les espaces, tu n'auras pas d'erreur. Mieux : Copie leurs noms dans la feuille de calculs et colle-les tels quels dans ton code.

[embuskade]

Ben ça marche toujours pas... C'est les espaces qu'y posent problèmes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Sub teste()
If Check Box 10.Value = 0 Then
' SMIM+SPI
Range("C16").Formula = "=((C12/100)*D12)+((C13/100)*D13)"
 
ElseIf Check Box 11.Value = 0 Then
' SMI+SPI
Range("C16").Formula = "=((C11/100)*D11)+((C13/100)*D13)"
 
Else
' SMI+SMIM
Range("C16").Formula = "=((C11/100)*D11)+((C12/100)*D12)"
 
End If
End Sub

[embuskade]

oui je voudrais bien mais j'ai pas "propriété" dans le menu contextuel si je fais un clique droit dessus

[embuskade]

Ah met j'ai pas utilisé le userform justement! J'ai juste utilisé la barre d'outil "formulaire" et j'ai mis un checkbox sur ma feuille excel. J'ai ensuite créé une macro.

Donc apparamment je suis obligé de passer par le userform alors ?

Ciboox ton truc de F4 c'est pour le userform ou pour le visual basic editor ?

[ouskel'n'or]

Ben ça marche toujours pas... C'est les espaces qu'y posent problèmes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Sub teste()
If Check Box 10.Value = 0 Then
' SMIM+SPI
Range("C16").Formula = "=((C12/100)*D12)+((C13/100)*D13)"
 
ElseIf Check Box 11.Value = 0 Then
' SMI+SPI
Range("C16").Formula = "=((C11/100)*D11)+((C13/100)*D13)"
 
Else
' SMI+SMIM
Range("C16").Formula = "=((C11/100)*D11)+((C12/100)*D12)"
 
End If
End Sub

Tu mériterais que je te laisse avec CIBOOX
J'ai mis

Worksheets("Feuil1").Shapes("Check Box 4").Select

Je ne vois pas ce code, chez toi. Mets

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Worksheets("NomDeLaFeuil").Shapes("Check Box 10").Value = 0 Then

Pour les objets situés dans la feuille de calculs, tu dois indiquer la feuille et le fait que l'objet est un(e) shape.
Regarde ce mot dans l'aide
A+