Astuce du jour: Palette de couleur sur le click droit

[MJ13]

Astuce du jour: Copier Coller Valeur Format...

Bonjour à tous

Voici le plan des différentes astuces présentes dans cette discussion (Mise à Jour le 21 03 2014):

Encadre Tableau

Mise en page feuille

Redimensionnement d'images

Capture Ecran

Encadrement tableau

Tri Tableau

Installer sur Win8 64 bits programmes anciens

Lancer nouvelle instance d'Excel

Astuces pour le forum

Supprimer les lignes en trop

Recherche Rapide Google

Tri Ascendant Descendant

Range Dossier suivant extension des fichiers V1 et V2


Résolution Ecran


Palette de couleur sur le click droit

Programmer le Bouton Marche/Arrêt

Résoudre le problème des Litviews

Copier Coller valeur format...


Quand , on programme en VBA, avec l'enregistreur de macros, on a souvent des lignes de codes superflues .

En essayant de trouver un moyen simple pour encadrer un tableau de toutes les cellules on peut écrire:

Code VBA:
Selection.Borders.LineStyle = xlContinuous




Au lieu de:


Code VBA:
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With




Je voulais le partager avec vous pour une fois que je trouve une astuce intéressante .

 

[Hervé]

Re : Astuce du jour: Palette de couleur sur le click droit

salut

avec l'accord de MJ que je remercie pour l’échange apporter à travers ce fil.

un petit code à mettre dans le module thisworbook et qui vous permettra de bénéficier de la palette sur tout les fichiers excel (tant que le fichier comportant ce code est ouvert)

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("Cell").Reset
End Sub
Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)

Application.CommandBars("Cell").Reset
With Application.CommandBars("Cell").Controls.Add(msoControlButton)
      .Caption = "Palette"
      .BeginGroup = True
      .OnAction = "Affiche_palette"
End With

End Sub

a plus

 

[MJ13]

Re : Astuce du jour: Palette de couleur sur le click droit

Bonjour Hervé

Merci beaucoup pour ce code qui fonctionne et est très pratique .

 

[MJ13]

Re : Astuce du jour: Programmer le Bouton Marche Arrêt

Bonjour à tous

Vous utilisez souvent la mise en veille pour éviter de perdre du temps lors de l'allumage de votre PC.

Voici une astuce faîte pour vous. Plutôt que d'appuyer Alt+F4 puis choisir veille, vous pouvez redéfinir le bouton Marche/Arrêt (I/O) de votre PC.

Pour cela aller dans le panneau de configuration choisir Option d'alimentation puis cliquer sur Choisir l'option du bouton d'alimentation. Choisisez votre option et enregistrez .

​

 

[MJ13]

Re : Astuce du jour: Résoudre le problème des Listviews

Bonjour à tous

Le problème de l'installation des listviews qui ne fonctionnent pas est un problème récurrent.

Voici une astuce qui peut dans certains cas dépanner ceux qui ont ce problème dans le fichier joint.

 

[MJ13]

Re : Astuce du jour: Palette de couleur sur le click droit

Bonjour à tous

Aujourd'hui, l'astuce du jour est " Comment trouver l'astuce du jour sur le forum XLD".

C'est très simple: tapez dans la zone de recherche (la loupe bleu en haut à droite): astuce jour MJ13


Voilà, c'est très simple .

 

[Hervé]

Re : Astuce du jour: Palette de couleur sur le click droit

salut

copier/coller valeur à l'aide de la souris :

- sélectionner la zone à traiter
- maintenir la touche CTRL et sélectionnez le bord de la zone en maintenant le bouton droit de la souris
- déplacer la zone et revenir à la place initiale
- lachez le bouton droit
- un menu apparait, sélectionnez : "copiez ici les valeurs seules"

a plus

 

[chris]

Re : Astuce du jour: Palette de couleur sur le click droit

Bonjour

Merci Hervé.

Sympa cette astuce : et en plus cela marche aussi pour le copier ailleurs si on revient pas à son point initial...

 

[MJ13]

Re : Astuce du jour: Copier Coller valeur format...

Bonjour à tous

Merci Hervé pour cette astuce que je ne connaissais pas .

Sinon, j'utilise souvent Ctrl+* puis Ctrl+c puis Alt+e puis g puis v pour coller les valeurs ou f pour coller le format.

 

[psdi]

Re : Astuce du jour: Palette de couleur sur le click droit

Bonjour MJ13,
Viens de trouver ton astuce "Selection.Borders.LineStyle = xlContinuous". En fait je l'avais déjà raccourci , mais la 1 seule instruction, le top.
Adopté immédiatement.
Cordialement.

 

[Staple1600]

Re : Astuce du jour: Copier Coller valeur format...

Bonsoir à tous

Bonjour à tous

Merci Hervé pour cette astuce que je ne connaissais pas .

Sinon, j'utilise souvent Ctrl+* puis Ctrl+c puis Alt+e puis g puis v pour coller les valeurs ou f pour coller le format.

Ca sert à quoi que DavidXLD se décarcasse alors
Et que j'inaugure cette nouvelle section du forum avec cette même astuce ...
https://www.excel-downloads.com/thr...oit-pour-ceux-qui-collent-a-tout-vent.216926/
(C'est pas si vieux pourtant...février 2014 !)

 

[chris]

Re : Astuce du jour: Palette de couleur sur le click droit

Bonjour

Merci Staple : je n'avais pas vu cette nouvelle rubrique.

 

[Staple1600]

Re : Astuce du jour: Encadrement tableau VBA

Re

Chris
Tu sembles ne pas être la seule à avoir zapper la chose
Pourtant David avait fait le nécessaire pour cela se sache
https://www.excel-downloads.com/threads/nouveau-sous-forum-vos-trucs-et-astuces.216917/

 

[MJ13]

Re : Astuce du jour: Palette de couleur sur le click droit

Bonjour Jean-Marie

Mais l'un n'empêche pas l'autre .

En plus pour moi, c'est plus facile de retrouver mes trucs qui ne sont pas que sur Excel, et celles des autres dans une seule discussion .

 

[chris]

Re : Astuce du jour: Palette de couleur sur le click droit

Bonjour


Je passe rarement au salon d'où mon ignorance. C'est réparé !

 

[Staple1600]

Re : Astuce du jour: Palette de couleur sur le click droit

Re

MJ13

Bonjour Jean-Marie
Mais l'un n'empêche pas l'autre .
En plus pour moi, c'est plus facile de retrouver mes trucs qui ne sont pas que sur Excel, et celles des autres dans une seule discussion .

[taquinerie du vendredi soir]

Merci Hervé pour cette astuce que je ne connaissais pas .

C'était juste pour souligner le fait que toi un vieux de la vielle tu aurais du connaitre
(Au moins connaitre les nouveautés récentes proposées par DavidXLD )
[/taquinerie du vendredi soir]