Discussion :

[juzii]

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

[Overcrash]

Bonjour,

Voila j'ai testé ce bout de code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Command1_Click()
    Dim string1 As String
 
    string1 = "toto"
    string1 = UCase(string1)
    If string1 = Null Then
        MsgBox ("ucase a foiré")
    End If
    MsgBox string1
 
 
End Sub

Et en faites la valeur convertie en majuscule est la valeur de retour de Ucase.
Donc normalement si je fais pas d'erreur tu devrait avoir ça :

Code :

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

header.value = UCase(header.value)

Dit moi si c'est bon .

Over

[juzii]

ben j ai déjà testé ca aussi et ca plante!

[Overcrash]

Coucou

Ça plante au passage du Ucase?
Message d'erreur plz ?

over

[juzii]

oui il me sort "type imcompatible" sur cette ligne ou je fais appel au Ucase

[Overcrash]

si tu met

Code :

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

Msgbox header.value

Avant le Ucase il t'affiche quoi ?

Over

[juzii]

en fait mon header correspond a une ligne entière (donc plusieurs cellules avec chacune des valeurs) et je viens de voir qu en fait header.value indique la valeur de la premiere cellule.
alors que j'affecte bien worksheet.rows(1) a header
bizarre..

[Overcrash]

en fait mon header correspond a une ligne entière (donc plusieurs cellules avec chacune des valeurs) et je viens de voir qu en fait header.value indique la valeur de la premiere cellule.
alors que j'affecte bien worksheet.rows(1) a header
bizarre..

Heu dans le code au depart tu affecte

Code :

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

worksheet.rows(2)

Le probleme que tu as est le type de header.value qui est pas correct.
Il faut que tu regarde quelle valeur lui est assigné de quel type.

Ensuite comme je t'es dit le ucase la syntaxe est :

Code :

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

header.value= Ucase(header.value)

comment est déclarer ton header ?
C'est pas le "set" si?



Sinon tu peux contourner le probleme mais je ne pense pas que cela soit judicieux mais si tu fais :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
sub ModifHeader(Worksheet)
	set header = Worksheet.rows(2)
	header.font.bold = True
	header.HorizontalAlignment = xlCenter 
	header.VerticalAlignment = xlCenter
 
	'set txt = .value
 
	header.value = UCase(cStr(header.value))
	'header.value =  txt
end sub
 
'body'
ModifHeader objWorksheetTox

Ça cast la valeur en string mais je pense que c'est pas la meilleur solution.