macro double click avec texte

[yannick2638]

bonjour

je cherche a modifier une macro que j'ai trouver sur le forum.


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address <> "$A$10" Then Exit Sub
Application.EditDirectlyInCell = False
Select Case Target.Interior.ColorIndex
Case Is = xlNone 'rien
Target.Interior.ColorIndex = 4 ' vert
Case Is = 4 'vert
Target.Interior.ColorIndex = 3 'rouge
Case Is = 3 'rouge
Target.Interior.ColorIndex = xlNone
End Select
End Sub

a la place des couleur je souhaiterai mettre du texte.
de B7 à AL 7 : "J" ; "N" ; SN ; DJ ; DN ; F ;
de B9 à AL9 : " A1 ; A2 ;
de B10 à AL 10 : G ;Gj ; Gn ; F ;

si cela est possible je vous remercie de votre aide

 

[Lone-wolf]

Bonjour yannick et bienvenue sur XLD

Pas trop compris ta demande. Met un fichier avec le résultat que tu veux avoir.

 

[yannick2638]

je vous ai joins mon fichier.

je me sert de ce fichier pour mon planning travail et SPV
je voudrai juste a avoir a faire des double clic pour rentrer mes jours.

et par la même occasion si vous pouviez me dire comment faire pour reporter ce même fichier sur un calendrier auto sa serai un plus

merci

 

[Lone-wolf]

Re

je voudrai juste a avoir a faire des double clic pour rentrer mes jours.

Ceux-ci ne sont pas des jours: J ; N ; SN ; DJ ; DN ; F ;, mais du texte. Si ce n'est que pour rentrer le texte , tu peux le faire manuellement non?? Sinon, quelle est la condition pour savoir si c'est J N SN etc. ??

 

[yannick2638]

je le fais déjà manuellement. je voulait perfectionné mon fichier et par la même occasion essayer les macro.
sur un autre fichier j'ai récuperer une macro pour changer la couleur avec double clic je me demandait si c'etait possible de faire pareil avec du texte.
mais si c'est trop complexe c'est pas grave.
encore merci d'avoir regarder

 

[eriiic]

Bonjour,

regarde plutôt du coté des Validations des données... par liste (ruban Données).
Ca te fera une liste déroulante des choix, plus ergonomique que x double-clics.
eric