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

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
Si quelqu'un peut m'éclaircir ce serrait cool !!

Merci d'avance
A+