[XL-2007] Changer la couleur d'une ligne [Résolu]

[eliot.raymond]

Bonjour a toutes et tous, forum,

J'ai sur le bureau un dossier nommé PDF ou sont stockés les datasheets de mes circuits intégrés et un début de programme pour appeler ces fichiers
par une barre de repère horizontal dans la liste.

Je souhaiterai svp changer la couleur d’une ligne

(1) soit au passage
(2) soit au survol
(3) soit barre de repère simple

de la souris dans la zone (A2:E39)

Ligne en vert par exemple et de sélectionner par un clic l’appel d'un fichier choisi.

Ma liste devant s'agrandir cela me facilitera le choix.

Voir svp mon début de fichier ci-joint

Merci a vous et de votre savoir

Raymond

[eliot.raymond]

Bonsoir a tous,

Non alors, pas facile a faire si je comprends bien, bon tant pis je vais m'orienter vers une autre chose similaire mais plus simple a mettre en oeuvre, ou qui me dépannerai bien.

toutes fois si une idée, je suis preneur

Merci bonne soirée a tous

Raymond

[White Mibu]

Bonjour,

je sais pas si j'ai bien compris ton problème... mais je me suis penché sur le sujet. Regarde le fichier exemple et dit moi si c'est ce que tu recherche mais je vois pas vraiment l'utilité

Petite explication, avec Excel on peut récupérer la position de la souris (en X/Y) sur l'écran... Donc peut être le fonctionnement de mon fichier exemple va être "décaler" mais j'espère que ça va t'aider un peu...

Tiens moi au courant

Cordialement

[eliot.raymond]

Envoyé par White Mibu

Bonjour,

je sais pas si j'ai bien compris ton problème... mais je me suis penché sur le sujet. Regarde le fichier exemple et dit moi si c'est ce que tu recherche mais je vois pas vraiment l'utilité

Petite explication, avec Excel on peut récupérer la position de la souris (en X/Y) sur l'écran... Donc peut être le fonctionnement de mon fichier exemple va être "décaler" mais j'espère que ça va t'aider un peu...

Tiens moi au courant

Cordialement

Bonjour white mibu

merci pour ta reponse

Je post un fichier ou j'ai écrit dans une bulle infos ce que je souhaiterai faire, qui est en fait de déplacer une barre ou règle de repère sur une ligne, je clic pour sélectionner et je vais chercher le document choisi.

c'est plus facile pour se repèrer dans la liste

A voir si il est possible de faire svp quelque chose.

bonne journée a tous

Raymond

[White Mibu]

Bonjour,

à voir si c'est ce que vous attendez... je sais pas il me semble que vous demandez la même chose que j'ai fait pour le premier fichier. Ce qui me paraissait bizarre.

