Discussion :

[tben08]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim cel As Range
Application.InputBox ("Sélectionner")
For Each cel In Selection
cel = UCase(cel)
Next cel

merci

[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.

[tben08]

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

[Menhir]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[tben08]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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!!