Caractere gras et taille 12

[maval]

Bonjour

J'ai une liste de non de ville avec les code postaux correspondant qui font 38950 lignes

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

si possible

Merci d'avance de votre aide

Cordialement

Maval

 

[phlaurent55]

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

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

 

[JNP]

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

=$B1<>$B2

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

 

[maval]

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

@+

 

[JNP]

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

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 😎

 

[Victor21]

Re : Caractere gras et taille 12

Bonsoir à tous.

Peut-être :

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

là aussi 🙂

 

[maval]

Re : Caractere gras et taille 12

Re,

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

Maval