Enfin j'ai deux propositions
(obliger d'utiliser les macros pour les deux)

Cordialement

[eliot.raymond]

Envoyé par White Mibu

Bonjour,

à voir si c'est ce que vous attendez... je sais pas il me semble que vous demandez la même chose que j'ai fait pour le premier fichier. Ce qui me paraissait bizarre.

Enfin j'ai deux propositions
(obliger d'utiliser les macros pour les deux)

Cordialement

Salut

merci de te pencher sur mon probleme, c'est gentil a toi.

Bon le fichier PIC2 a l'air de fonctionner sans planter hihihihi

la ligne au survol de la souris passe bien au rouge

par contre c'est un peu trop lent

la liste va s'agrandir et j'ai bien peur que par la suite ca rame

encore plus ?????

peut etre améliorer le code surtout coté test (if) enfin pour moi

ou peut etre aussi qu'il faudrait désactiver la MFC ??????

Néanmoins c'est bien bosser

je regarde ca cette apres midi

a plus tard sans doute

Raymond

[White Mibu]

Slt,

Malheureusement la MFC est désactivé...

C'est une proposition mais j'ai trouvé que cette solution, enfaite Excel peut récupérer la position du curseur par rapport à l'écran et non par rapport au fichier excel...

Il s'agit d'une boucle de macro toutes les secondes, c'est pour ça que c'est assez lent...

Mais agrandir la taille du tableau ne fera pas planter excel tu peux allé jusqu'à la ligne 25 sur un écran normal...

Je sais pas si j'arrive à me faire comprendre mais pour moi tu devrait faire autrement. Par exemple si c'est pour voir plus facilement la ligne faire un petit outil de recherche d'une infos, pour surligner/accéder directement à la ligne correspondante ?

Cordialement

[eliot.raymond]

Envoyé par White Mibu

Slt,

Malheureusement la MFC est désactivé...

C'est une proposition mais j'ai trouvé que cette solution, enfaite Excel peut récupérer la position du curseur par rapport à l'écran et non par rapport au fichier excel...

Il s'agit d'une boucle de macro toutes les secondes, c'est pour ça que c'est assez lent...

Mais agrandir la taille du tableau ne fera pas planter excel tu peux allé jusqu'à la ligne 25 sur un écran normal...

Je sais pas si j'arrive à me faire comprendre mais pour moi tu devrait faire autrement. Par exemple si c'est pour voir plus facilement la ligne faire un petit outil de recherche d'une infos, pour surligner/accéder directement à la ligne correspondante ?

Cordialement

Re salut

Je te remercie, j'ai bien compris tes explications et je crois bien que a raison pour faire autrement, mais je ne saurai pas faire si tu a le temps svp si tu peux me faire quelque chose a ton gout.

en fait du moment que je puisse repérer facilement pour cliquer et aller chercher la datasheet et que ca marche je m'en contenterai

je te remercie d'avance pour ton aide et te dit a plus tard

Cordialement Raymond

[White Mibu]

C'est une proposition je sais pas exactement ce que tu veux mais avec une petite recherche ce fichier t'amène directement sur la ligne en question...

Bien sûr il peut évoluer... mais en tout cas je pense impossible d'adapter le survol de ligne pour un tableau avec beaucoup de ligne !

Cordialement

[eliot.raymond]

Envoyé par White Mibu

C'est une proposition je sais pas exactement ce que tu veux mais avec une petite recherche ce fichier t'amène directement sur la ligne en question...

Bien sûr il peut évoluer... mais en tout cas je pense impossible d'adapter le survol de ligne pour un tableau avec beaucoup de ligne !

Cordialement

bonsoir

tu vois quand tu veux, je blagues bien sur, pas mal, ca fonctionne et ca me plait bien.

je vais regarder ca de plus pres demain

au premier jet ca me va bien, te confirme ca demain quitte a remanipuler un chit coup

en tout cas je te remercie beaucoup pour ton aide, je crois que je vais rester sur ton code.

je te souhaite une bonne soirée et merci

Raymond

[eliot.raymond]

Envoyé par eliot.raymond

bonsoir

tu vois quand tu veux, je blagues bien sur, pas mal, ca fonctionne et ca me plait bien.

je vais regarder ca de plus pres demain

au premier jet ca me va bien, te confirme ca demain quitte a remanipuler un chit coup

en tout cas je te remercie beaucoup pour ton aide, je crois que je vais rester sur ton code.

je te souhaite une bonne soirée et merci

Raymond

Bonjour White Mibu

Bon c'est décider je garde ton code, ca me va bien, je t'en remercie beaucoup.

Je souhaiterai svp juste l'améliorer un peu si tu veux bien et si possible.

(1) le cadre du curseur qui entoure la cellule ou il est positionner, peut' on
soit le rendre moins visible, voir invisible.

(2) comment obtiens tu, les correspondances couleurs avec les chiffres mis au bout du code (interior.color=16711680) au cas ou je voudrai changer de couleur, pas très parlant ces chiffres.

(3) pour la liste déroulante elle va s'agrandir automatiquement vers le bas quand ma liste sera plus longue, ou bien il me faudra modifier des paramètres, si OUI trouver ces paramètres.

Voila après c'est bon pour moi, du moment que je peux m'en débrouiller tout seul après.

Encore merci a toi, c'est très sympa.

A plus tard

Cordialement Raymond

[White Mibu]

Bonjour,

Alors...

(1) à ma connaissance non... mais la solution serait de masquer la colonne A (Voir fichier joint)

(2) pour obtenir la correspondance rien de plus simple, onglet développeur, "Enregistrer une macro" ensuite tu va changer le remplissage d'une cellule ou plage de cellule. Tu va voir la macro créée (Module x") et t'aura ex :

Code :

1
2
3
4
5
6
7
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 49407
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With

Ici 49407 pour orange...

(3) pour la liste déroulante oui elle va s'agrandir automatiquement vers le bas grâce à cette formule :

=DECALER(Plage;0;0;NBVAL(Plage))

que tu trouve lorsque la cellule (liste déroulante) est sélectionnée dans, onglet données, validation de données.

En revanche elle fait référence à un "noms" : Plage qui est ici limité à 50. Pour l'agrandir c'est simple, onglet formules, gestionnaire de noms : Plage

='Data PIC'!$A$3:$A$50

pour l'agrandir :

='Data PIC'!$A$3:$A$200

Voilà

si t'a d'autres questions n'hésite pas !

Cordialement

[eliot.raymond]

Envoyé par White Mibu

Bonjour,

Alors...

(1) à ma connaissance non... mais la solution serait de masquer la colonne A (Voir fichier joint)

(2) pour obtenir la correspondance rien de plus simple, onglet développeur, "Enregistrer une macro" ensuite tu va changer le remplissage d'une cellule ou plage de cellule. Tu va voir la macro créée (Module x") et t'aura ex :

Code :

Ici 49407 pour orange...

(3) pour la liste déroulante oui elle va s'agrandir automatiquement vers le bas grâce à cette formule :



que tu trouve lorsque la cellule (liste déroulante) est sélectionnée dans, onglet données, validation de données.

En revanche elle fait référence à un "noms" : Plage qui est ici limité à 50. Pour l'agrandir c'est simple, onglet formules, gestionnaire de noms : Plage



pour l'agrandir :



Voilà

si t'a d'autres questions n'hésite pas !

Cordialement

Option Explicit



Salut,

Merci pour ta réponse, j'ai suivi tes conseils et voila ca marche le code pour un (vert) a boire ihihih humour

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub Macro1()
'
' Macro1 Macro
'
 
'
    Range("E6:G11").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 5287936
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Range("H14").Select
End Sub

Pour la liste déroulante c'est ok aussi, compris

pour masquer la colonne (A) je reste comme ca c'est bien

et comme tu me demande si gentiment hhiihi une petite question svp

<< Que peut' on changer dans la liste déroulante la couleur, de l'écriture, gras bref quel t'il possible de changer (sans monter une usine a gaz) afin d'avoir une liste un peu plus sympa.

me reste a te remercier de nouveau pour ton aide

PS: j'ai vu quelques codes sur le net pour changer l'aspect du curseur d'excel mais bon la, pas des plus utiles et en plus c'est compliqué.

je te souhaite une agréable bonne soirée

Cordialement Raymond

[White Mibu]

Euh... xD là, pour modifier le format de la liste déroulante...

à ma connaissance non ! ou ça va être une usine à gaz à mon avis...
Fin bref je pense que quelqu'un d'autres pourra plus t'aider que moi sur ce coup là !

(Pour avoir une liste déroulante comme tu souhaite je pense plus que tu devrait te tourner vers un UserForm c'est à dire une sorte de formulaire Excel où tu pourra choisir les propriété du menu déroulant)

Bonne soirée

Cordialement

[eliot.raymond]

Envoyé par White Mibu

Euh... xD là, pour modifier le format de la liste déroulante...

à ma connaissance non ! ou ça va être une usine à gaz à mon avis...
Fin bref je pense que quelqu'un d'autres pourra plus t'aider que moi sur ce coup là !

(Pour avoir une liste déroulante comme tu souhaite je pense plus que tu devrait te tourner vers un UserForm c'est à dire une sorte de formulaire Excel où tu pourra choisir les propriété du menu déroulant)

Bonne soirée

Cordialement

Bonjour White Mibu,

Merci pour les infos, pour la liste déroulante effectivement par UserForm, moi je ne sais pas faire, mais j'ai vu super sympa.

Bon tant pis c'est déja pas mal et ceci grace a toi éventuellement si tu as du temps et que tu t'ennuie, si tu peux me faire svp, facon USERFORM, j'en serai bien ravi.

Ce n'ai pas VBA que j'excel ihihhi mais j'aime bien.

je te souhaite un bon W-end ici a Rouen ca flotte.

Merci de me faire partager ton savoir.

Cordialement Raymond

[bhosni]

Bonjour à Tous;
je me suis penché sur votre message et je vous envois en pièces jointes un classeur avec explication, Bon courage

[White Mibu]

Bonjour,

version UserForm si ça t'intéresse... ça reste pas compliqué j'ai utilisé le même code que pour la sélection d'une liste déroulant (avec validation de données). Sauf qu'ici tu peux complétement personnalisé ton formulaire.

Alt + F11 et ensuite tu double clic sur UserForm1, clic droit sur le combobox et va voir les propriétés

Cordialement

[eliot.raymond]

Envoyé par White Mibu

Bonjour,

version UserForm si ça t'intéresse... ça reste pas compliqué j'ai utilisé le même code que pour la sélection d'une liste déroulant (avec validation de données). Sauf qu'ici tu peux complétement personnalisé ton formulaire.

Alt + F11 et ensuite tu double clic sur UserForm1, clic droit sur le combobox et va voir les propriétés

Cordialement

Salut White Mibu,

Merci beaucoup pour le fichier, c'est très sympa a toi, donc j'ai regarder le fichier, ca me parait pas mal et on peux faire quelques modifs intérressantes.

sinon te serai t'il possible svp de faire en sorte d'adapter l'userform a la place de la colonne A et virer la colonne B où ?????

voir mettre tout dans un userform plus grand, je ne sais pas, je dit ca comme ca.

En fait le fichier c'est juste pour appeler des docs qui sont déja dans le dossier (pdf) par l'intermédiaire d'une barre de repère dans une liste, voila j'ai tout dit, ihihi

et quand je clic sur un nom de la liste userform appeller le fichier qui se trouve dans le dossier pdf sur le bureau.

Encore merci et bon début de semaine a plus tard

Cordialement Raymond

[White Mibu]

Bonjour,

on ne peut pas replacer une colonne par un UserForm...

Cordialement

[eliot.raymond]

Envoyé par White Mibu

Bonjour,

on ne peut pas replacer une colonne par un UserForm...

Cordialement

Re salut

OK merci j'ai bien compris, c'est moi, je me suis mal exprimé, je vais faire un exemple factice

et tu me dira svp si possible ou pas, en fin d'après midi

Merci et a plus tard
Raymond