Format automatique VBA...

[Misterbean]

Bonjour,
Grâce aux personnes actives sur ce Forum, mes connaissances de VBA (étant TRES débutant) s'améliorent de jour en jour. Voici ma nouvelle question:

J'ai un module VBA, qui, lors de double click, rempli automatiquement la cellule avec une couleur + un contenu (par exemple le chiffre "8" lié à la couleur rouge, chiffre "4" à la couleur rose,..). Le texte apparaît mais pas au bon format que j'aimerais
J'aimerais que ce contenu soit centré, Arial, 11pt et couleur grise. Voici le code actuel:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Couleur As Long

Select Case Target.Value
Case "": Valeur = 8: Couleur = 1
Case 8: Valeur = 4: Couleur = 2
Case 4: Valeur = "": Couleur = 3
End Select

Target.Interior.color = Choose(Couleur, RGB(255, 0, 0), RGB(237, 125, 49), RGB(255, 255, 255))
Target = Valeur
Cancel = True
End Sub

Pouvez-vous m'aider ?

Merci
MB

 

[Pierrot93]

Re : Format automatique VBA...

Re,

utilise l'enregistreur de macro, tu auras les bonnes propriétés impactées, il ne te restera plus qu'à adapter à ton projet...

@+

 

[Misterbean]

Re : Format automatique VBA...

Hmmm. Merci pour cette réaction rapide, mais je crains ne pas comprendre.... le module dont code ci-dessus fait partie de "Sheet 1" et donc n'est pas une macro. Pouvez-vous clarifier ? Merci !

Et lié à ce post, j'ai un bouton (une vrai Macro cette fois-ci) qui permet d'effacer contenu et couleur des cellules, mais ensuite, si je double click à nouveau afin de donner une couleur et contenu, le format original n'est plus respecté. d'avance merci pour votre support

MB

 

[Pierrot93]

Re : Format automatique VBA...

Re,

le module dont code ci-dessus fait partie de "Sheet 1" et donc n'est pas une macro. Pouvez-vous clarifier ? Merci !

oui j'ai bien compris, c'est paur cela que je parle d'adaptation une fois les propriés impactées déterminées... sur l'onglet "developpeur" le bouton "enregistrer une macro"...

 

[Misterbean]

Re : Format automatique VBA...

Merci Pierrot mais je suis apparemment très blond Je vois comment enregistrer une macro mais à quoi pensez-vous (quel contenu dans cette macro ?)

D'avance merci
MB

 

[Pierrot93]

Re : Format automatique VBA...

Re,

J'aimerais que ce contenu soit centré, Arial, 11pt et couleur grise. Voici le code actuel

bah... avec l'enregistreur enregistre ces actions....

 

[merinos]

Re : Format automatique VBA...

Salut MB,

l'idée c'est de faire un peu comme si tu avais deja ta macro... donc tu enregistre une macro qui fait ce que tu ne connais pas... puis quand tu la lis, elle te donne plein d'info sur ce que tu dois écrire.

Souvent pour ce type de macro, j'ne enregistre 4 ou 5... et je trouve à chaque fois certaines propriétés qui me sont utiles pour ma macro.

Mercinos

 

[Pierrot93]

Re : Format automatique VBA...

Re,

l'enregistreur donne ca :

Sub Macro1()
    With Selection.Font
        .Name = "Arial"
        .Size = 11
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ThemeColor = xlThemeColorLight1
        .TintAndShade = 0
        .ThemeFont = xlThemeFontNone
    End With
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Range("H21").Select
End Sub

 

[Pierrot93]

Re : Format automatique VBA...

Re,

tu gardes les infos qui t'interresse :

Sub Macro1()
    With Selection.Font
        .Name = "Arial"
        .Size = 11
    End With
    With Selection
        .HorizontalAlignment = xlCenter
    End With
End Sub

 

[Pierrot93]

Re : Format automatique VBA...

Re,

tu adaptes :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Couleur As Long

Select Case Target.Value
Case "": Valeur = 8: Couleur = 1
Case 8: Valeur = 4: Couleur = 2
Case 4: Valeur = "": Couleur = 3
End Select

Target.Interior.Color = Choose(Couleur, RGB(255, 0, 0), RGB(237, 125, 49), RGB(255, 255, 255))
Target = Valeur
    With Target.Font
        .Name = "Arial"
        .Size = 11
    End With
    With Target
        .HorizontalAlignment = xlCenter
    End With

Cancel = True
End Sub

 

[Misterbean]

Re : Format automatique VBA...

Génial..... j'ai tout compris maintenant. Merci bcp Pierrot..... !!!!