automatiser macro majuscule

Bonjour,

Voici une macro pour mettre en majuscule du texte écrit en minuscule.
Pour qu'elle fonctionne, il faut que je passe par exécuter la macro.

Question: serait-il possible d'automatiser l'écriture en majuscule dès que j'ai
frappé la lettre et ce pour une cellule et un groupe de cellule se trouvant sur la même feuille, une cellule en f6 et un groupe de cellule d11:d14?

Voici le code utilisé

Code:

---

1 2 3 4 5 6 7 8 9

Sub Mise_en_Maj() Dim Cel As Range Dim Plage As Range Set Plage = Intersect(Selection, ActiveSheet.UsedRange) If Plage Is Nothing Then Exit Sub For Each Cel In Plage Cel = UCase(Cel) Next Cel End Sub

---

merci pour vos messages.

Sur l'évènement change de ta feuille tu peux appeler ta macro, des que tu auras écrit ton texte et validé, ta macro s'executera

Bonjour, Tempas,

Qu'appelles-tu Sur l'évènement change

une autre question: cette macro doit être insérée dans un "module" ou dans la feuille désirée quand on est dans la section vba project "feuille1"

Tiens 2 tuto sur le change
http://silkyroad.developpez.com/VBA/...Feuille/#LII-E
http://silkyroad.developpez.com/VBA/...asseur/#LII-20

Citation:

---

une autre question: cette macro doit être insérée dans un "module" ou dans la feuille désirée quand on est dans la section vba project "feuille1"

---

Si tu parles de l'évènement change, il est dans la feuille mais rien ne t'empèche de faire un module et lors du "change" tu fais "call TonModule" (ce qui est d'après moi plus propre)

vite fait un bout de code (celui du tuto)

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub Worksheet_Change(ByVal Target As Range)   'permet de sortir de la procédure si plus d'une cellule est sélectionnée '(sinon la suite de la macro renvoie un message d'erreur) If Target.Count > 1 Then Exit Sub   MsgBox "Vous venez de modifier la cellule " & Target.Address & _ " (" & Target.Value & ")"   End Sub

---

A l'intérieur de Worksheet_change tu fais le call dont je te parlais

comme je n'y comprends plus rien je joins le fichier qui sera peut -être plus compréhensible.

Pfiou j'ai cru que je n'y arriverai pas... (pas ma faute, c'est l'ordinateur jle jure ^^)

Le code est bien évidemment très laid, je te laisse le soin de l'optimiser

merci pour la macro, mais peut-on enlever l'affichage de la boîte qui indique tout
ce que l'on vient d'écrire, le texte transformé sera suffisant. mais,c'est sympa.

Je te laisse la modifier à ta guise. tu peux même réduire le code en ne passant pas par la variable mavaleur mais en mettant directement ubound(range...)

merci encore pour l'aide, cela fonctionne nickel après une petite adaption
pour mon fichier

Clique sur le bouton résolu (si ton problème est résolu) et si possible poste ton fichier, ca peut aider des gens qui voudraient faire la même chose.

Ce dont je te parlais sans la variable

Code:

---

1 2 3 4 5 6 7

Private Sub() ' ... MsgBox Sheets(1).Range(Tableau(1) & Tableau(2)).Value Sheets(1).Range(Tableau(1) & Tableau(2)).Value = UCase(Sheets(1).Range(Tableau(1) & Tableau(2)).Value) ' ... End Sub

---

Par contre, je ne peux pas effectuer un & ctrl+z ou annuler une action pour revenir en arrière. comme j'ai d'autres questions, je vais poster sur le forum toujours dans la section excel vba