Bonjour,
Je débute sur VBA et en programmation de manière générale.
J'essai de faire une macro qui pourra me permettre d'attribuer des mises en formes a plusieurs cellules d'une même ligne + formules de calculs etc. en fonction d'un mot (colonne categorie) qui aura été choisi en début de ligne grace à une liste déroulante.
Pour le moment j'essai deja mettre mes fonds en couleurs, faire les bordures, mettre ce qui doit l'etre en gras mais j'ai un message dès que je lance le compilateur sur la première ligne apparement et je ne comprend pas ce qui ne lui va pas ..
Mon code ci dessous
Si quelqu'un peut m'éclaircir ce serrait cool !!
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 Sub category() ' ' remplissage propriétés de la ligne ' Dim ASSEMBLY As String Sheet(4).Columns(A).Find(what = "ASSEMBLY").Activate Range(ActiveCell.Offset(0, 0), ActiveCell.Offset(0, 11)).Select With Selection .Merge .Interior.Color = 49407 .EntireRow.Borders.Weight = xlThin .Font.Bold = True .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter End With End Sub
Merci d'avance
A+
Partager