Rajout de fonction

Pinocchio1957 · 4 Octobre 2012

Bonjour

qui peut me dire comment rajouter des fonctions en haut de la page excel sous dessous accueil insertion etc.... il y a des fonctions copier coller taille de la police etc...... je voudrais y rajouter justifier la ou il y a déjà aligner à gauche , aligner à droite centrer.

image de ce dont je parle

Merci pour votre aide

amicalement

véro

david84 · 4 Octobre 2012

Re : Rajout de fonction

Bonjour,
la réponse à cette question t'a déjà été donnée par Chris ici.
Elle t'a d'ailleurs expliqué que le terme "fonction" n'était pas adapté...
A+

job75 · 4 Octobre 2012

Re : Rajout de fonction

Bonjour PINNOCHIO1957, salut David

S'il ne faut que la commande "Justifier", pourquoi pas un simple clic droit ?

Avec ce code dans ThisWorkbook :

Code:

Dim sel As Range, ha, va, wt 'mémorise les variables

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, _
 ByVal Target As Range, Cancel As Boolean)
If IsEmpty(ActiveCell) Then Exit Sub
Cancel = True
With Target
  Set sel = Target
  ha = .HorizontalAlignment
  va = .VerticalAlignment
  wt = .WrapText
  .HorizontalAlignment = xlJustify
  .VerticalAlignment = xlJustify
  .WrapText = True
End With
Application.OnUndo "Annuler Justifier", "ThisWorkbook.Annuler"
Application.OnRepeat "", ""
End Sub

Sub Annuler()
On Error Resume Next
With sel
  .HorizontalAlignment = ha
  .VerticalAlignment = va
  .WrapText = wt
End With
End Sub

Voir le fichier joint.

A+

Rajout de fonction

Pinocchio1957

XLDnaute Nouveau

david84

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Pièces jointes

Discussions similaires