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

Caractere gras

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
A

analyseaux

XLDnaute Occasionnel
REBONSOIR

Pour confirmer une valeur est il possible avec un click à l'aide de la souris rendre la police en caractere gras.(au départ la valeur a été saisie en caractere normal)
 
Trier par date Trier par votes
Re : Caractere gras

Bonsoir Analyseaux, bonsoir le forum,

Je te propose la macro événementielle BeforeDoubleClick qui réagit non pas au clic mais au double-clic. Celle-ci alterne Gras/Normal à chaque double-clic. À placer par Visual Basic Editor dans l'onglet concerné Feuil1(Feuil1) par exemple.
Code: 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)'au double-click dans une cellule
Cancel = True 'annule le mode edition lié au double-clic
'met le texte en "gras" si il est "normal", le remet "normal" si il est "gras"
Target.Font.Bold = IIf(Target.Font.Bold = False, True, False)
End Sub

Su tu veux limiter l'action à une plage, définit une variable plage, et rajoute en tout début du code :
Code: 
Dim pl As Range 'déclare la variable pl
Set pl = Range("A1:A10") 'définit la variable pl (à adapter)
If Application.Intersect(Target, pl) Is Nothing Then Exit Sub
 
Vote positif 0 Vote négatif
Re : Caractere gras

Bonjour Analyseaux, bonjour le forum,

Et tu pouvais pas le dire avant !!!! Mais tu veux appliquer le gras que sur la plage P21:AN2020 ? Partout ? Ou sur une autre plage à préciser ?
 
Vote positif 0 Vote négatif
Re : Caractere gras

Que sur P21:AN2020 cette plage n'est ni verrouillée ni masquée cependant les autres cellules de la meme feuille sont verrouillées et masquées.
merci d'avance.
P/S Je ne pensais pas rencontrer de probleme avec une feuille protegée par une code
 
Vote positif 0 Vote négatif
Re : Caractere gras

Bonsoir Analyseaux, bonsoir le forum,

Alors pourquoi tu n'as pas, tout simplement, appliqué ce que je te recommandais dans ma première réponse...

Code: 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)'au double-click dans une cellule
Dim pl As Range 'déclare la variable pl
 
Set pl = Range("P21:AN2020") 'définit la variable pl
If Application.Intersect(Target, pl) Is Nothing Then Exit Sub
Cancel = True 'annule le mode edition lié au double-clic
'met le texte en "gras" si il est "normal", le remet "normal" si il est "gras"
Target.Font.Bold = IIf(Target.Font.Bold = False, True, False)
End Sub
 
Vote positif 0 Vote négatif
Re : Caractere gras

bjr

J'ai suivi tes recommandations sauf quand la feuille est protegée par un code cela ne fonctionne plus. Dans mon cas la feuille est protegée par un mot de passe sauf que les cellules citées ci-dessus ne sont ni verrouillées ni masquées.
 
Vote positif 0 Vote négatif
Re : Caractere gras

Salut analyseaux, Robert🙂, le Forum

essaye d'ajouter la Ligne En gras dans le Code de l'ami Robert

Code: 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'au double-click dans une cellule
Dim pl As Range 'déclare la variable pl

[B]Sheets("[COLOR=Red]NomdetaFeuille[/COLOR]").Protect Password:="[COLOR=Red]TonMotdePasse[/COLOR]", UserInterfaceOnly:=True[/B]

Set pl = Range("P21:AN2020") 'définit la variable pl
If Application.Intersect(Target, pl) Is Nothing Then Exit Sub
Cancel = True 'annule le mode edition lié au double-clic
'met le texte en "gras" si il est "normal", le remet "normal" si il est "gras"
Target.Font.Bold = IIf(Target.Font.Bold = False, True, False)
End Sub
Cette fonction permet d'écrire dans des cellules par macro même si celles-ci sont verrouillées.

Bonne Journée
 
Vote positif 0 Vote négatif
Re : Caractere gras

Bonjour Analyseaux, Dull, bonjour le forum,

Je ne te comprends pas Analyseaux... Je te demande si tu ne veux utiliser le code que dans la plage et tu me réponds :
Que sur P21:AN2020 cette plage n'est ni verrouillée ni masquée cependant les autres cellules de la meme feuille sont verrouillées et masquées.
Cliquez pour agrandir...
je te redonne le code pour ça et après tu me dis que ça marche pas sur les autres cellules !!!
C'est à se la prendre, se la couper et se la poser derrière l'oreille pour la fumer plus tard non ?
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Résolu(e)
XL 2019 Mettre en gras de C à E et en fond jaune la ligne concernée par aujourd'hui
Réponses
3
Affichages
111
anthoYS
W
  • Question Question
XL 2019 Changer la graisse et la taille avant le deuxième retour à la ligne dans une cellule
Réponses
6
Affichages
264
Webperegrino
W
C
  • Résolu(e)
Autres Validation de données avant verrouillage de la ligne
2
Réponses
17
Affichages
771
com689
C
C
  • Résolu(e)
XL 2021 Mise en forme MsgBox
2 3
Réponses
43
Affichages
1 K
Constantin
C
  • Résolu(e)
XL 2016 Macros Généralités
Réponses
4
Affichages
246
sylvanu
P
  • Résolu(e)
Microsoft 365 VBA - Survol d'un Label déclenchement action
Réponses
8
Affichages
335
patricko-13
P
P
  • Résolu(e)
Microsoft 365 Mettre en gras uniquement les chiffres
2
Réponses
18
Affichages
559
pat66
P
F
  • Question Question
XL 2016 recherche de mots
2
Réponses
19
Affichages
867
job75
S
  • Question Question
Microsoft 365 code vba pour chaine de caractère
Réponses
4
Affichages
521
vgendron
C
  • Résolu(e)
Microsoft 365 bouton pour un userform
Réponses
14
Affichages
590
C'est Génial
C
C
  • Question Question
XL 2021 Exporter des données vers une autre feuille...
Réponses
7
Affichages
202
sylvanu
F
  • Question Question
XL 2016 travail sur tableau
2 3 4
Réponses
55
Affichages
2 K
finarobert
F
M
  • Question Question
Microsoft 365 Classer alphabétiquement des noms en gras
2 3
Réponses
33
Affichages
1 K
moanin
M
  • Question Question
XL 2019 Conflit entre taille et couleur de la police dans les commentaires
2
Réponses
15
Affichages
536
Magic_Doctor
  • Question Question
Microsoft 365 Macro qui enchaine deshoraires Aller-Retour en fonction de critères
Réponses
10
Affichages
290
bsalv
B
B
  • Résolu(e)
XL 2021 VBA : activer une feuille dont le nom est la valeur d'une cellule
Réponses
2
Affichages
206
berru76
B
C
  • Question Question
XL 2019 Tableau Excel
Réponses
4
Affichages
265
Caller
C
  • Question Question
XL 2021 Formule pour Date
2
Réponses
18
Affichages
729
MuscatMimi
  • Question Question
XL 2021 Mots et maux : colorer et lister
2
Réponses
29
Affichages
1 K
DoubleZero
C
  • Question Question
Microsoft 365 Fichier réservation camping
Réponses
7
Affichages
369
fanfan38
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…