Caractere gras

[analyseaux]

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)

 

[Robert]

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.

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 :

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

 

[analyseaux]

Re : Caractere gras

MERCI

Toutes les cellules de ma feuille sont verroullées et masquées avec mot de passe sauf ces cellules P21:AN2020.
Quel est le code approprié?

 

[Robert]

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 ?

 

[analyseaux]

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

 

[Robert]

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

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

 

[analyseaux]

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.

 

[analyseaux]

Re : Caractere gras

REBOONJOUR

je vous remercie infiniment c'est bien ce que je cherchais; il aurait suffit de cliquer sur format cellule "autoriser utilisateur".

 

[Dull]

Re : Caractere gras

Salut analyseaux, Robert🙂, le Forum

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

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

 

[Robert]

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.

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 ?

 

[analyseaux]

Re : Caractere gras

bsr

je t'avais dit que tout est rentré dans l'ordre merci Robert ....ta proposition est plus que satisfaisante