OVH Cloud OVH Cloud

convertir feuille complète

2 réponses
Avatar
Daniel
Bonjour,
Je souhaiterai convertir une feuille complète et en un seule fois en
passant le texte de minuscule en majuscule est-ce possible ?
La fonction majuscule () ne permet que de faire une cellule à la fois...
du moins c'est ce que je pense mais peut-être que je me trompe par
méconnaissante de la syntaxe à utiliser.
Merci
Daniel

2 réponses

Avatar
Denis Barreteau
Bonjour,
Les fonctions minuscules ou majuscules sont des fonctions
vectorielles que l'on peut utiliser sur une plage de
cellules : on selectionne la plage de destination on tape
la formule (=majuscule(C5:E20)) puis on valide par
CONTROL+SHIFT+ENTREE

-----Message d'origine-----
Bonjour,
Je souhaiterai convertir une feuille complète et en un
seule fois en

passant le texte de minuscule en majuscule est-ce
possible ?

La fonction majuscule () ne permet que de faire une
cellule à la fois...

du moins c'est ce que je pense mais peut-être que je me
trompe par

méconnaissante de la syntaxe à utiliser.
Merci
Daniel
.



Avatar
tictok
Bonjour Daniel.
Pourquoi ne pas faire deux boucles ?

Sub Majuscule()
Dim Cellule As Variant
Dim i As Integer
' FinCol : derniere colonne non vide, mais je mets 256 par defaut
FinCol = 256
For i = 1 To FinCol
' Premiere cellule de la colonne
Range(Cells(j, 1), Cells(j, 1)).Activate
Cellule = ActiveCell.Value
While IsEmpty(Cellule) = False
Cellule = UCase(Cellule)
ActiveCell.Offset(1, 0).Activate
Wend
Next i
End Sub

Comme ca, tu balaies toutes tes cellules non vides des 256 colonnes.
Dis moi si ca marche.

"Daniel" escreveu na mensagem
news:40bc6e83$0$313$
Bonjour,
Je souhaiterai convertir une feuille complète et en un seule fois en
passant le texte de minuscule en majuscule est-ce possible ?
La fonction majuscule () ne permet que de faire une cellule à la fois...
du moins c'est ce que je pense mais peut-être que je me trompe par
méconnaissante de la syntaxe à utiliser.
Merci
Daniel