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
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
A voir également:
- Planning réservation hôtel gratuit excel
- Word et excel gratuit - Guide
- Liste déroulante excel - Guide
- Wetransfer gratuit sans inscription - Guide
- Clé windows 10 gratuit - Guide
- Si et excel - Guide
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
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
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
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
26 août 2015 à 13:30
Bonjour,
Je ne sais pas comment mettre le code dans thisworkbook !!
Je ne sais pas comment mettre le code dans thisworkbook !!
Bonjour
retour de ton fichier modifier
http://www.cjoint.com/c/EHAlXmyKR6u
A+
Maurice
retour de ton fichier modifier
http://www.cjoint.com/c/EHAlXmyKR6u
A+
Maurice
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
26 août 2015 à 17:33
Je n'arrive pas à le lire...
dsl.
Merci
dsl.
Merci
24 août 2015 à 19:36
Modifié par Vaucluse le 24/08/2015 à 19:46
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)
24 août 2015 à 20:41