Discussion :

[thibault.mourichon]

Bonjour

J'ai développé une application via VBA et tout fonctionne correctement, toutefois pour plus de clarté je souhaitais mettre en forme les cellules après l'ajout dans la feuille.

Voila se que j'ai fais mais je n'arrive pas a automatiser le formatage sur tous les ajouts

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Sub Addme()
'***********************************************************************************
'Procédure permettant de rajouter la ligne de données dans le FTU
'************************************************************************************
    Set NextRow = Sheets("Contact").Cells(Rows.Count, 2).End(xlUp).Offset(1, 0)
 
 
    For X = 1 To Cnum
        NextRow = Me.Controls(Ref & X).Value ' On récupère les valeurs des controls
        Set NextRow = NextRow.Offset(0, 1) ' on les insères dans la colonnes
 
    Next X
 
    Range("I11:K11").Select
    Range("K11").Activate
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Selection.Merge
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent1
        .TintAndShade = 0.599993896298105
        .PatternTintAndShade = 0
    End With
 
End Sub

merci de votre aide!