Barrer une plage de cellule en cliquant sur une case à cocher Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
L
Ludovic64
Nouveau venu
Nouveau venu
Messages : 6
Inscrit le : 21 février 2018
Version d'Excel : 2007

Message par Ludovic64 » 21 février 2018, 11:47

Bonjour,

Je suis actuellement en train de créer un tableau qui permet de transmettre des informations.

Je souhaiterai intégrer une case à cocher en fin de ma ligne pour permettre de griser ou barrer la ligne avent cette case (A4.E4) quand elle n'est plus d'actualité.
Et vu que je suis pas forcément à l'aise avec les macros, pouvez vous me donner une solution ?

Bonne journée
Avatar du membre
Dan
Modérateur
Modérateur
Messages : 5'952
Appréciations reçues : 81
Inscrit le : 27 avril 2007
Version d'Excel : 2010, 2000, Mac 2011

Message par Dan » 21 février 2018, 13:08

Bonjour

Utilisez plutôt un "x" dans une cellule plutôt qu'un objet case à cocher.

:joindre:

Cordialement
1 membre du forum aime ce message.
@+ Dan ;)
A
Andre13
Membre impliqué
Membre impliqué
Messages : 1'519
Appréciations reçues : 94
Inscrit le : 13 juillet 2017
Version d'Excel : 2007-2013

Message par Andre13 » 21 février 2018, 15:32

Bonjour
coucou Dan :wink:
un exemple ci-joint
on effectue un double clic gauche dans la cellule F4 un 'X ' apparaît cela veut dire que les cellules seront barrées
A4,B4,C4,D4 et E4 aussi non si la cellule F4 est vide rien n'est barré
crdlt,
André
ztesterer.png
ztesterer.png (3.39 Kio) Vu 625 fois
cellulebarre_test001.xlsm
(21.87 Kio) Téléchargé 44 fois
L
Ludovic64
Nouveau venu
Nouveau venu
Messages : 6
Inscrit le : 21 février 2018
Version d'Excel : 2007

Message par Ludovic64 » 21 février 2018, 15:47

Andre13 a écrit :
21 février 2018, 15:32
Bonjour
coucou Dan :wink:
un exemple ci-joint
on effectue un double clic gauche dans la cellule F4 un 'X ' apparaît cela veut dire que les cellules seront barrées
A4,B4,C4,D4 et E4 aussi non si la cellule F4 est vide rien n'est barré
crdlt,
André
Merci de vos réponse mais en fait j'ai déjà fait une macro double clic pour la première case afin de mettre la date du jour, est-il possible de combiner les deux ?

Voila un aperçu de ce que j'ai...
Sans titre.png
A
Andre13
Membre impliqué
Membre impliqué
Messages : 1'519
Appréciations reçues : 94
Inscrit le : 13 juillet 2017
Version d'Excel : 2007-2013

Message par Andre13 » 21 février 2018, 16:07

Re,
on peut éventuellement effectuer ceci par simple clic droit sur notre cellule F4
j'ai combiné en plaçant une date dans la cellule F4 en effectuant un clic droit les cellules A4,,...E4 sont barrés
ci-joint,
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Intersect(Target, Range("f4")) Is Nothing Then: Exit Sub
If ActiveCell = Date Then
ActiveCell = Date
ActiveCell.Font.Bold = True
Range("a4:e4").Font.Strikethrough = True
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
End With
Else
ActiveCell = Date
Range("a4:e4").Font.Strikethrough = False
End If

End Sub

crdlt,
André
cellulebarre_test002__avecclicdroit.xlsm
(22.73 Kio) Téléchargé 17 fois
A
Andre13
Membre impliqué
Membre impliqué
Messages : 1'519
Appréciations reçues : 94
Inscrit le : 13 juillet 2017
Version d'Excel : 2007-2013

Message par Andre13 » 22 février 2018, 08:26

Bonjour toutes et tous
Si tu souhaites vraiment avec des case à cocher ou Checkbox un aperçu ci-joint
crdlt,
André
ztestcasecoch.png
ztestcasecoch.png (18.47 Kio) Vu 595 fois
cellulebarre_test00__aveccaseàcocher.xlsm
(27.87 Kio) Téléchargé 22 fois
L
Ludovic64
Nouveau venu
Nouveau venu
Messages : 6
Inscrit le : 21 février 2018
Version d'Excel : 2007

Message par Ludovic64 » 22 février 2018, 09:37

Merci à tous pour votre aide, mais je crois que je suis vraiment naze pour faire ce genre de chose.

Concrètement ce qui m’intéresserai c'est de garder le double Click pour la date ou autre chose de similaire afin que la date se mette automatiquement et ensuite pour notifier que l'information n'est plus d'actualité, faire en sorte qu'elle soit grisé (peut être plus facile à faire) ou barré à l'aide d'un bouton.

Sachant qu'en plus pour être large j'ai prévu 1000 lignes par feuilles et que j'ai environ 20 feuilles. Je suis peut être gourmand sur mes intentions mais vu que c'est un tableau qui servira pour mes collègues, je souhaiterai que ce soit simple d'utilisation.

Le bouton si possible je voudrais le mettre dans la colonne F à partir de la 4éme, et agirait sur les colonnes A,B,C,D,E.

La formule actuelle pour la feuille c'est la suivante :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
With Target
If .Column = 1 Then .Value = Date
End With
Cancel = True
End Sub

En espérant avoir étais plus clair sur mon projet. Et encore merci pour vos aides
L
Ludovic64
Nouveau venu
Nouveau venu
Messages : 6
Inscrit le : 21 février 2018
Version d'Excel : 2007

Message par Ludovic64 » 22 février 2018, 11:56

Alors je viens d'essayer quelque chose, j'ai mis un ToggleButton qui change de couleur (vert = en cours; rouge=arrêté)

Private Sub ToggleButton1_Click()
With ToggleButton1
If .Value = True Then
.BackColor = RGB(255, 0, 0) 'Rouge
.Caption = "ARRETE"

ElseIf .Value = False Then
.BackColor = RGB(0, 255, 0) 'Vert
.Caption = "EN COURS"
End If
End With
End Sub

Existe t'il un moyen d'ajouter au moment du rouge, un changement de mise en forme (gras italique, barré, gris foncé) pour les cellules qui précédent mon bouton ?
L
Ludovic64
Nouveau venu
Nouveau venu
Messages : 6
Inscrit le : 21 février 2018
Version d'Excel : 2007

Message par Ludovic64 » 22 février 2018, 12:01

Je vous envoi le fichier entier
TRANS CONSOLE.xlsm
(652.25 Kio) Téléchargé 15 fois
A
Andre13
Membre impliqué
Membre impliqué
Messages : 1'519
Appréciations reçues : 94
Inscrit le : 13 juillet 2017
Version d'Excel : 2007-2013

Message par Andre13 » 22 février 2018, 13:01

Re,
avec le togglebutton sur les feuilles
à améliorer
ci-joint
crdlt,
André
TRANS CONSOLE__test5.xlsm
(726.87 Kio) Téléchargé 21 fois
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message