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.
A voir également:
Mettre en majuscule excel sans formule
Raccourci pour mettre en majuscule excel - Meilleures réponses
Merci PHILOU10120 de ta réponse.
Comme je le disais à Pijaku, je connais ces fonctions, en fait, je cherche à gagner du temps en n'étant pas obligé de tout transformer colonne par colonne. Pour gagner du temps, je voudrais copier une colonne telle quelle ( bas de casse et capitales confondus) et que tout se transforme automatiquement en capitales lors du collage dans le second classeur, c'est pourquoi je parlais de macro, domaine dans lequel il ne doit pas avoir plus ignare que moi pour le coup.
Bien cordialement
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
Toc-Toc. C'est re-moi!
Comme il fallait s'y attendre la buse du Berry n'a pas tout fait bien.
J'ai essayé la seconde solution
Déjà je n'ai pas touvé dans la liste à cocher "Microsoft Forms X. object Library" il y avait par contre 4 autres lignes qui étaient cochées:
Visual Basic for applications
Microsoft Excel 14.0 Objects Library
OLE automation
Microsoft Office 14.0 Objects Library
J'ai donc laissé comme ça.
J'ai copié-collé :
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
Puis
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Fermeture
End Sub
Private Sub Workbook_Open()
Ouverture
End Sub
Le problème c'est qu'après avoir copié ma colonne du classeur 1 et que je veux faire un clic droit pour coller en majuscules, l'option n'apparait pas dans la fenêtre pour le collage comme elle apparait dans ton exemple.
Au final, ça ne marche pas alors que dans ton exemple, c'est parfait. Donc j'ai encore m**dé quelque part.
Est-ce que cela vient du fait que j'ai laissé la première ligne qui apparait par défaut dans les fenètres "Module" et "Visual basic " avec les codes.
Autre indice, quand j'ai voulu sauvegarder mon fichier, un fenêtre est apparue disant que les fonctionnalités ne pouvaient pas être enregistrée si le classeur ne contenait pas de macro. Donc la buse masquée du Berry a tout faux.
Désolé d'être autant à charge pourtant ça a l'air simple,et c'est un truc qui me rendrait vraiment service, le pire c'est que je l'ai refait je ne sais combien de fois mais n'arrive pas à voir où j'ai m**dé.
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.
En fait je sais transformer des bas de casse en capitales, mais ce que je cherche c'est de savoir s'il existe une astuce pour copier un colonne entière telle quelle ( bas de casse et capitales) et faire en sorte que tout se transforme automatique en capitales seules au moment du collage dans le classeur de mise en forme.
Je te remercie pour ton sens de la pédagogie, c'est un exercice qui n'est pas si facile.
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
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.
Y a du mieux, maintenant quand je veux coller les données, l'option coller en majuscules apparait, mais quand je clique dessus, un message apparait (que je te joins) et rien ne se copie.
Si tu le veux bien, je te joins aussi une copie de mon fichier, si tu veux y jeter un oeil pour voir ce qui ne va pas, car moi, je suis vraiment largué.
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.
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
Bonsoir.
Ton astuce d'insertion a fonctionné, maintenant, la référence recherchée apparait.
Ça fonctionne et c'est grâce à toi, tes compétences, et ta patience. Je te suis reconnaissant à un point que tu ne peux imaginer. Si tu le veux bien, demain je t'expliquerai pourquoi en MP.
Dernier petit renseignement, à 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?
Donc des millions de MERCI . Merci aussi à Philou10120 pour son intervention.
à 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...
Comme je le disais à Pijaku, je connais ces fonctions, en fait, je cherche à gagner du temps en n'étant pas obligé de tout transformer colonne par colonne. Pour gagner du temps, je voudrais copier une colonne telle quelle ( bas de casse et capitales confondus) et que tout se transforme automatiquement en capitales lors du collage dans le second classeur, c'est pourquoi je parlais de macro, domaine dans lequel il ne doit pas avoir plus ignare que moi pour le coup.
Bien cordialement