probleme utilisation d un UCase

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:

---

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

---

Bonjour,

Voila j'ai testé ce bout de code :

Code:

---

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:

---

header.value = UCase(header.value)

---

Dit moi si c'est bon .

Over

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

Coucou

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

over

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

si tu met

Code:

---

Msgbox header.value

---

Avant le Ucase il t'affiche quoi ?

Over

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..

Citation:

---

Envoyé par 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..

---

Heu dans le code au depart tu affecte

Code:

---

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:

---

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:

---

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.