Planning reservation hotel
Julee2b
Messages postés
20
Statut
Membre
-
Julee2b Messages postés 20 Statut Membre -
Julee2b Messages postés 20 Statut Membre -
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
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
3 réponses
-
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
-
- 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)
-
-
-
Bonjour
pour ton probleme il faut mettre le code dans le ThisWorkbook
et dans tes Feuilles Rien
example codePublic 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 -
