Planning reservation hotel

Julee2b Messages postés 19 Date d'inscription   Statut Membre Dernière intervention   -  
Julee2b Messages postés 19 Date d'inscription   Statut Membre Dernière intervention   -
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

Réponse 1 / 3
Vaucluse Messages postés 26496 Date d'inscription   Statut Contributeur Dernière intervention   6 438
 
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   Statut Membre Dernière intervention  
 
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   Statut Contributeur Dernière intervention   6 438 > Julee2b Messages postés 19 Date d'inscription   Statut Membre Dernière intervention  
 
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   Statut Membre Dernière intervention  
 
est-il possible de lancer le lien en double clickant ?
0
Réponse 2 / 3
Maurice
 
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   Statut Membre Dernière intervention  
 
Bonjour,

Je ne sais pas comment mettre le code dans thisworkbook !!
0
Réponse 3 / 3
Maurice
 
Bonjour
retour de ton fichier modifier
http://www.cjoint.com/c/EHAlXmyKR6u
A+
Maurice
0
Julee2b Messages postés 19 Date d'inscription   Statut Membre Dernière intervention  
 
Je n'arrive pas à le lire...
dsl.

Merci
0