Texte en rouge
Résolu/Fermé
jean300
Messages postés
374
Date d'inscription
jeudi 11 août 2016
Statut
Membre
Dernière intervention
13 janvier 2020
-
13 sept. 2017 à 11:25
jean300 Messages postés 374 Date d'inscription jeudi 11 août 2016 Statut Membre Dernière intervention 13 janvier 2020 - 13 sept. 2017 à 14:53
jean300 Messages postés 374 Date d'inscription jeudi 11 août 2016 Statut Membre Dernière intervention 13 janvier 2020 - 13 sept. 2017 à 14:53
A voir également:
- Texte en rouge
- Mettre un texte en majuscule - Guide
- Transcription audio en texte word gratuit - Guide
- Supprimez les composantes rouge et verte de cette image. quel mot apparaît ? - Forum Photoshop
- Excel cellule couleur si condition texte - Guide
- Trouver numéro liste rouge gratuitement ✓ - Forum Mobile
6 réponses
via55
Messages postés
14402
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
18 avril 2024
2 702
Modifié le 13 sept. 2017 à 12:56
Modifié le 13 sept. 2017 à 12:56
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
Cdlmnt
Via
"L'imagination est plus importante que le savoir." A. Einstein
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
jean300
Messages postés
374
Date d'inscription
jeudi 11 août 2016
Statut
Membre
Dernière intervention
13 janvier 2020
14
13 sept. 2017 à 14:24
13 sept. 2017 à 14:24
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
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
via55
Messages postés
14402
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
18 avril 2024
2 702
13 sept. 2017 à 14:32
13 sept. 2017 à 14:32
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
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
jean300
Messages postés
374
Date d'inscription
jeudi 11 août 2016
Statut
Membre
Dernière intervention
13 janvier 2020
14
13 sept. 2017 à 14:42
13 sept. 2017 à 14:42
voici :
https://mon-partage.fr/f/0UTYBiEV/
https://mon-partage.fr/f/0UTYBiEV/
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
via55
Messages postés
14402
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
18 avril 2024
2 702
13 sept. 2017 à 14:49
13 sept. 2017 à 14:49
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
jean300
Messages postés
374
Date d'inscription
jeudi 11 août 2016
Statut
Membre
Dernière intervention
13 janvier 2020
14
13 sept. 2017 à 14:53
13 sept. 2017 à 14:53
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.
Un grand, immense merci via.
A plaisir.
