Transformer une zone en majuscule

Version imprimable

29/01/2016, 15h59
tben08

Transformer une zone en majuscule
Bonjour à tous,

Je souhaite lancer une macro d'un fichier qui s’exécutera sur un autre ficher et qui ira sélectionner la zone à transformer en majuscule.

J'ai ce code qui fonctionne très bien quand on le lance sur le fichier en lui même, mais si je le lance sur un autre fichier, la fenetre pour sélectionner la zone apparait bien mais je ne peux pas sélectionner.

voici le code :
Code:

1 2 3 4 5 Dim cel As Range Application.InputBox ("Sélectionner") For Each cel In Selection cel = UCase(cel) Next cel
merci
29/01/2016, 17h37
Menhir

Pourquoi ne pas enlever la ligne InputBox de ta macro et de ne la lancer qu'après avoir fait la sélection ?
A ta place, je la lierais à un bouton placé dans le ruban d'outils à accès rapide, comme ça tu pourrais l'utiliser exactement comme le bouton Italic ou Bold su ruban d'accueil.
Tu n'aurais plus à te préoccuper de savoir où elle se trouve.

Si tu la places dans un xlsa que tu places lui-même dans le répertoire des fichiers lancés au démarrage, ça pourrait même devenir totalement transparent.

Perso, j'ai plusieurs boutons qui fonctionnent ainsi.

Bonjour,

il faut récupérer la feuille où la sélection a été faite, afin de pouvoir travailler dessus lors du remplacement :

voici une proposition, qui utilise l'inputbox en mode Range (Type:=8)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub toto()
Dim Cell As Range
Dim Sh As Worksheet
Dim Plage As Range
 
With Application.InputBox("Sélectionner", , , , , , , 8)
    On Error GoTo Fin   ' si l'utilisateur annule l'inputbox la ligne suivant va planter : on va directement en fin de procédure
    Set Sh = .Parent
    Set Plage = Sh.Range(.Address)
End With
 
For Each Cell In Plage.Cells
    Cell = UCase(Cell)
Next Cell
 
Fin:
End Sub

29/01/2016, 19h56
tben08

Citation:

Envoyé par Menhir

Pourquoi ne pas enlever la ligne InputBox de ta macro et de ne la lancer qu'après avoir fait la sélection ?
A ta place, je la lierais à un bouton placé dans le ruban d'outils à accès rapide, comme ça tu pourrais l'utiliser exactement comme le bouton Italic ou Bold su ruban d'accueil.
Tu n'aurais plus à te préoccuper de savoir où elle se trouve.

Si tu la places dans un xlsa que tu places lui-même dans le répertoire des fichiers lancés au démarrage, ça pourrait même devenir totalement transparent.

Perso, j'ai plusieurs boutons qui fonctionnent ainsi.

le soucis c'est que ce n'est pas moi qui vais utiliser cette macro, j'essaie donc que ce soit le plus simple possible. Par contre ton truc de le placé dans le répertoire des fichiers lancés au démarrage ça m'intéresse.
en rubas d'accès rapide ca fonctionne sur le fichier en cours mais pas sur un autre et le truc c'est que ce ne sera pas toujours le même fichier

Citation:
Envoyé par joe.levrai
Bonjour,

il faut récupérer la feuille où la sélection a été faite, afin de pouvoir travailler dessus lors du remplacement :

voici une proposition, qui utilise l'inputbox en mode Range (Type:=8)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Sub toto() Dim Cell As Range Dim Sh As Worksheet Dim Plage As Range With Application.InputBox("Sélectionner", , , , , , , 8) On Error GoTo Fin ' si l'utilisateur annule l'inputbox la ligne suivant va planter : on va directement en fin de procédure Set Sh = .Parent Set Plage = Sh.Range(.Address) End With For Each Cell In Plage.Cells Cell = UCase(Cell) Next Cell Fin: End Sub
super ça fonctionne très bien merci!!

01/02/2016, 09h23
Menhir

Citation:

Envoyé par tben08

en rubas d'accès rapide ca fonctionne sur le fichier en cours mais pas sur un autre et le truc c'est que ce ne sera pas toujours le même fichier

Le fichier en cours, c'est celui que tu sélectionnes. Ca peut donc être n'importe quel fichier.

Par exemple, je me suis fais un bouton "Centrer sur plusieurs cellules" (un bouton qui existait dans les anciennes versions d'Excel mais qui, dans les récentes, a disparu au profit des fusions), avec

Code:

Selection.HorizontalAlignment = xlCenterAcrossSelection

Je sélectionnes un groupe horizontal de cellules n'importe où dans n'importe quel fichier ouvert, j'appuie sur ce bouton et aussitôt, le contenu de la première est centré sur l'ensemble.

Et le fichier qui contient cette macro est un xlam placé dans un répertoire XLSTART.
Il s'ouvre donc au lancement d'Excel sans aucune feuille de calcul (il n'apparait même pas dans la liste des fenêtres).
C'est totalement transparent pour l'utilisateur qui utilise ce bouton exactement comme il utiliserait le bouton de mise en gras du ruban d'accueil.

C'est beaucoup plus simple de que poser une question en cours de macro pour demander une sélection.