Caractere gras et taille 12

phlaurent55

Nous a quittés en 2020

Repose en paix

• 17 Juillet 2012

• #2

Re : Caractere gras et taille 12

Bonjour Maval,

J'aimerai que lorsque le N° code postal change la ville correspondante se mette en gras et en caractère taille 12

Cliquez pour agrandir...

Ne voyant pas de macro dans le fichier...........
Ne voyant pas comment, où et quand le code postal change ..........

à te lire avec un peu plus de précision dans la question posée

à+
Philippe

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 17 Juillet 2012

• #3

Re : Caractere gras et taille 12

Bonjour le fil 🙂,
@ Philippe : Soit tu es fatigué, soit notre ami a changé le fichier car il y a des plages de couleurs biens distinctes 😛...
@ Maval : Avec une MFC, on peut mettre en gras et ajouter une couleur de fond, mais pas changer la taille de caractère 🙄...

Code:

=$B1<>$B2

Sinon, il va falloir macroter 😉...
Voir PJ.
Bonne suite 😎

 

Pièces jointes

• Caractere gras.xlsm

  15 KB · Affichages: 47
• Caractere gras.xlsm

  15 KB · Affichages: 57
• Caractere gras.xlsm

  15 KB · Affichages: 51

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 17 Juillet 2012

• #4

Re : Caractere gras et taille 12

Bonjour JNP.

Oui avec une MFC sa va très bien aucun problème sauf que Colonne "A et B" ne doivent pas changer juste la colonne "K" donc juste a changer au niveau de la MFC

Mais en VBA est-il pas possible et peut-être mieux ?

Merci beaucoup

@+

 

Dernière édition: 17 Juillet 2012

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 17 Juillet 2012

• #5

Re : Caractere gras et taille 12

Re 🙂,
Techniquement, j'étais très VBA, mais on m'a souvent démontré pour des raisons diverses et variés (vitesse, modification des colonnes non prises en causes, utilisateurs, etc.) qu'il valait mieux utiliser les formules et les MFC, et le VBA, uniquement quand c'est indispensable 🙄...

Code:

Sub test()
Dim I As Integer, Plage As Range
For I = 2 To Range("K" & Rows.Count).End(xlUp).Row
    If Range("B" & I) <> Range("B" & (I - 1)) Then
        If Plage Is Nothing Then
            Set Plage = Range("K" & I)
        Else
            Set Plage = Union(Plage, Range("K" & I))
        End If
    End If
Next I
With Plage
.Font.Bold = True
.Font.Size = 12
End With
End Sub

Là par exemple, si on insère une colonne avant K, tu es bon pour remodifier le code 😛...
Bonne suite 😎

 

Dernière édition: 17 Juillet 2012

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

Supporter XLD

• 17 Juillet 2012

• #6

Re : Caractere gras et taille 12

Bonsoir à tous.

Peut-être :

VB:

Sub Macro1()

    For Each cell In Range("K2:K39000")
        If cell.Offset(0, -9) <> cell.Offset(-1, -9) Then
            With cell.Font
                .Bold = True
                .Size = 12
            End With
        End If
    Next
End Sub

Là par exemple, si on insère une colonne avant K, tu es bon pour remodifier le code ...

Cliquez pour agrandir...

là aussi 🙂

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 17 Juillet 2012

• #7

Re : Caractere gras et taille 12

Re,

Merci Patrick, JNP sa fonctionne Nickel je vous remercie et vous souhaite une bonne soirée

Maval

 

Vote positif 0 Vote négatif