Tout en majuscule Excel

Bonjour,

je souhaiterai savoir s'il serai possible que lorsqu'on importe des informations sur une nouvelle feuilles excel tout deviennent automatiquement en majuscule? ou faut il faire la formule à chaque fois?

Merci,

Jade

Bonjour,

Cela aurait été mieux de voir le fichier mais bon...

Avec ce code :

Sub Majuscule()
'Macro Dan le 02/02/11
Dim plage As Range, cel As Range
Set plage = ActiveSheet.UsedRange
For Each cel In plage
cel.Value = UCase(cel)
Next
End Sub

Le code est à placer en VBE dans un module

Pour l'exécuter --> soit mettre un bouton, soit aller par OUTILS / MACRO / MACRO et sélectionner la macro puis cliquer sur OK.

Amicalement

Voici un exemple de fichier...je n'ai pas reop compris...

je dois faire du copier coller de cvotre tableau sur MACRO?

si jamais cela s'active, ça ne marche que pour une fois? pas pour toujours?

Bonjour

Tu importes toujours les données dans ce fichier ?

Les majuscules sont pour la colonne B uniquement ?

Amicalement

Nad

En fait, je transporte tout un dossier avec plusieurs onglet sur un autre fichiers tout vide, où je dois donc remplir les colonnes tout en majuscule.

Je souhaiterai faire ça plus rapidement,

donc je fais par colonne =majuscule(cellule) et je tire, après je fais copier/coller spéciale valeurs..etc..

Mais j'ai énormement de données à changer. Il s'agit de toute les colonnes.

le dossier que j'ai transferer est un petit exemple..je dois donc mettre en majuscule la colonne A et B, et les reste que je n'ai pas mis.

Je souhaiterai donc savoir s'il y avait un moyen plus rapide de tout mettre en majuscule.

Merci!

Re

Dans ton fichier, fais ALT+F11 (tu te retrouves dans VBA)

A gauche, tu sélectionnes le nom de ton fichier et tu vas dans INSERTION ==> Module

Dans la partie droite (blanche) tu colles ce code :

Sub Majuscule()
Dim plage As Range, cel As Range
Dim i As Integer
Application.ScreenUpdating = False
For i = 1 To Worksheets.Count
Set plage = Sheets(i).UsedRange
For Each cel In plage
    cel.Value = UCase(cel)
    Next
Next i
End Sub

Tu retournes sur excel, et tu fais comme de l'a dit Dan : OUTILS / MACRO / MACRO et sélectionne la macro "Majuscule" puis clique sur OK.

Ce code passe en majuscules toutes les cellules de toutes les feuilles du classeur.

Amicalement

Nad