Excel - Transformer minuscule en majuscule Fermé

Question

Bonjour,   
J'utilise Excel 2010, et j'ai le problème suivant: Je dois copier des colonnes entières de fichiers souvent en bas de casse (minuscules) et les coller dans un  autre classeur  "passe partout" permettant de standardiser ma présentation. Le souci est que dans le classeur  "passe partout", toutes les colonnes doivent être en capitales (majuscules).  
Je voudrais savoir s'il existe une astuce pour que ce changement se fasse automatiquement au moment du "coller" dans le "passe partout".  
Je crains d'avance qu'il faille utiliser une macro, mais alors là, ce serait la vrai Kata car c'est déjà à peine si je sais que ça existe, je vous dis pas.  
Si on ne peut l'éviter ( la macro), j'aurais besoin de m'aider pas à pas pour mettre en place et utiliser ce genre d'engin. Qui sait, peut être qu'enfin j'arriverai à m'y mettre. Ça élèvera mon niveau ce qui est très facile, comme ça je pourrai léviter plutôt que de l'éviter ( la macro).  
Merci d'avance de votre aide.   
Cordialement  

De l'humilité , du respect et du partage nait la force.

PHILOU10120 · Accepted Answer

Bonjour

=MAJUSCULE(A1) transforme le texte en A1 en majuscule
=MINUSCULE(A1) transforme le texte en A1 en minuscule

pijaku · Answer

Bonjour,
Supposons que tu souhaites copier/coller en majuscules la colonne A de ton fichier 1. Pas à pas :
1- Dans ce fichier 1 cherche (et trouve) une colonne vide. Dans cette colonne, ligne 1 saisir la formule :
=MAJUSCULE(A1)
2- "étirer" cette formule vers le bas. Pour cela, cliquez sur la cellule dans laquelle vous venez de saisir la formule puis placez le curseur de votre souris sur le coin inférieur droit de cette même cellule. Le curseur change de forme et devient un +. Clic gauche maintenu, déplacez votre souris vers le bas de la colonne, jusqu'à la fin des saisies.
3- copiez cette colonne de formules
4- dans votre fichier 2, cliquez AVEC LE BOUTON DROIT DE VOTRE SOURIS sur la première cellule destinée à accueillir vos données, choisir collage spécial / valeurs.

Et voilà

pijaku · Answer

Pour réaliser ce que tu souhaites faire, il faut alors passer par une macro.
Partant pour l'aventure?

Robocopp · Answer

Je sens que je n'ai pas le choix, mais je pense avoir affaire à quelqu'un qui connait son sujet alors .... On y va
Merci

pijaku · Answer

Bon et bien allons y. 
J'ai deux solutions à te proposer.  

Solution la plus "simple" : 
Pour cela : 
Dans le classeur2 (celui qui accueille les données en Majuscules) : 
1- Taper ALT+F11 
2- Insertion/Module 
3- dans le module copier/coller ce code en entier : 
Sub TransformeEnMajuscule() 
Dim Cel As Range 
For Each Cel In Selection 
    Cel.Value = UCase(Cel.Value) 
Next 
End Sub
4- fermer la fenêtre Visual Basic Editor pour retourner sous ton classeur. 

Pour l'utiliser :
1- copier ta colonne dans le classeur1 
2- coller les données dans le classeur2 
3- Sélectionner la plage de données à transformer en majuscule (pas toute la colonne, le traitement serait trop lourd) 
4- Lancer la procédure en tapant ALT+F8, sélectionner "TransformeEnMajuscule" et clic sur Exécuter 

Solution la plus "pratique" avec le clic droit !!! : 
Dans le classeur2 (celui qui accueille les données en Majuscules) : 
1- Taper ALT+F11 
2- Outils/Références, cocher la référence : Microsoft Forms X.0 Object Library (ou X est un chiffre ou un nombre qui dépend de votre version Excel) puis OK 
3- Insertion/Module 
4- dans le module copier/coller ce code en entier : 
Public Const monBouton As String = "Coller en Majuscules" 
  
Sub Ouverture() 
Dim NewCtrl As Object 
Fermeture 
With CommandBars("Cell") 
  Set NewCtrl = .Controls.Add(Type:=1, ID:=1, before:=3) 
  With NewCtrl 
    .Caption = monBouton 
    .OnAction = "test1" 
    .FaceId = 98 
    .Tag = "" 
  End With 
End With 
  
End Sub 
Sub Fermeture() 
'Suppression du bouton 
On Error Resume Next 
 CommandBars("Cell").Controls(monBouton).Delete 
On Error GoTo 0 
End Sub 
  
Sub test1() 
Dim MyDataObj As New DataObject, Tableau() As String, TableauColle() As String, Var2 As String, i As Long 

