[Aide]Worksheet_Change

[Ridame]

[Aide][Résolu]Worksheet_Change

Bonjour a tous,

J'ai actuellement un soucis avec mon "Worksheet_Change".
Je cherche a faire en sorte que quand un utilisateur tape un mot, ce mot soit forcement en majuscule(vu que dans mes fonctions font des comparatifs des cases et il faut la même syntaxe)

Je suis arrivé a faire un code qui marche pour une feuille, mais je souhaite le faire pour tout mon classeur.

Voici le code

Private Sub Worksheet_Change(ByVal Target As Range)
Dim X As Range
On Error Resume Next
Application.EnableEvents = False
For Each X In Target.SpecialCells(xlCellTypeConstants, xlTextValues)
X.Value = UCase(X.Value)
Next
Application.EnableEvents = True
End Sub

j'ai essayé de mettre "Workbook_change" a la place de "Worksheet_Change", mais cela ne fonctionne pas.

Donc je viens demander votre aide

Cordialement

 

[Compte Supprimé 979]

Re : [Aide]Worksheet_Change

Bonjour Ridame,

Je ne comprends pas, si tu mets ton code dans

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
  Dim X As Range
  On Error Resume Next
  Application.EnableEvents = False
  For Each X In Target.SpecialCells(xlCellTypeConstants, xlTextValues)
    X.Value = UCase(X.Value)
  Next
  Application.EnableEvents = True
End Sub

Cela fonctionne 😉

A+

 

[Ridame]

Re : [Aide]Worksheet_Change

Bonjour BrunoM45

Je suis sur excel 2003 et mon code marche plus avec workbook.
J'ai fait un copier/coller de ton code(pour être sur), et pareille ca ne marche pas.

Cordialement

Edite: Vu que je suis un débutant, ton code tu le poses ou exactement?
Dans Visual, je mets le code dans un feuille et je croyais que si je mettais worbook_change, cela s'appliquerai au autre feuille.
Mais voila quand il y a workbook, cela ne s'applique n'y a la feuille n'y aux autres feuilles

 

[Compte Supprimé 979]

Re : [Aide]Worksheet_Change

Re,

Merci de mettre ton fichier sur le forum STP

A+

 

[Ridame]

Re : [Aide]Worksheet_Change

Re

J'ai pas mis le fichier principale(trop gros pour le forum), donc je me suis permis de mettre un fichier teste pour le forum.

Comme tu peux le voir, dans la feuille1, tout marche correctement.
Maintenant si je mets workbook, même sur la feuille 1 ca ne marche plus.

 

[Pierrot93]

Re : [Aide]Worksheet_Change

Bonjour Ridame, Bruno

le code est à placer dans le module "TisWorkbook" et non dans un module de feuille, ton fichier modifié...

bonne journée
@+

 

[Ridame]

Re : [Aide]Worksheet_Change

Bonjour Ridame, Bruno

le code est à placer dans le module "TisWorkbook" et non dans un module de feuille, ton fichier modifié...

bonne journée
@+

Salut pierrot 93

Je débute vraiment avec excel(j'apprends sur le tas).
Je viens de comprendre l'utilité de "ThisWorkbook", Merci beaucoup, car tu m'as appris quelque chose 😉

sur ce bonne journé

Cordialement