Affecter mise en forme

[isa44]

Bonjour à tous,
Je joint un fichier d'exemple auquel je voudrais pouvoir à l'aide d'une macro faire correspondre le format de cellule (couleur,motif, bordure) ainsi que le format de police (gras,souligné,italique) aux chiffres correspondants.

J'ai déjà le code pour le fond de cellule.

Merci pour votre aide.

 

[skoobi]

Re : Affecter mise en forme

Bonjour,

pour récupérer la syntaxe VBA, passe par l'enregistreur de macro 😉.

 

[isa44]

Re : Affecter mise en forme

J'ai déjà essayé : Je ne vois pas dans le code les formats demandé !!!

Si quelqu'un pouvais me retourner mon fichier avec les particularités de format cellule et police ça m'arrangerais bien.

 

[skoobi]

Re : Affecter mise en forme

Re,

il faut faire les choix dans la boite de dialogue format dans les onglets désirer pour que l'enregistreur de macro récupère les syntaxes, voici ce qui est récupéré pour la cellule C7 feuille 2 pour l'onglet police et bordure:

Sub Macro2()
'
' Macro2 Macro
' Macro enregistrée le 02/03/2008 par Gilbert
'

'
    With Selection.Font
        .Name = "Times New Roman"
        .FontStyle = "Gras italique"
        .Size = 12
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
End Sub

 

[isa44]

Re : Affecter mise en forme

Merci Skoobi,

Où se trouve la "boite de dialogue format dans les onglets désirés" pour que l'enregistreur de macro récupère les syntaxes ?

 

[JCGL]

Re : Affecter mise en forme

Bonjour à tous,

Un essai avec la MeFC de mDF

Rentre une valeur en C de F1 et la MeFC de la feuille "MFC" s'applique

A+

 

[isa44]

Re : Affecter mise en forme

Merci JCGL, je penses que je vais réussir à l'appliquer à mon fichier.
Je verrais celà demain désormais

 

[isa44]

Re : Affecter mise en forme

Bon après plusieurs essai j'ai un bug avec un cde pour copier les valeurs remplacées dans la cellule d'à coté.

Option Explicit
Dim MaValeur As Variant
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("C6:C26,H6:H30,M6:M37,R6:R39")) Is Nothing Then
MaValeur = Target.Value

End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C6:C26,H6:H30,M6:M37,R6:R39")) Is Nothing Then Target.Offset(0, 1) = MaValeur
If flag Then Exit Sub
flag = True
end sub


Ne serait-il pas possible de compléter ma macro d'origine ?