Menu

Texte en rouge [Résolu]

jean300 177 Messages postés jeudi 11 août 2016Date d'inscription 21 mai 2018 Dernière intervention - 13 sept. 2017 à 11:25 - Dernière réponse : jean300 177 Messages postés jeudi 11 août 2016Date d'inscription 21 mai 2018 Dernière intervention
- 13 sept. 2017 à 14:53
Bonjour le forum,
Je souhaiterai en faisant un double clic dans la colonne F (et uniquement ) de la feuil4 que le texte se mette en rouge, puis repasse en noir lors d'un autre clic ou double clic.
En vous remerciant.


Afficher la suite 

Votre réponse

6 réponses

via55 9308 Messages postés mercredi 16 janvier 2013Date d'inscription 26 mai 2018 Dernière intervention - Modifié par via55 le 13/09/2017 à 12:56
0
Merci
Bonjour

Macro à mettre dans le worksheet de la feuille 4; ( ALT+F11 pour ouvrir l’éditeur, doucle-clic sur feuille 4 dans l’arborescence, copier et coller la macro
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 6 Then
If Target.Font.Color = RGB(0, 0, 0) Then Target.Font.Color = RGB(255, 0, 0) Else Target.Font.Color = RGB(0, 0, 0)
End If
End Sub

Cdlmnt
Via

"L'imagination est plus importante que le savoir."    A. Einstein
Commenter la réponse de via55
jean300 177 Messages postés jeudi 11 août 2016Date d'inscription 21 mai 2018 Dernière intervention - 13 sept. 2017 à 14:24
0
Merci
Bonjour via et merci de me répondre,
Je pense que le code va faire problème, en effet dans la feuille j'ai déjà ce code :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Sheets("Visite").Select
If Target.Row / 2 = Int(Target.Row / 2) Then
Target = "X"
Target.Offset(0, 1) = Date
Target.Offset(0, 1).Select
End If
Cancel = True
End Sub

J'ai essayer de modifier comme suit :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Sheets("Visite").Select
If Target.Row / 2 = Int(Target.Row / 2) Then
Target = "X"
Target.Offset(0, 1) = Date
Target.Offset(0, 1).Select
End If
Cancel = True

If Target.Column = 6 Then
If Target.Font.Color = RGB(0, 0, 0) Then Target.Font.Color = RGB(255, 0, 0) Else Target.Font.Color = RGB(0, 0, 0)
End If
End Sub

Mais cela me met un X en colonne F et la date en colonne G
Commenter la réponse de jean300
via55 9308 Messages postés mercredi 16 janvier 2013Date d'inscription 26 mai 2018 Dernière intervention - 13 sept. 2017 à 14:32
0
Merci
Re,

1) si ta macro fonctionnait avant il n'y a pas de raison pour que cela change puisque la mienne ne joue pas sur les Offset; de plus d'après tes lignes d e macro le X se met bien dans la cellule du doucle clic et la date dans sa voisine de droite

2) Pourquoi l'instruction Sheets("Visite").Select puisque les instructions Target portent sur les références de la feuille du double-clic et pas sur une autre

3) Passe plutôt ma macro en début de la tienne pour d'abord appliquer la couleur et ensuite effectuer les actions

Si les problèmes persistent poste un exemple de ton fichier sur mon partage.fr, fais créer un lien que tu copies et reviens coller ici
Commenter la réponse de via55
jean300 177 Messages postés jeudi 11 août 2016Date d'inscription 21 mai 2018 Dernière intervention - 13 sept. 2017 à 14:42
Commenter la réponse de jean300
via55 9308 Messages postés mercredi 16 janvier 2013Date d'inscription 26 mai 2018 Dernière intervention - 13 sept. 2017 à 14:49
0
Merci
Essaie ainsi :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    
If Target.Column = 6 Then
If Target.Font.Color = RGB(0, 0, 0) Then Target.Font.Color = RGB(255, 0, 0) Else Target.Font.Color = RGB(0, 0, 0)
End If
If Target.Column = 5 Then
            Target = "X"
            Target.Offset(0, 1) = Date
            Target.Offset(0, 1).Select
        End If
    Cancel = True
End Sub

Commenter la réponse de via55
jean300 177 Messages postés jeudi 11 août 2016Date d'inscription 21 mai 2018 Dernière intervention - 13 sept. 2017 à 14:53
0
Merci
Question posée, réponse donnée avec une rapidité stupéfiante et exactement ce que j'attendais.
Un grand, immense merci via.
A plaisir.
Commenter la réponse de jean300