MyDataObj.GetFromClipboard 
Var2 = MyDataObj.GetText 
Tableau = Split(Var2, Chr(10)) 
For i = 0 To UBound(Tableau) - 1 
    Tableau(i) = Left(UCase(Tableau(i)), Len(Tableau(i)) - 1) 
Next 
ActiveCell.Resize(UBound(Tableau)) = Application.Transpose(Tableau) 
End Sub 

5- Dans cette même fenêtre Visual Basic, vers le haut à gauche de l'écran, tu trouves une petite fenêtre Projet-VBAProject, avec dedans, les noms de tes feuilles et ThisWorkBook. Double clic sur ThisWorkBook, la fenêtre centrale est maintenant vide (ou quasi...). Dans cette fenêtre copier/coller ce code : 
Private Sub Workbook_BeforeClose(Cancel As Boolean) 
Fermeture 
End Sub 

Private Sub Workbook_Open() 
Ouverture 
End Sub

6- fermer la fenêtre Visual Basic Editor pour retourner sous ton classeur. 
7- enregistrer et fermer les classeurs ouverts

Pour l'utiliser :
1- copier ta colonne dans le classeur1 
2- dans le Classeur2, clic droit dans la première cellule devant accueillir les données copiées et choisir : Coller en Majuscules 

Un exemple :  
Classeur accueillant les données Ne pas oublier, à l'ouverture, d'activer les macros. Ce classeur contient en effet les deux solutions proposées. 
Classeur contenant les données à copier 
En cas de souci, n'hésite pas!!! 
Cordialement, 
Franck P

pijaku · Answer

Bon je pense que ton seul problème vient du fait que les macros sont désactivées sur ton excel.
Voir ces liens, tester et revenir...
http://office.microsoft.com/fr-fr/excel-help/demo-activer-les-macros-bloquees-HA010227863.aspx

http://www.eosphere.fr/Autoriser-l-execution-des-macros.html#Excel 2010

Attention toutefois, choisir l'option : Désactiver toutes les macros avec notification 
Il s'agit du paramètre par défaut. Sélectionnez cette option si vous souhaitez que les macros soient désactivées, mais que les alertes de sécurité soient affichées en présence de macros. Ainsi, vous pouvez choisir d'activer les macros au cas par cas.

Et au moment de l'enregistrement ou de la fermeture, choisir un format qui accepte les macros, si je ne m'abuse .xlsm sinon ça bloque.

pijaku · Answer

Bonjour,

Ton erreur tiens au fait que tu n'as pas su (ou pu) cocher la référence Microsoft Forms 2.0 Object Library.
De deux choses l'une, soit celle-ci n'est pas installée sur ton ordi, soit tu ne l'as pas vue...
Vérifies bien si tu la trouves :
- ouvre ton classeur,
- active les macros,
- tape ALT+F11
- Menu Outils clic sur Références
- cherches Microsoft Forms x.0 Object Library

Pendant ce temps je me renseigne sur une éventuelle DLL a installer pour le cas ou elle ne serait pas sur ton ordi.

pijaku · Answer

Re- 

Dans un premier temps, pour activer cette référence, essayons ceci :
- depuis ton classeur excel tape ALT+F11
- Menu Insertion / UserForm
- Menu Outils / référence, chercher à nouveau Microsoft Forms x.0 Object Library 

Si cette méthode ne te permet pas de trouver cette référence :

La référence Microsoft Forms object library utilise la dll FM20.dll.
Vérifie déjà que cette dll est bien présente sur ton ordi à l'adresse (adresse différente selon les versions de Windows, par conséquent utilise la fonction rechercher (Démarrer/rechercher taper : FM20.dll))
c:\windows\system32\FM20.DLL
Si oui, cela me pose question car, étant installée, la simple insertion d'un userform aurait du la "réveiller"...
Si non, cette dll n'étant pas redistribuable, tu devras suivre ces indications :
https://support.microsoft.com/fr-fr/help/224305
et certainement installer sur ton ordi : Microsoft ActiveX Control Pad 1.0 disponible à l'url : https://docs.microsoft.com/en-us/previous-versions/ms968493(v=msdn.10)?redirectedfrom=MSDN

pijaku · Answer

Salut,

Je veux bien l'explication en MP...

à l'ouverture du fichier ou à la fermeture, je n'ai pas de message me demandant d'activer les macros en sachant que j'ai coché l'option désactiver les macro avec notification, c'est normal?  Ne possédant pas la version 2012 d'Excel, je ne peux pas te répondre, mais non ça ne m'a pas l'air tout à fait normal...

Excel - Transformer minuscule en majuscule

9 réponses

Discussions similaires