Résolu case à cocher et VBA

U

un internaute

XLDnaute Impliqué

• 6 Janvier 2018

• #16

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

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 8 Janvier 2018

• #17

Hello

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

VB:

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

 

Vote positif 0 Vote négatif

U

un internaute

XLDnaute Impliqué

• 8 Janvier 2018

• #18

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

 

Vote positif 0 Vote négatif

Jauster

XLDnaute Occasionnel

• 8 Janvier 2018

• #19

Salut,

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

cf. ci-dessous

 

Vote positif 0 Vote négatif

U

un internaute

XLDnaute Impliqué

• 8 Janvier 2018

• #20

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

 

Vote positif 0 Vote négatif

U

un internaute

XLDnaute Impliqué

• 12 Janvier 2018

• #21

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

 

Vote positif 0 Vote négatif

cp4

XLDnaute Barbatruc

• 12 Janvier 2018

• #22

un internaute à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

U

un internaute

XLDnaute Impliqué

• 12 Janvier 2018

• #23

cp4 à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

cp4

XLDnaute Barbatruc

• 12 Janvier 2018

• #24

un internaute à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

U

un internaute

XLDnaute Impliqué

• 13 Janvier 2018

• #25

cp4 à dit:

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

Cliquez pour agrandir...

Bonjour cp4,
Merci
Bon WE
Cordialement

 

Vote positif 0 Vote négatif