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.

 

[un internaute]

Voici la macro avec ajout de la ligne en rouge:
Mais si je veux modifier du texte dans les lignes A4:A19 colonnes de A à D cette ligne en rouge me gène
Même la ligne => Target.Offset(0, 1).Select laquelle est nécessaire.
Je ruse en désactivant la macro

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, "Oui", "Non")
End With
End If
Target.Offset(0, 1).Select
Application.EnableEvents = True
Range("A1").Select
End Sub

Y a t-il une astuce?
Je sais que sans fichier ça rend la tache plus difficile mais je ne peux faire autrement
Bien cordialement

 

[vgendron]

Hello

la ligne te gene, parce qu'elle n'est pas à la bonne place...: suffit de la déplacer

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
    Range("A1").Select
    End If
    Application.EnableEvents = True
End Sub

 

[un internaute]

Bonjour vgendron
SUPER c'est ce que je voulais.
Mais sans fichier plus difficile à faire et quelques fois presque impossible.
Avec toutes mes excuses de n'avoir pu fournir de fichier.
Dernière question:
Comment fait-on pour obtenir les macros dans ton format?
Bonne journée à toi
Bien cordialement

 

[Jauster]

Salut,

Pour écrire les macros sous cette forme, il faut utiliser la balise code et sélectionner le langage VB

cf. ci-dessous

 

[un internaute]

Bonjour Jauster,
Merci à toi pour avoir participé à l'élaboration de cette "fameuse" macro!!!
Ok pour le code vba
Bonne journé à toi
Bien cordialement

 

[un internaute]

Bonjour le forum,
Est-ce que "Résolu" peut se mettre?
Merci à vous
Bonne journée
Bien cordialement

 

[cp4]

Bonjour le forum,
Est-ce que "Résolu" peut se mettre?

Bonjour,
tu retournes à ton 1er message en haut à droite ("outils") et tu modifies le titre (voir image)

 

[un internaute]

Bonjour,
tu retournes à ton 1er message en haut à droite ("outils") et tu modifies le titre (voir image)
Regarde la pièce jointe 1004090

Bonjour cp4,
On met Résolu avant ou après le titre ou autre?
Merci
Bonne journée

 

[cp4]

Bonjour cp4,
On met Résolu avant ou après le titre ou autre?

c'est comme tu veux. personellement, je mets [RESOLU] avant.
Bon week-end.

 

[un internaute]

c'est comme tu veux. personellement, je mets [RESOLU] avant.
Bon week-end.

Bonjour cp4,
Merci
Bon WE
Cordialement