Planning reservation hotel

Fermé
Julee2b Messages postés 19 Date d'inscription samedi 29 novembre 2014 Statut Membre Dernière intervention 26 août 2015 - 24 août 2015 à 18:19
Julee2b Messages postés 19 Date d'inscription samedi 29 novembre 2014 Statut Membre Dernière intervention 26 août 2015 - 26 août 2015 à 17:33
Bonjour,

j'essaie de construire un logiciel de réservation pour mon hôtel, j'ai mis un code afin de pouvoir mettre ma cellule en couleur lorsque je clique sur ma cellule, j'ai voulu insérer un lien hypertexte aussi, mais du coup lorsque je clique cela ouvre le lien mais je ne peux plus mettre ma cellule en couleur à moins de le faire avec l'icône.
Y à t-il une autre façon de faire ??
Je met un lien afin que cela soit plus clair.
https://www.cjoint.com/c/EHyqi1ZiZvC

Merci pour votre aide .

Julie
A voir également:

3 réponses

Vaucluse Messages postés 26496 Date d'inscription lundi 23 juillet 2007 Statut Contributeur Dernière intervention 1 avril 2022 6 416
24 août 2015 à 18:36
Bonjour

je ne suis pas sur d'avoir compris, mais il semble que si vous inverser les commandes du code , cela puisse résoudre votre problème:
clic droit pour placer la couleur et double clic sur la couleur pour la sélectionner, mais en T6 et T8

sinon, il faudra de toutes façon garder le clic droit pour placer la couleur sans effectuer le lien, et localiser les cellules de sélection des couleurs

If Target.Column = 20 Then
couleur_index = Target.Interior.ColorIndex
End If

crdlmnt
0
Julee2b Messages postés 19 Date d'inscription samedi 29 novembre 2014 Statut Membre Dernière intervention 26 août 2015
24 août 2015 à 19:36
Je suis pas sur d'avoir tout compris non plus... que faut-il changer sur sur mon code du coup ?
0
Vaucluse Messages postés 26496 Date d'inscription lundi 23 juillet 2007 Statut Contributeur Dernière intervention 1 avril 2022 6 416 > Julee2b Messages postés 19 Date d'inscription samedi 29 novembre 2014 Statut Membre Dernière intervention 26 août 2015
Modifié par Vaucluse le 24/08/2015 à 19:46
Inverser les codes par rapport aux titres:

le double clic permet de sélectionner la couleur en cliquant sur T6 ou T8
le clic droit permet d'affecter la couleur dans le tableau
le simple clic dans le tableau lance le lien

donc intervertir

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

et

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
0
Julee2b Messages postés 19 Date d'inscription samedi 29 novembre 2014 Statut Membre Dernière intervention 26 août 2015
24 août 2015 à 20:41
est-il possible de lancer le lien en double clickant ?
0
Bonjour

pour ton probleme il faut mettre le code dans le ThisWorkbook
et dans tes Feuilles Rien

example code
Public couleur_index As Integer

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
   If Not Intersect(Target, Range("T6:T8")) Is Nothing And Target.Count = 1 Then
      couleur_index = Target.Interior.ColorIndex
   End If
End Sub

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("C6:R36")) Is Nothing And Target.Count = 1 Then
    If Target.Interior.ColorIndex = -4142 Then
       Target.Interior.ColorIndex = couleur_index
    Else
       Target.Interior.ColorIndex = -4142
    End If
End If
End Sub

A+
Maurice
0
Julee2b Messages postés 19 Date d'inscription samedi 29 novembre 2014 Statut Membre Dernière intervention 26 août 2015
26 août 2015 à 13:30
Bonjour,

Je ne sais pas comment mettre le code dans thisworkbook !!
0
Bonjour
retour de ton fichier modifier
http://www.cjoint.com/c/EHAlXmyKR6u
A+
Maurice
0
Julee2b Messages postés 19 Date d'inscription samedi 29 novembre 2014 Statut Membre Dernière intervention 26 août 2015
26 août 2015 à 17:33
Je n'arrive pas à le lire...
dsl.

Merci
0