bloquer la taille des polices

[cireultra]

Salut à tous,

J’ai une feuille Excel (devis) dans laquelle les lignes de la colonne « Désignation » sont modifiables (format).
Je souhaiterai bloquer la taille des polices en « Arial 10 » mais que l’on puisse toujours écrire en gras, en italique, en souligné et changer la couleur des polices.

Je Bloque !!! 😕

A +

 

[Banzai64]

Re : bloquer la taille des polices

Bonsoir

Un essai

 

[Pierrot93]

Re : bloquer la taille des polices

Bonsoir Cirueltra

essaye le code ci dessous, valide sur la colonne A, à placer dans le module de la feuille concernée :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 And Target.Column = 1 Then
    With Target.Font
        .Name = "Arial"
        .Size = 10
    End With
End If
End Sub

bonne soirée
@+

 

[jeanpierre]

Re : bloquer la taille des polices

Bonsoir cireultra, le forum,

Question : quels sont les utilisateurs qui vont s'amuser à modifier la taille des polices, si l'application fonctionne bien ????

Seraient-t'il neuneux plus que neuneux ???

 

[cireultra]

Re : bloquer la taille des polices

Comprend pas ? 😕

 

[cireultra]

Re : bloquer la taille des polices

Seraient-t'il neuneux plus que neuneux ??? Et oui !!!

 

[cireultra]

Re : bloquer la taille des polices

Merci Pierrot, je vais tester.

A +

 

[cireultra]

Re : bloquer la taille des polices

Banzai64 je ne comprend pas ton fichier zip ?? ou ce trouve le bloquage de la police ??

 

[Banzai64]

Re : bloquer la taille des polices

bonsoir
On peut modifier la taille mais en quittant la cellule je remets la bonne police
c'est une autre approche
Mais la solution de Pierrot93 est plus élégante à mon avis

 

[cireultra]

Re : bloquer la taille des polices

Merci à tous pour vos réponses. 🙂

A +

 

[Pierrot93]

Re : bloquer la taille des polices

Re

autre solution, pour être un peu plus complet, afin d'empêcher le formatage direct, sans modification de la valeur de la cellule, controler également le changement de sélection.

Dans un module standard, une variable "Public"

Public c As Range

dans le module "ThisWorkbook" initialisation de cette même variable à l'ouverture du classeur.

Private Sub Workbook_Open()
Set c = Range("A1")
Range("A1").Select
End Sub

et codes ci dessous, dans le module de la feuille concernée :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim x As Range
For Each x In c
    If x.Column = 1 Then
        With c.Font
            .Name = "Arial"
            .Size = 10
        End With
    End If
Next x
If Target.Count < 500 Then Set c = Target
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 And Target.Column = 1 Then
    With Target.Font
        .Name = "Arial"
        .Size = 10
    End With
End If
End Sub

classeur en pièce jointe avec les codes.

bonne soirée à tous
@+

 

[cireultra]

Re : bloquer la taille des polices

Encore merci Pierrot.😀