bonjour,

je cherche tout betement a passer en majuscule, un objet texte grace a la fonction UCase, mais je n y arrive pas, j ai toujours une erreur. qu est qu il ne va pas dans ma syntaxe ??

merci

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
'function mise en forme du header'
sub ModifHeader(Worksheet)
	set header = Worksheet.rows(2)
	header.font.bold = True
	header.HorizontalAlignment = xlCenter 
	header.VerticalAlignment = xlCenter
	'set txt = .value
	UCase(header.value)
	'header.value = txt
end sub
 
'body'
ModifHeader objWorksheetTox