Erreur dans une formule

[Hugues]

Bonjour Le forum,
J'ai à nouveau un souci dans l'écriture d'une fonction
Je souhaiterais extraire de la cellule F4 la valeur en majuscule puis récupérer cette valeur en majuscule et l'intégrer dans une MSGBOX ; ci joint le code :
structure = WorksheetFunction.UCase(Sheets("Sommaire").Range("f4"))
MsgBox ("Le code structure est :" & structure)

Merci par avance pour votre aide
Hugues

 

[Raja]

Re : Erreur dans une formule

Bonjour,

Voici le code à essayer :

Sub test()
Dim structure As String
structure = UCase(Sheets("Sommaire").Range("F4"))
MsgBox "Le code structure est :" & structure
End Sub

 

[tototiti2008]

Re : Erreur dans une formule

Bonjour Hugues,

essaye :

Structure = Ucase(Sheets("Sommaire").Range("f4").Value)
Msgbox "Le code structure est : " & Structure