Entourer cellule active

[nicolas]

Bonjour à Tous,

J'ai essayé de chercher une solution sur le forum mais je n'en est pas trouvé.

Je souhaiterais "encadrer" ma cellule active en rouge et si possible grossir la police pendant que je saisis. Dès que je passe à une autre cellule la cellule précédente redevient normale.

Je souhaite juste mettre "en relief" la cellule dans laquelle je tape.

Merci

 

[Robert]

Bonjour Nicolas,
Pour la sélection, tu devrais regarder vers les propriétés Shapes...
Le code devra être du style :
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
h = ActiveCell.Height
w2 = ActiveCell.Width
t = ActiveCell.Top
w = ActiveCell.Left
On Error Resume Next
ActiveSheet.Shapes(""HiliteSelect"").Delete
On Error GoTo 0
ActiveSheet.Shapes.AddShape(msoShapeRectangle, w, t, w2, h).Name = "HiliteSelect"
With ActiveSheet.Shapes("HiliteSelect")
.Fill.Visible = msoFalse
.Fill.Transparency = 0#
.Line.Weight = 3#
.Line.ForeColor.SchemeColor = 10
.ControlFormat.PrintObject = False
End With
End Sub

Pour la loupe, je n'ai pas de solution mais quelqu'un en aura certainement une ...

 

[nicolas]

Bonjour,

J'ai un message d'erreur sur la ligne
ActiveSheet.Shapes(""HiliteSelect"").Delete

Pourriez-vous m'envoyer éventuellement un classeur exemple?

Merci

 

[Robert]

Re Bonjour Nicolas,
Effectivement j'ai mis deux "" au lieu d'un...

 

[nicolas]

Merci

Effectivement ça marche.

En attendant la solution du zoom ...

 

[Ti]

alors comme Nicolas m'a demandé de trouver une solution à sa question, la voici ici. je ne passe pas par des shapes mais par une simple macro événementielle qui modifie l'apparence de la cellule active.

 

[Ti]

évidemment, j'ai fais un copier/coller un peut trop rapide et j'ai mis 2 fois ScreenUpdating = False !, donc voici la "bonne" SelectionChange :

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Sh.Name <> "Saisie" Or Target.Count > 1 Then Exit Sub
Application.ScreenUpdating = False
If Not LastCel Is Nothing Then Reinit
Set LastCel = Target
Init
Application.ScreenUpdating = True
End Sub

 

[Pat5]

Bonsoir tout le momnde

Superbe Ti.

Merçi

Pat5 ;o)

 

[nicolas]

Un grand merci
C'est ce que je cherchais. Cependant j'ai un léger problème puisque mes cellules avaient déjà des bordure.
Est-il possible de les garder?

 

[Ti]

pas de problème, le format de ta cellule est restitué dès que la sélection change, et heureusement sinon ce serait le bazar !

 

[nicolas]

Je n'avais pas vérifié

J'aimerais également si c'est possible faire quelque chose de voisin:
Entourer la cellule active et grossir l'ensemble de la ligne active

Merci

 

[Tapsoba]

Bonsoir à tout le forum.

Merci à Ti pour ce merveilleux boulot.

Je voudrais savoir comment je peux appliquer ce code sur toutes les feuilles de mon classeur.


infiniment merçi

 

[nicolas]

Bonsoir

Dans

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Sh.Name <> "Saisie" Or Target.Count > 1 Then Exit Sub

Il suffit d'enlever

Sh.Name <> "Saisie" Or

 

[Celeda]

Bonsoir,

ah que oui Pat5 tu as raison !!!

c'est tit' pas de la macro de Ti cela !

c'est de la tite macro qu'on aime

c'est bo ce bleu qui brille de par tout

et c'est par perdu pour tout le monde ce tite code

ah ce Ti, si on ne l'avait pas il nous manquerait

heureusement......à chaque fois une tite macro et hop le forum s'illumine du feu d'artifice de ce Ti bohommme


et j'appuie la demande de Tapsoba !!

un gros merci avec un zoubiouakences

Celeda

 

[jon]

je fais que passer,
c'est possible en formatage conditionnel


bonne recherche .... bonne année ... je pète les plombs, voilà ça m'apprendra de détruire 'nimporte quel fichier, j'ai du me payer une réinstall et le téléchargements d"e service pack avec mon modem ;-)


bye
stéphane