Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

[Aide]Worksheet_Change

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Ridame
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
R

Ridame

Guest
[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
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
 
Dernière modification par un modérateur:
Trier par date Trier par votes
Re : [Aide]Worksheet_Change

Bonjour Ridame,

Je ne comprends pas, si tu mets ton code dans
Code: 
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+
 
Vote positif 0 Vote négatif
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
 
Dernière modification par un modérateur:
Vote positif 0 Vote négatif
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.
 

Pièces jointes

Vote positif 0 Vote négatif
Re : [Aide]Worksheet_Change

Pierrot93 à dit:
Bonjour Ridame, Bruno

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

bonne journée
@+
Cliquez pour agrandir...

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
 
Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

F
  • Résolu(e)
Microsoft 365 Evènement worksheet_change
Réponses
2
Affichages
303
Francky79
F
C
  • Question Question
Microsoft 365 worksheet_change
2
Réponses
29
Affichages
1 K
CortoXls
C
S
  • Question Question
Microsoft 365 code vba pour chaine de caractère
Réponses
4
Affichages
521
vgendron
U
  • Question Question
Autres [RÉSOLU] macro à modifier
Réponses
1
Affichages
617
un internaute
U
J
  • Question Question
Microsoft 365 Probléme VBA
Réponses
8
Affichages
588
jalaba
J
S
  • Résolu(e)
Microsoft 365 Déclenchement macro en série suite à cellule fusionnées
Réponses
3
Affichages
534
spike29
S
E
  • Résolu(e)
Microsoft 365 Private Sub Worksheet_Change ne fonctionne pas
Réponses
5
Affichages
632
Englobe
E
S
  • Question Question
XL 2021 Afficher et masquer des colonnes
Réponses
3
Affichages
579
job75
  • Question Question
Microsoft 365 VBA : copier les adresses
Réponses
7
Affichages
1 K
VBA_dev_Anne_Marie
F
  • Question Question
Microsoft 365 Problème mémoire insuffisante
Réponses
5
Affichages
909
TooFatBoy
  • Résolu(e)
XL 2016 If Not xRgSel Is Nothing Then --> Ne marche pas
Réponses
10
Affichages
738
R3n0W
  • Question Question
XL 2021 faire évoluer un code VBA
Réponses
3
Affichages
643
Dranreb
S
  • Résolu(e)
Microsoft 365 Mailing mise en forme HTML : revenir à la ligne automatique si trop de texte saisie
2
Réponses
17
Affichages
1 K
spike29
S
S
  • Question Question
Microsoft 365 VBA pour copier une une des données d'une ligne à une autre
Réponses
3
Affichages
1 K
salma_hayek
S
M
  • Question Question
XL 2013 changement de couleur de police qd cellule modifiée
Réponses
10
Affichages
829
michel.dupont
M
N
  • Résolu(e)
Microsoft 365 Aide pour un code Vba
2 3
Réponses
32
Affichages
2 K
Nicolas JACQUIN
  • Question Question
XL 2016 Aide pour maj auto de la date + selection multiple dans une liste déroulante
Réponses
5
Affichages
847
fanch55
T
  • Résolu(e)
XL 2019 Filtrer certains champs au démarrage avec vba
2
Réponses
15
Affichages
1 K
telemarrk
T
U
  • Question Question
Autres incorporer une macro dans une autre macro
Réponses
5
Affichages
793
Phil69970
  • Résolu(e)
XL 2021 Aide macro / nettoyage fichier
2 3
Réponses
42
Affichages
2 K
AtTheOne
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…