planning reservation hotel

Question

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

Vaucluse · Answer

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

Maurice · Answer

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

Maurice · Answer

Bonjour
retour de ton fichier modifier
http://www.cjoint.com/c/EHAlXmyKR6u
A+
Maurice

Planning reservation hotel

3 réponses

Newsletters