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
A voir également:
- Planning réservation hôtel gratuit excel
- Word et excel gratuit - Guide
- Photofiltre 7 gratuit - Télécharger - Retouche d'image
- Liste déroulante excel - Guide
- Planning equipe - Télécharger - Outils professionnels
- Montage video gratuit windows - Guide
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
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
Bonjour
pour ton probleme il faut mettre le code dans le ThisWorkbook
et dans tes Feuilles Rien
example code
A+
Maurice
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
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)