OVH Cloud OVH Cloud

Encadrement de la ligne active : problème VBA

24 réponses
Avatar
géjoun.
Bonjour,

En faisant une recherche dans les archives, j'ai trouvé la possibilité
d'encadrer horizontalement la ligne active (ce qui permet de facilement
repérer les valeurs qui sont sur cette ligne); seulement la macro "encadre"
la ligne ET aussi toutes les séparations verticales de celle-ci, hors
j'aimerai que cette fonction ne m'encadre simplement que le haut et le bas
de la ligne, et pas toutes les "séparations verticales"; (je sais pas si je
suis trés clair, je voudrais que ça m'affiche seulement comme si on
sélectionne une ligne sur toute la longueur, et qu'on active seulement une
bordure haute et une basse); alors, est ce possible?

D'autre part, j'ai aussi remarqué en utilisant cette macro, qu'à l'ouverture
suivante, la dernière ligne sur laquelle se trouvait la cellule sélectionnée
se retrouve encadrée telle que le permet la macro, et ça, c'est pas terrible
lorsqu'on a déja des bordures de prédéfinies, alors est ce qu'il est pas
possible d'avoir cette fonction sans cette inconvénient?

Voici le code de la macro:


Private lngAvant As Long
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If lngAvant <> 0 Then
If Target.Row <> lngAvant Then
Range("a" & lngAvant).EntireRow.Style = "normal"
End If
End If
lngAvant = Target.Row
Target.EntireRow.Borders.Color = vbRed
End Sub


Merci à tous!

--

Géjoun.
dam-mailBLOCAGE@ifrance.com
····························································
Enlevez le BLOCAGE pour répondre...

4 réponses

1 2 3
Avatar
géjoun.
"sabatier" a écrit dans le
message...
je m'immisce, AV est parti boire l'apéro...
pour trouver le module ThisWorkbook, géjoun, tu ouvres ton classeur puis
tu fais Alt + F11 et dans l'arborescence à gauche du VBE qui vient de
s'afficher, tu répères ton classeur, tu vois qu'il y a après le détail
des feuilles d'icelui une ligne ThisWorkbook : tu double-cliques
là-dessus et dans la fenêtre/module qui apparaît à droite tu écris la
proc que t'a donnée AV ; tu refermes VBE, enregistre ton classeur et
quand tu l'ouvriras à nouveau et voudra l'imprimer, tu verras que la
ligne encadrée ne sera pas sur le document imprimé...
alles unter Kontroll, nun???
jps


OUEEEE!
Ca y est! Cette fois ci, c'est la bonne! J'y suis enfin arrivé!
Je suis sûr que vous avez jamais autant galéré pour expliquer un truc comme
ça à quelqu'un!
Alors, encore une fois 1000 mercis, et sur ce, c'est pas tout ça excel, mais
je cours rejoindre AV à l'apéro! :-)

PS: ya que ta dernière phrase que j'ai du mal à saisir...un nouveau
dialecte??? :o))))

Encore merci!

--

Géjoun.

····························································
Enlevez le BLOCAGE pour répondre...

Avatar
sabatier
all under control, now?
ça ta va mieux, géjoun?
et veille à ce qu'AV remette bien sa tournée car il n'est pas très loin
de l'auvergne...
jps

géjoun. a écrit:
"sabatier" a écrit dans le

alles unter Kontroll, nun???
jps



PS: ya que ta dernière phrase que j'ai du mal à saisir...un nouveau
dialecte??? :o))))

Encore merci!




Avatar
alles unter Kontroll, nun ???
everything under control, now ???
todo en control, ahora ???
tutto sotto controllo, ora ???
tudo sob o controle, agora ???
Tout sous contrôle, maintenant ???

et en azerghii ???

-----Message d'origine-----
"sabatier" a
écrit dans le

message...
je m'immisce, AV est parti boire l'apéro...
pour trouver le module ThisWorkbook, géjoun, tu ouvres
ton classeur puis


tu fais Alt + F11 et dans l'arborescence à gauche du
VBE qui vient de


s'afficher, tu répères ton classeur, tu vois qu'il y a
après le détail


des feuilles d'icelui une ligne ThisWorkbook : tu
double-cliques


là-dessus et dans la fenêtre/module qui apparaît à
droite tu écris la


proc que t'a donnée AV ; tu refermes VBE, enregistre
ton classeur et


quand tu l'ouvriras à nouveau et voudra l'imprimer, tu
verras que la


ligne encadrée ne sera pas sur le document imprimé...
alles unter Kontroll, nun???
jps


OUEEEE!
Ca y est! Cette fois ci, c'est la bonne! J'y suis enfin
arrivé!

Je suis sûr que vous avez jamais autant galéré pour
expliquer un truc comme

ça à quelqu'un!
Alors, encore une fois 1000 mercis, et sur ce, c'est pas
tout ça excel, mais

je cours rejoindre AV à l'apéro! :-)

PS: ya que ta dernière phrase que j'ai du mal à
saisir...un nouveau

dialecte??? :o))))

Encore merci!

--

Géjoun.

························ ························· ········
···

Enlevez le BLOCAGE pour répondre...


.




Avatar
géjoun.
...

a écrit dans le message...
alles unter Kontroll, nun ???
everything under control, now ???
todo en control, ahora ???
tutto sotto controllo, ora ???
tudo sob o controle, agora ???
Tout sous contrôle, maintenant ???

et en azerghii ???

http://trans.voila.fr/ ??? :-)

--

Géjoun.

····························································
Enlevez le BLOCAGE pour répondre
1 2 3