Vba Excel Puis-je changer en majuscule en utilisant Avec fonction?

Est-il possible de définir majuscules dans Avec fonction?Vba Excel Puis-je changer en majuscule en utilisant Avec fonction?

J'ai essayé quelques versions, mais aucun fonctionne:

With Worksheets("CONTROL SCHEDULE").Range("A7:N7") 
    .Font.FontStyle = "Bold" 
    .Value = UCase(.Value) 
End With

Source

2016-06-30 Ida

Je souhaite que la plage A7: N7 soit en majuscules. Espérait que c'était possible de définir dans la fonction "Avec" afin que je puisse facilement l'ajouter à plusieurs endroits dans mon code. On dirait que je ferais mieux de faire une ligne de code séparée. – Ida

UCase ne fonctionnera pas sur un tableau comme ça. Vous pouvez cependant utiliser Evaluate:

With Worksheets("CONTROL SCHEDULE").Range("A7:N7") 
    .Font.FontStyle = "Bold" 
    .Value = .Worksheet.Evaluate("INDEX(UPPER(" & .address & "),)") 
End With

Source

2016-06-30 09:38:49 Rory

Merci. Ce code n'a ajouté que le texte "UPPER" dans la cellule N7. Comment puis-je changer la rangée entière? – Ida

Ce code ne ferait que si N7 avait déjà le mot "upper". – Rory

Ah, j'avais un autre code plus bas pour le changer. MERCI :) – Ida

Vba Excel Puis-je changer en majuscule en utilisant Avec fonction?

Répondre

Questions connexes