Discussion :

[Hacksion]

Je suis débutant en VBA et je voudrais que quand je coche une checkbox située dans une case avec une formule, la case devienne verte.
Malheureusement j’ai testé plusieurs solutions mais à chaque fois la valeur donnée dans la case est remplacée par VRAI ou FAUX ( lorsque je lie la checkbox avec ma cellule pour faire une mise en forme conditionnelle ).

je met un fichier assez simple, c'est expliqué dedans, merci beaucoup !

[Thautheme]

Bonsoir Hacksion, bonsoir le forum,

Le code ci-dessous est valable pour une seule ou quelques cellules. Si tu dois le faire sur plusieurs lignes, je te conseille de taper x dans la colonne E et de modifier F à l'aide de l'événementielle Change. Ça sera mois esthétique mais bien plus efficace...

Le code adapté à ton exemple :

Code :

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

1
2
3
4
5
6
7
Sub Caseàcocher2_Cliquer()
With Worksheets("Feuil1").Shapes.Range(Array("Check Box 2"))
    .Select
    Worksheets("Feuil1").Range("F9").Interior.ColorIndex = IIf(Selection.Value = 1, 4, xlNone)
End With
Range("F9").Select
End Sub

[anasecu]

Bonjour à tous,

quand je coche une checkbox située dans une case avec une formule, la case devienne verte.

Si tu n'as qu'une case à cocher je te propose ceci adapté à ton exemple et à associer à ton objet :

Code :

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

1
2
3
4
5
6
7
8
9
Sub Caseàcocher2_Clic()
    With Range(ActiveSheet.Shapes("Case à cocher 2").TopLeftCell.Address)
        If ActiveSheet.Shapes("Case à cocher 2").ControlFormat.Value = 1 Then
            .Interior.Color = 5296274
        Else
            .Interior.Color = xlNone
        End If
    End With
End Sub

Si tu as plusieurs cases à cocher sur ta feuille ce code les traitera toutes :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub colore_cases()
Dim shp As Shape
    With ActiveSheet
        For Each shp In .Shapes
            If shp.Type = 8 Then
                If shp.ControlFormat.Value = 1 Then
                    .Range(shp.TopLeftCell.Address).Interior.Color = 5296274
                Else
                    .Range(shp.TopLeftCell.Address).Interior.Color = xlNone
                End If
            End If
        Next shp
    End With
End Sub

[Hacksion]

Bonjour,

Merci beaucoup pour vos réponses mais malheureusement aucune ne fonctionne, soit il ne se passe rien, soit si j'execute la Macro la case se colorie en vert mais ne redevient pas blanche quand je décoche, ou alors il y a toujours "VRAI" ou "FAUX" qui apparait a la place du chiffre

[Thautheme]

Re,

As-tu pensé à attribuer la macro à la case à cocher ou à l'adapter si le nom est différent ?!...
En pièce jointe ton fichier fonctionnel.

[Hacksion]

AAAh trop bien tu es un génie !! c'est exactement ce que je voulais merci !

Parcontre effectivement je n'avais pas trop touché je suis vraiment débutant je ne sais pas trop comment activer la formule VBA.
Et d'ailleurs je vois que tu as mis une ligne "option explicit", à quoi ça sert?

Encore merci !!

[révèr]

Bonjour à vous,

Option Explicit est tout sauf une Option si l'on veut maîtriser son code, cela te permet notamment d'utiliser (dans mon cas) des variables en Public.

Dans l'idée où tu aies 3 procédures utilisant chacune un tableau différent, tu peux faire de la sorte :

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
17
Option Explicit
Dim t as ListObjects
 
Private Sub PC1()
     Set t = t_data
     'Code...
End Sub
 
Private Sub PC2()
    Set t = t_budget
    'Code...
End Sub
 
Private Sub PC3()
   Set t = t_client
   'Code...
End Sub

Du moins c'est l'utilisation que j'en fais et cela m'évite de dimensionner mes variables en début de chaque procédure, seules celles spécifiques y sont inscrites. Toutes celles qui sont communes à plusieurs procédures sont définies sous Option Explicit. J'espère du moins en avoir saisi la bonne utilité, mais si je ne partage pas ma vision je ne pourrai savoir si j'ai bien compris son utilité

[pijaku]

Bonjour,

https://www.developpez.net/forums/bl...est-important/

[Thautheme]

Re,

@Révèr Option Explicit oblige à déclarer toutes les variables !... Quelles soient Public, Private ou Dim si tu codes une ligne avec une variable :

Code :

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

I = Range("A1").Value

sans l'avoir déclarée, au lancement de la macro, tu auras systématiquement le message "Erreur de compilation : variable non définie". Ce qui d'ailleurs est un peu nul car c'est plutôt "non déclarée" qu'il aurait fallu écrire...

[révèr]

Et sans Option Explicit, que se passerait-il ?

[Thautheme]

Re,

Rien, I serait définie et le code continuerait. La déclaration des variables n'est pas obligatoire mais elle permet d'éviter tellement de bugs que je la recommande tout le temps. Clique sur le lien indiqué par Pijaku...

[révèr]

Pour en revenir à l'exemple joint dans le sujet de pijaku,

Option Explicit aurait pointé l'erreur sur la ligne 20 en précisant "Variable Non Définie" (en relation avec x1ShiftUp) ?
Puisqu'il s'agirait-là d'une variable étant utilisée sans avoir été déclarée ?

[Thautheme]

Re,

Heu désolé je n'ai pas tout lu...

[révèr]

Oh, autant pour moi.

Pour résumer, la personne avait écrit "x1ShiftUp" au lieu de "xlShiftUp". L'erreur apparaissait donc sur la ligne de x1ShiftUp.