En adaptant une proc=E9dure de Ga=EBtan Mourmant, je surligne la ligne de l=
a cellule active en cr=E9ant deux rectangles =E0 gauche et =E0 droite de ce=
lle-ci.
Y a-t-il un moyen de rendre ces objets non s=E9lectionnables, c'est-=E0-dir=
e qu'en cliquant dessus, je s=E9lectionne la cellule qui est sous la souris=
et non le rectangle ?
Merci de me répondre! J'y avais pensé, mais j'utilise déjà des MEFC dans le fichier original, et celle-ci serait en trop !!
ThierryP
Le lundi 21 janvier 2013 23:56:11 UTC+1, Jacky a écrit :
Bonsoir,
...> je surligne la ligne de la cellule active.....
S'il s'agit de surligner une partie de la ligne de la cellule active
http://cjoint.com/?CAvx2dEYC1h
--
Salutations
JJ
"ThierryP" a écrit dans le message de new s:
Bonjour le forum !
En adaptant une procédure de Gaëtan Mourmant, je surligne la ligne de la cellule active en créant deux
rectangles à gauche et à droite de celle-ci.
Y a-t-il un moyen de rendre ces objets non sélectionnables, c'est-à-d ire qu'en cliquant dessus, je sélectionne
la cellule qui est sous la souris et non le rectangle ?
Merci d'avance aux experts !!
ThierryP
ThierryP
Merci Denis,
ça s'approche de ce que je souhaite !! Les solutions les plus simples son t les meilleures !
En farfouillant dans ce groupe, je dois pouvoir trouver un moyen de récup érer la position du curseur et ainsi de sélectionner la cellule qui se trouve dessous.... Et mon bonheur sera complet :-))
ThierryP
Le lundi 21 janvier 2013 19:32:22 UTC+1, MichD a écrit :
ça s'approche de ce que je souhaite !! Les solutions les plus simples son t les meilleures !
En farfouillant dans ce groupe, je dois pouvoir trouver un moyen de récup érer la position du curseur et ainsi de sélectionner la cellule qui se trouve dessous.... Et mon bonheur sera complet :-))
ThierryP
Le lundi 21 janvier 2013 19:32:22 UTC+1, MichD a écrit :
ça s'approche de ce que je souhaite !! Les solutions les plus simples son t les meilleures !
En farfouillant dans ce groupe, je dois pouvoir trouver un moyen de récup érer la position du curseur et ainsi de sélectionner la cellule qui se trouve dessous.... Et mon bonheur sera complet :-))
ThierryP
Le lundi 21 janvier 2013 19:32:22 UTC+1, MichD a écrit :
Si tu as un rectangle (shape) sur une ligne de 100 colonnes, par exemple couvrant la plage A1:AA1, si tu désires en cliquant à un endroit particulier du rectangle, tu sélectionnes la cellule exactement sous l'endroit où tu as cliqué sur le rectangle par exemple B1 ou G1 ou M1, tu risques de chercher longtemps. Ceci étant dit, si tu trouves, j'espère que tu partageras ta trouvaille.
MichD -------------------------------------------------------------- "ThierryP" a écrit dans le message de groupe de discussion :
Merci Denis,
ça s'approche de ce que je souhaite !! Les solutions les plus simples sont les meilleures !
En farfouillant dans ce groupe, je dois pouvoir trouver un moyen de récupérer la position du curseur et ainsi de sélectionner la cellule qui se trouve dessous.... Et mon bonheur sera complet :-))
ThierryP
Le lundi 21 janvier 2013 19:32:22 UTC+1, MichD a écrit :
Si tu as un rectangle (shape) sur une ligne de 100 colonnes,
par exemple couvrant la plage A1:AA1, si tu désires en cliquant
à un endroit particulier du rectangle, tu sélectionnes la cellule
exactement sous l'endroit où tu as cliqué sur le rectangle par exemple B1 ou
G1 ou M1, tu risques de chercher longtemps. Ceci étant dit,
si tu trouves, j'espère que tu partageras ta trouvaille.
MichD
--------------------------------------------------------------
"ThierryP" a écrit dans le message de groupe de discussion :
463dadc1-fb87-4eb1-8428-16912790a3a1@googlegroups.com...
Merci Denis,
ça s'approche de ce que je souhaite !! Les solutions les plus simples sont les meilleures !
En farfouillant dans ce groupe, je dois pouvoir trouver un moyen de récupérer la position du curseur et ainsi
de sélectionner la cellule qui se trouve dessous.... Et mon bonheur sera complet :-))
ThierryP
Le lundi 21 janvier 2013 19:32:22 UTC+1, MichD a écrit :
Si tu as un rectangle (shape) sur une ligne de 100 colonnes, par exemple couvrant la plage A1:AA1, si tu désires en cliquant à un endroit particulier du rectangle, tu sélectionnes la cellule exactement sous l'endroit où tu as cliqué sur le rectangle par exemple B1 ou G1 ou M1, tu risques de chercher longtemps. Ceci étant dit, si tu trouves, j'espère que tu partageras ta trouvaille.
MichD -------------------------------------------------------------- "ThierryP" a écrit dans le message de groupe de discussion :
Merci Denis,
ça s'approche de ce que je souhaite !! Les solutions les plus simples sont les meilleures !
En farfouillant dans ce groupe, je dois pouvoir trouver un moyen de récupérer la position du curseur et ainsi de sélectionner la cellule qui se trouve dessous.... Et mon bonheur sera complet :-))
ThierryP
Le lundi 21 janvier 2013 19:32:22 UTC+1, MichD a écrit :
Malheureusement, je crois que tu as raison..... Disons qu'en construisant u ne usine à gaz, il y aurait peut-être un moyen (je suis tombé sur que lques posts sur le forum, dans lesquels tu es d'ailleurs intervenu !!) mais le jeu n'en vaut pas la chandelle !! Donc, j'arrête là.
Merci
Le mardi 22 janvier 2013 12:38:17 UTC+1, MichD a écrit :
Si tu as un rectangle (shape) sur une ligne de 100 colonnes,
par exemple couvrant la plage A1:AA1, si tu d�sires en cliquant
� un endroit particulier du rectangle, tu s�lectionnes la cellule
exactement sous l'endroit o� tu as cliqu� sur le rectangl e par exemple B1 ou
G1 ou M1, tu risques de chercher longtemps. Ceci �tant dit,
si tu trouves, j'esp�re que tu partageras ta trouvaille.
Malheureusement, je crois que tu as raison..... Disons qu'en construisant u ne usine à gaz, il y aurait peut-être un moyen (je suis tombé sur que lques posts sur le forum, dans lesquels tu es d'ailleurs intervenu !!) mais le jeu n'en vaut pas la chandelle !! Donc, j'arrête là.
Merci
Le mardi 22 janvier 2013 12:38:17 UTC+1, MichD a écrit :
Si tu as un rectangle (shape) sur une ligne de 100 colonnes,
par exemple couvrant la plage A1:AA1, si tu d�sires en cliquant
� un endroit particulier du rectangle, tu s�lectionnes la cellule
exactement sous l'endroit o� tu as cliqu� sur le rectangl e par exemple B1 ou
G1 ou M1, tu risques de chercher longtemps. Ceci �tant dit,
si tu trouves, j'esp�re que tu partageras ta trouvaille.
Malheureusement, je crois que tu as raison..... Disons qu'en construisant u ne usine à gaz, il y aurait peut-être un moyen (je suis tombé sur que lques posts sur le forum, dans lesquels tu es d'ailleurs intervenu !!) mais le jeu n'en vaut pas la chandelle !! Donc, j'arrête là.
Merci
Le mardi 22 janvier 2013 12:38:17 UTC+1, MichD a écrit :
Si tu as un rectangle (shape) sur une ligne de 100 colonnes,
par exemple couvrant la plage A1:AA1, si tu d�sires en cliquant
� un endroit particulier du rectangle, tu s�lectionnes la cellule
exactement sous l'endroit o� tu as cliqu� sur le rectangl e par exemple B1 ou
G1 ou M1, tu risques de chercher longtemps. Ceci �tant dit,
si tu trouves, j'esp�re que tu partageras ta trouvaille.
Le grand maître JB avez donner une solution qui pourrait peut être te c onvenir. A adapter tout de même et sans shape. A placer dans la feuille.
Cordialement
JP
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim IC As Long Dim iR As Long 'ActiveSheet.Unprotect If Not Intersect(ActiveCell, [H5:AR127]) Is Nothing Then Application.ScreenUpdating = False Range("I5:AR127").Interior.ColorIndex = xlNone iR = ActiveCell.Row Range("H" & iR & ":AR" & iR).Interior.ColorIndex = 36 IC = ActiveCell.Column Range(Cells(5, IC).Address & ":" & Cells(127, IC).Address) _ .Interior.ColorIndex = 36 Else: Range("H5:AR127").Interior.ColorIndex = xlNone End If End Sub
Bonsoir,
Le grand maître JB avez donner une solution qui pourrait peut être te c onvenir. A adapter tout de même et sans shape. A placer dans la feuille.
Cordialement
JP
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim IC As Long
Dim iR As Long
'ActiveSheet.Unprotect
If Not Intersect(ActiveCell, [H5:AR127]) Is Nothing Then
Application.ScreenUpdating = False
Range("I5:AR127").Interior.ColorIndex = xlNone
iR = ActiveCell.Row
Range("H" & iR & ":AR" & iR).Interior.ColorIndex = 36
IC = ActiveCell.Column
Range(Cells(5, IC).Address & ":" & Cells(127, IC).Address) _
.Interior.ColorIndex = 36
Else: Range("H5:AR127").Interior.ColorIndex = xlNone
End If
End Sub
Le grand maître JB avez donner une solution qui pourrait peut être te c onvenir. A adapter tout de même et sans shape. A placer dans la feuille.
Cordialement
JP
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim IC As Long Dim iR As Long 'ActiveSheet.Unprotect If Not Intersect(ActiveCell, [H5:AR127]) Is Nothing Then Application.ScreenUpdating = False Range("I5:AR127").Interior.ColorIndex = xlNone iR = ActiveCell.Row Range("H" & iR & ":AR" & iR).Interior.ColorIndex = 36 IC = ActiveCell.Column Range(Cells(5, IC).Address & ":" & Cells(127, IC).Address) _ .Interior.ColorIndex = 36 Else: Range("H5:AR127").Interior.ColorIndex = xlNone End If End Sub
ThierryP
Bonjour,
Merci du tuyau ! Je vais essayer d'adapter, mais à l'époque, j'avais ch oisi la solution de Gaëtan Mourmant parce que celle de JB interférait a vec des MEFC et quelques autres procédures mais je dois pouvoir jongler a vec tout ça :-))
ThierryP
Le vendredi 1 février 2013 21:44:25 UTC+1, JP a écrit :
Bonsoir,
Le grand maître JB avez donner une solution qui pourrait peut être te convenir. A adapter tout de même et sans shape. A placer dans la feuille .
Cordialement
JP
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim IC As Long
Dim iR As Long
'ActiveSheet.Unprotect
If Not Intersect(ActiveCell, [H5:AR127]) Is Nothing Then
Application.ScreenUpdating = False
Range("I5:AR127").Interior.ColorIndex = xlNone
iR = ActiveCell.Row
Range("H" & iR & ":AR" & iR).Interior.ColorIndex = 36
Merci du tuyau ! Je vais essayer d'adapter, mais à l'époque, j'avais ch oisi la solution de Gaëtan Mourmant parce que celle de JB interférait a vec des MEFC et quelques autres procédures mais je dois pouvoir jongler a vec tout ça :-))
ThierryP
Le vendredi 1 février 2013 21:44:25 UTC+1, JP a écrit :
Bonsoir,
Le grand maître JB avez donner une solution qui pourrait peut être te convenir. A adapter tout de même et sans shape. A placer dans la feuille .
Cordialement
JP
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim IC As Long
Dim iR As Long
'ActiveSheet.Unprotect
If Not Intersect(ActiveCell, [H5:AR127]) Is Nothing Then
Application.ScreenUpdating = False
Range("I5:AR127").Interior.ColorIndex = xlNone
iR = ActiveCell.Row
Range("H" & iR & ":AR" & iR).Interior.ColorIndex = 36
Merci du tuyau ! Je vais essayer d'adapter, mais à l'époque, j'avais ch oisi la solution de Gaëtan Mourmant parce que celle de JB interférait a vec des MEFC et quelques autres procédures mais je dois pouvoir jongler a vec tout ça :-))
ThierryP
Le vendredi 1 février 2013 21:44:25 UTC+1, JP a écrit :
Bonsoir,
Le grand maître JB avez donner une solution qui pourrait peut être te convenir. A adapter tout de même et sans shape. A placer dans la feuille .
Cordialement
JP
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim IC As Long
Dim iR As Long
'ActiveSheet.Unprotect
If Not Intersect(ActiveCell, [H5:AR127]) Is Nothing Then
Application.ScreenUpdating = False
Range("I5:AR127").Interior.ColorIndex = xlNone
iR = ActiveCell.Row
Range("H" & iR & ":AR" & iR).Interior.ColorIndex = 36
En adaptant une procédure de Gaëtan Mourmant, je surligne la ligne de la cellule active en créant deux rectangles à gauche et à droite de celle-ci.
Y a-t-il un moyen de rendre ces objets non sélectionnables, c'est-à-dire qu'en cliquant dessus, je sélectionne la cellule qui est sous la souris et non le rectangle ?
Merci d'avance aux experts !!
il faut ne pas mettre de couleur de remplissage, ou bien mettre la transparence à 100% mettre toutefois le contour bien visible ...
Une autre alternative avec une MEFC http://boisgontierjacques.free.fr/pages_site/mfc.htm#CurseurCouleur
Bonsour®
En adaptant une procédure de Gaëtan Mourmant, je surligne la ligne de la cellule
active en créant deux rectangles à gauche et à droite de celle-ci.
Y a-t-il un moyen de rendre ces objets non sélectionnables, c'est-à-dire qu'en
cliquant dessus, je sélectionne la cellule qui est sous la souris et non le
rectangle ?
Merci d'avance aux experts !!
il faut ne pas mettre de couleur de remplissage, ou bien mettre la transparence
à 100%
mettre toutefois le contour bien visible ...
Une autre alternative avec une MEFC
http://boisgontierjacques.free.fr/pages_site/mfc.htm#CurseurCouleur
En adaptant une procédure de Gaëtan Mourmant, je surligne la ligne de la cellule active en créant deux rectangles à gauche et à droite de celle-ci.
Y a-t-il un moyen de rendre ces objets non sélectionnables, c'est-à-dire qu'en cliquant dessus, je sélectionne la cellule qui est sous la souris et non le rectangle ?
Merci d'avance aux experts !!
il faut ne pas mettre de couleur de remplissage, ou bien mettre la transparence à 100% mettre toutefois le contour bien visible ...
Une autre alternative avec une MEFC http://boisgontierjacques.free.fr/pages_site/mfc.htm#CurseurCouleur
Jacquouille
Salut Gilbert
Un peu de couleur ne ferait pas de tort, par ces temps-ci.....
Jacquouille
" Le vin est au repas ce que le parfum est à la femme." "pom...pom...pom.." a écrit dans le message de groupe de discussion : kg8oa3$mur$
Bonsour®
En adaptant une procédure de Gaëtan Mourmant, je surligne la ligne de la cellule active en créant deux rectangles à gauche et à droite de celle-ci.
Y a-t-il un moyen de rendre ces objets non sélectionnables, c'est-à-dire qu'en cliquant dessus, je sélectionne la cellule qui est sous la souris et non le rectangle ?
Merci d'avance aux experts !!
il faut ne pas mettre de couleur de remplissage, ou bien mettre la transparence à 100% mettre toutefois le contour bien visible ...
Une autre alternative avec une MEFC http://boisgontierjacques.free.fr/pages_site/mfc.htm#CurseurCouleur
Salut Gilbert
Un peu de couleur ne ferait pas de tort, par ces temps-ci.....
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
"pom...pom...pom.." a écrit dans le message de groupe de discussion :
kg8oa3$mur$1@speranza.aioe.org...
Bonsour®
En adaptant une procédure de Gaëtan Mourmant, je surligne la ligne de la
cellule
active en créant deux rectangles à gauche et à droite de celle-ci.
Y a-t-il un moyen de rendre ces objets non sélectionnables, c'est-à-dire
qu'en
cliquant dessus, je sélectionne la cellule qui est sous la souris et non le
rectangle ?
Merci d'avance aux experts !!
il faut ne pas mettre de couleur de remplissage, ou bien mettre la
transparence
à 100%
mettre toutefois le contour bien visible ...
Une autre alternative avec une MEFC
http://boisgontierjacques.free.fr/pages_site/mfc.htm#CurseurCouleur
Un peu de couleur ne ferait pas de tort, par ces temps-ci.....
Jacquouille
" Le vin est au repas ce que le parfum est à la femme." "pom...pom...pom.." a écrit dans le message de groupe de discussion : kg8oa3$mur$
Bonsour®
En adaptant une procédure de Gaëtan Mourmant, je surligne la ligne de la cellule active en créant deux rectangles à gauche et à droite de celle-ci.
Y a-t-il un moyen de rendre ces objets non sélectionnables, c'est-à-dire qu'en cliquant dessus, je sélectionne la cellule qui est sous la souris et non le rectangle ?
Merci d'avance aux experts !!
il faut ne pas mettre de couleur de remplissage, ou bien mettre la transparence à 100% mettre toutefois le contour bien visible ...
Une autre alternative avec une MEFC http://boisgontierjacques.free.fr/pages_site/mfc.htm#CurseurCouleur
