Résolu case à cocher et VBA

[un internaute]

Bonjour le forum,
Je voudrais barré du texte, lignes A4 à A19 successivement (Ligne 4, 5, 6, jusqu'à 19 ect...)
Colonnes de A à D. En colonne E par exemple on met les cases à cocher avec macro.
On coche ça barre le texte et inversement.
Mais alors quelle macro?
Qu'en pensait vous?
Mais alors moi je ne connais pas du tout la case à cocher et la macro qui va avec.
Merci d'avance pour vos retours.
Bien cordialement.

 

[vgendron]

bonjour
avec ceci......

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column = 5 Then
        With Target.Offset(0, -4).Resize(1, 4).Font
            .Strikethrough = Not (.Strikethrough)
            Target = .Strikethrough
        End With
    End If
End Sub

 

[Jauster]

Hello,

Si j'ai bien compris

Bonne journée

J

 

[un internaute]

bonjour
avec ceci......

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column = 5 Then
        With Target.Offset(0, -4).Resize(1, 4).Font
            .Strikethrough = Not (.Strikethrough)
            Target = .Strikethrough
        End With
    End If
End Sub

Bonjour vgendron,
Peux-tu STP me dire comment on fait pour faire la case à cocher.
On mettra la macro dans la feuille ou un module?
Merci à toi

 

[Jauster]

Hello un internaute,

Pour insérer une checkbox dans Excel

• Activer le mode Développeur : Fichier > Options > Customisation du ruban > Cocher la case Développeur
  
• Insérer une checkbox : Onglet Développeur > Insérer > Choisir le petit carré blanc coché
  

Mais si j'ai bien compris comment marchait sa macro, pas besoin de case à cocher.
@vgendron Comment marche (ou quelle est la différence avec Range) de Target ?

 

[vgendron]

Hello Jauster..
effectivement pas besoin de case à cocher. suffit de cliquer sur la colonne E
mais comme notre ami n'a pas jugé nécessaire de poster un fichier exemple... j'en ai pas mis non plus :-D
juste le code

 

[vgendron]

et à la question "code à mettre dans la feuille ou un module?"

ceci devrait déjà répondre à la question:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)


target, c'est la cellule sur laquelle on vient de cliquer

 

[Jauster]

target, c'est la cellule sur laquelle on vient de cliquer

Lorsque je rentre ton code, normalement le texte devrait être barré si je clique sur une cellule de la colonne E ? or ça ne fait rien.

 

[vgendron]

voir PJ

 

[Jauster]

Sympa la technique du Target = "x"

Merci pour le fichier

 

[un internaute]

Merci à vous deux
Ça fonctionne SUPER
Une question:
Pourquoi dans la macro F 19 & F21?
Si je me suis trompé si je veux à nouveau mettre "X" , il faut cliquer sur une autre cellule quelconque.
Encore un GRAND MERCI à vous deux.
Bien cordialement

 

[vgendron]

Supprime la macro. elle ne sert à rien. c'était pour un essai

pour éviter d'avoir à selectionner une autre cellule avant de recliquer sur la cellule (en cas d'erreur)
utilise ce code.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.EnableEvents = False
    If Target.Column = 5 And Target.Row >= 4 And Target.Row <= 19 Then
        With Target.Offset(0, -4).Resize(1, 4).Font
            .Strikethrough = Not (.Strikethrough)
            If .Strikethrough Then
                Target = "x"
            Else
                Target = "o"
            End If
        End With
    End If
    Target.Offset(0, 1).Select
    Application.EnableEvents = True
End Sub

 

[vgendron]

autre écriture avec IIF pour remplacer if then else

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.EnableEvents = False
    If Target.Column = 5 And Target.Row >= 4 And Target.Row <= 19 Then
        With Target.Offset(0, -4).Resize(1, 4).Font
            .Strikethrough = Not (.Strikethrough)
            Target = IIf(.Strikethrough, "x", "o")
        End With
    End If
    Target.Offset(0, 1).Select
    Application.EnableEvents = True
End Sub

 

[un internaute]

Rebonsoir le forum,
Tout fonctionne parfaitement
Comme je suis un peu "pinailleur"
Serait-il possible de faire un double clic?
Et faire revenir en cellule A1

 

[un internaute]

Ne pas tenir compte de mon mail précédent tout fonctionne PARFAITEMENT
Merci à vous deux
Bon WE