annee 2017

EXCEL ANNEE 2017

L'heure est venue de vous presenter

Une excel et bonne annee 2017 !

De la part de toute l equipe de VeriTi

Image 1

Bienvenue

sur le site des amis d'Excel

excel.veriti.net ou fr

Image 2

Musee

Visitez le "Musee VeriTi" 24h/24 - 7j/7, des "pepites" vous y attendent

Voir la suite
Image 3

Hommage

Thierry POURTIER alias 'Ti'
s'en est alle brutalement le samedi 13 novembre 2010...

Voir la suite
Image 4

Historique

Juillet 2013 : A l'occasion du 10eme anniversaire de VeriTi, j'ai décide de réparer et de remettre en ligne le site, avec une nouvelle version plus structurée tout en gardant les mêmes fichiers Excel

Voir la suite

Membre

+ Enregistrement
Articles >Cel / Col / Lig > Mise en forme

Mise en forme

Publié par veriland le 09-Aug-2013 22:30 (747 lectures)

Cel / Col / Lig - Mise en forme

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

Voici une macro événementielle à placer dans "ThisWorkbook".

module

 

Seule la feuille "Saisie" est concernée
Les cellules sont bordées en bleu, ce qui, avec la sélection, donne une couleur rouge !

planning

'************************************
'partie à coller dans ThisWorkbook
'************************************

Option Explicit
'Ti 07-07-04 

Private Type TBord
  LineStyle As Integer
  Color As Long
  Weight As Integer
End Type

Dim Size, Bords(1 To 6) As TBord

Dim LastCel As Range

Private Sub Reinit()
Dim B%
  With LastCel
    For B = 1 To .Borders.Count
      .Borders(B).Color = Bords(B).Color
      .Borders(B).Weight = Bords(B).Weight
      .Borders(B).LineStyle = Bords(B).LineStyle
    Next B
    .Font.Size = Size
  End With
End Sub

Private Sub Init()
Dim B%
  With LastCel
    For B = 1 To .Borders.Count
      Bords(B).Color = .Borders(B).Color
      Bords(B).LineStyle = .Borders(B).LineStyle
      Bords(B).Weight = .Borders(B).Weight
    Next B
    Size = .Font.Size
    .Font.Size = Size + 4
    .Borders.LineStyle = xlContinuous
    .Borders.Weight = xlThick
    .Borders.Color = vbCyan
  End With
End Sub


Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
  'pour redonner à la cellule sélectionnée sa mise en forme originale
  If Not LastCel Is Nothing Then Reinit
End Sub


Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
  'ne concerne que la feuille nommée "saisie"
  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


Naviguer à travers les articles
Article précédent Dans un tableau, appliquer une couleur à une ligne Remplir un tableau Article suivant
Note 0.00/5
Note: 0.0/5 (0 votes)
Les votes sont désactivés !
Les commentaires appartiennent à leurs auteurs. Nous ne sommes pas responsables de leur contenu.
Auteur Commentaire en débat

Astuces
Sélection d'articles par Catégorie
Userform
Feuille
Cel / Col / Lig
Souris
Impression
Images
Commentaires
Evènements
Fichier
Trucs et astuces
Divers
FAQ Acyd
carte des membres

Carte des membres

Menu Principal
Haut de page des téléchargements
Copyright 2013 Powered by XOOPS © 2001-2013