Selection_Change

Le
JLuc
Bonjour les cracks,

J'ai un planning en tableau avec pas mal de conleurs, est il possible
de colorer la colonne complete de la cellule active et de retrouver les
couleurs d'origines lorque que l'on active une autre cellule ?
Pour faire un genre d'index ?

Merci pour vos reponses

--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JLuc
Le #5165581
J'ai peut être trouver une solution plus simple : l'utilisation d'un
shapes trait
ActiveSheet.Shapes("Freeform 42").Select
mais je vois pas trop comment proceder pour le mettre à la position
désiré : au centre de la cellule de la colonne active et au bord
supperieur de la ligne 4
il serait peut être judicieux de la renommée "index" mais je sais pas
faire non plus :(
Tous les conseils seront bienvenus :D
Encore merci

Bonjour les cracks,

J'ai un planning en tableau avec pas mal de conleurs, est il possible de
colorer la colonne complete de la cellule active et de retrouver les couleurs
d'origines lorque que l'on active une autre cellule ?
Pour faire un genre d'index ?

Merci pour vos reponses


--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O

Modeste
Le #5165571
Bonsour® JLuc avec ferveur ;o))) vous nous disiez :

J'ai un planning en tableau avec pas mal de conleurs, est il possible
de colorer la colonne complete de la cellule active et de retrouver
les couleurs d'origines lorque que l'on active une autre cellule ?
Pour faire un genre d'index ?


voir là :
http://boisgontierjacques.free.fr/pages_site/mfc.htm#CurseurCouleur

ou bien là :
http://www.polykromy.com/nl/nl6/nl6.html#as4


--
--
@+
;o)))

JB
Le #5165541
Bonjour,

Avec MFC

=COLONNE()ÎLLULE("colonne")

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Calculate
End Sub

http://boisgontierjacques.free.fr/fichiers/jb-Curseur.xls

JB


On 16 fév, 10:44, JLuc
Bonjour les cracks,

J'ai un planning en tableau avec pas mal de conleurs, est il possible
de colorer la colonne complete de la cellule active et de retrouver les
couleurs d'origines lorque que l'on active une autre cellule ?
Pour faire un genre d'index ?

Merci pour vos reponses

--
               ____
             ( O | O )
                  --
_oooO_  JLuc  _Oooo_

              O-O


AV
Le #5165511
J'ai un planning en tableau avec pas mal de conleurs, est il possible de
colorer la colonne complete de la cellule active et de retrouver les couleurs
d'origines lorque que l'on active une autre cellule ?


Depuis "belle luette" ici
http://www.excelabo.net/moteurs/compteclic.php?nom=av-mefc
Rubrique Lignes - Colonnes

AV

JLuc
Le #5165491
*Bonjour Modeste*,
Super, j'essaie de modifier la solution 2 --> trait à la place de
rectangle et hauteur à partir de la ligne 4

Bonsour® JLuc avec ferveur ;o))) vous nous disiez :

J'ai un planning en tableau avec pas mal de conleurs, est il possible
de colorer la colonne complete de la cellule active et de retrouver
les couleurs d'origines lorque que l'on active une autre cellule ?
Pour faire un genre d'index ?


voir là :
http://boisgontierjacques.free.fr/pages_site/mfc.htm#CurseurCouleur

ou bien là :
http://www.polykromy.com/nl/nl6/nl6.html#as4


--


--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O


JLuc
Le #5165421
J'y suis presque, mais je comprends pas pourquoi ça me fais deux traits
!!??!!
Une idée ?


Private Sub Worksheet_SelectionChange(ByVal Target As Range)

'Largeur entre la cellule active et la première colonne
PosHorizontal = ActiveCell.Left + (ActiveCell.Width / 2)

' Position verticale sur ligne 4
PosHaut = Cells(4, 1).Top

' Hauteur de la ligne
hauteur = Range("a65536").End(xlUp).Top - Range("a4").Top

' Teste si l'index existe déjà. Dans ce cas, on l'efface.
' On utilise ici On Error Resume Next, qui permet de tester l'erreur
On Error Resume Next
ActiveSheet.Shapes("IndeX").Delete


' Ajoute une ligne en fonction des coordonnées précédemment calculées.
' La ligne est transparente, de grosseur 1 et de couleur rouge (10)
' On ne peut pas l'imprimer.
ActiveSheet.Shapes.AddShape(msoShapeLineCallout1, PosHorizontal,
PosHaut, 1, hauteur).Name = "IndeX"

With ActiveSheet.Shapes("IndeX")
.Fill.Visible = msoFalse
.Fill.Transparency = 0#
.Line.Weight = 1#
.Line.ForeColor.SchemeColor = 10
.PrintObject = False
End With

End Sub

--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O
Publicité
Poster une réponse
Anonyme