Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2016 Format cellule Gras VBA

M

medsoft313

XLDnaute Nouveau
Bonjour à tous,
J'ai un fichier Excel en VBA protéger par mot de passe, la plupart des cellules sont verrouillé sauf la plage E20:E48 de ma feuille.
J'aimerais que utilisateur puisse mettre le texte écrit dans cette plage en gras cette option est facultatif.
J'ai trouvé ce code
Worksheets("Sheet1").Range("E20:E48").Font.Bold = True
mais le problème et que le format de la plage se transforme en gras dès l'écriture alors que moi je veux cette option est facultatif.
Merci d'avance.
 
Solution
Bonjour medsoft313, Jacky67,

Voyez le fichier joint et ces 2 macros avec leurs raccourcis clavier :
VB: 
Sub Gras()
'raccourci clavier Ctrl+g
With Sheets("Feuil1")
    If ActiveSheet.Name <> .Name Then Exit Sub
    If Intersect(ActiveCell, .[E20:E48]) Is Nothing Then Exit Sub
    .Protect "toto", UserInterfaceOnly:=True
    ActiveCell.Font.Bold = True
End With
End Sub

Sub NonGras()
'raccourci clavier Ctrl+G
With Sheets("Feuil1")
    If ActiveSheet.Name <> .Name Then Exit Sub
    If Intersect(ActiveCell, .[E20:E48]) Is Nothing Then Exit Sub
    .Protect "toto", UserInterfaceOnly:=True
    ActiveCell.Font.Bold = False
End With
End Sub
A+
Trier par date Trier par votes

Jacky67

XLDnaute Barbatruc
Bonjour,
Quelle est cette option facultative ??
Une proposition sur double clic dans la plage E20:E48
Un double clic fera alternativement en gras ou pas
Le code à placer dans le module de la feuille en question
VB: 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Intersect(Target, [e20:e48]) Is Nothing Then Exit Sub
    Cancel = True
   [e20:e48].Font.Bold = Not [e20:e48].Font.Bold
End Sub
 
Vote positif 0 Vote négatif
M

medsoft313

XLDnaute Nouveau
Merci infiniment pour la réponse, j’aimerais combiné les touches CTRL+G au lieu du double click
 
Vote positif 0 Vote négatif
M

medsoft313

XLDnaute Nouveau
J'ai mis ce code mais rien ne s'applique

VB: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Cells.Count = 1 And Target.Column = 5 And Target.Row >= 20 And Target.Row <= 48 Then
        Application.SendKeys ("^g") ' Appliquer la combinaison Ctrl+G
        Target.Font.Bold = Not Target.Font.Bold ' Inverser la mise en forme en gras de la cellule sélectionnée
    End If
End Sub
 
Vote positif 0 Vote négatif

Jacky67

XLDnaute Barbatruc
medsoft313 à dit:
Je suis désolé car le classeur appartient l'entreprise où je travaille et il contient des informations classées confidentielles.
Cliquez pour agrandir...
Ce classeur contient certainement des codes VBA qui mettent la protection. il faut donc modifié ce code.
Par l'enregistreur de macro, en faisant la manipulation de protection, on peut récupérer ce code.
A toi de voir
 
Vote positif 0 Vote négatif

Jacky67

XLDnaute Barbatruc
medsoft313 à dit:
Oui il contient des codes VBA qui mettent la protection, plus d'explication sur l'enregistreur de macro
Cliquez pour agrandir...
Re..
L'enregistreur de macro se trouve dans le menu==>développeur
Sans voir le code , ce sera difficile
Il faut ajouter au code existant cette instruction ==>AllowFormattingCells:=True
Il peut ressembler à ceci
ActiveSheet.Protect xxx, yyy, zzz, AllowFormattingCells:=True
 
Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc
Bonjour medsoft313, Jacky67,

Voyez le fichier joint et ces 2 macros avec leurs raccourcis clavier :
VB: 
Sub Gras()
'raccourci clavier Ctrl+g
With Sheets("Feuil1")
    If ActiveSheet.Name <> .Name Then Exit Sub
    If Intersect(ActiveCell, .[E20:E48]) Is Nothing Then Exit Sub
    .Protect "toto", UserInterfaceOnly:=True
    ActiveCell.Font.Bold = True
End With
End Sub

Sub NonGras()
'raccourci clavier Ctrl+G
With Sheets("Feuil1")
    If ActiveSheet.Name <> .Name Then Exit Sub
    If Intersect(ActiveCell, .[E20:E48]) Is Nothing Then Exit Sub
    .Protect "toto", UserInterfaceOnly:=True
    ActiveCell.Font.Bold = False
End With
End Sub
A+
 

Pièces jointes

  • Gras.xlsm
    17.2 KB · Affichages: 3
Vote positif 0 Vote négatif
Solution
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

G
  • Résolu(e)
XL 2021 VBA dates au mauvais format
Réponses
5
Affichages
250
vgendron
D
  • Question
Microsoft 365 Problème de format de cellule en VBA
Réponses
11
Affichages
546
David
D
M
  • Résolu(e)
XL 2019 [Résolu] VBA test sur une cellule en format [hh]:mm
Réponses
4
Affichages
520
miloo
M
A
  • Résolu(e)
XL 2013 PB CALCUL SOMME SI ENS
Réponses
3
Affichages
559
arno1234
A
L
  • Résolu(e)
Microsoft 365 VBA - Attribuer mise en forme en fonction de valeur cellule d'une liste
Réponses
14
Affichages
675
Laliepomm
L
D
  • Question
XL 2016 Button copier coller cellules indépendantes VBA autre feuille
Réponses
7
Affichages
1 K
vgendron
  • Suggestion
Texte Définir les propriétés d'une cellule ou d'un Range (couleurs, fonte, ..., valeur) dans une formule
Réponses
0
Affichages
972
Dudu2
K
  • Question
Microsoft 365 Récupérer le contenu en texte d'une cellule ayant un format personnalisé (sans VBA)
Réponses
9
Affichages
1 K
Efgé
A
  • Résolu(e)
XL 2016 Boucle
Réponses
12
Affichages
799
Aldonanou
A
J
  • Question
Autres Supprimer une ligne dans une feuille à partir d'une valeur rentrée dasn une cellule d'une autre feuille
2
Réponses
25
Affichages
2 K
jmc78
J
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…