Entourer cellule active

R

Robert

Guest

• 1 Juillet 2004

• #2

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 ...

 

Vote positif 0 Vote négatif

N

nicolas

Guest

• 1 Juillet 2004

• #3

Bonjour,

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

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

Merci

 

Vote positif 0 Vote négatif

R

Robert

Guest

• 1 Juillet 2004

• #4

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

 

Vote positif 0 Vote négatif

N

nicolas

Guest

• 1 Juillet 2004

• #5

Merci

Effectivement ça marche.

En attendant la solution du zoom ...

 

Vote positif 0 Vote négatif

T

Ti

Guest

• 7 Juillet 2004

• #6

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.

 

Pièces jointes

• MiseEnFormeTi.zip

  11.1 KB · Affichages: 115

Vote positif 0 Vote négatif

T

Ti

Guest

• 7 Juillet 2004

• #7

é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

 

Vote positif 0 Vote négatif

P

Pat5

Guest

• 7 Juillet 2004

• #8

Bonsoir tout le momnde

Superbe Ti.

Merçi

Pat5 ;o)

 

Vote positif 0 Vote négatif

N

nicolas

Guest

• 7 Juillet 2004

• #9

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?

 

Vote positif 0 Vote négatif

T

Ti

Guest

• 7 Juillet 2004

• #10

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 !

 

Vote positif 0 Vote négatif

N

nicolas

Guest

• 7 Juillet 2004

• #11

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

 

Vote positif 0 Vote négatif

T

Tapsoba

Guest

• 7 Juillet 2004

• #12

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

 

Vote positif 0 Vote négatif

N

nicolas

Guest

• 7 Juillet 2004

• #13

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

 

Vote positif 0 Vote négatif

C

Celeda

Guest

• 7 Juillet 2004

• #14

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

 

Vote positif 0 Vote négatif

J

jon

Guest

• 7 Juillet 2004

• #15

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

 

Vote positif 0 Vote négatif