macro majuscule

[sasha]

Bonsoir,
Je cheche une petite macro pour un tableau excel où je souhaite que ds les colonnes d et f ma saisie s'inscrive auomatiquement en majuscule-
merci

 

[ccpapy]

Re : macro majuscule

bonsoir une simple recherche sur le forum 😛
https://www.excel-downloads.com/threads/formatter-un-tableua-excel-en-majuscule.64096/
avec ça tu devrais pouvoir arriver à tes fins
bonne soirée

 

[_Thierry]

Re : macro majuscule

Bonsoir CcPapy, sasha, le Forum

Avec la méthode "Intersect" on peut avoir ceci en "live" pendant la saisie dans tes colonnes "D" et "F", car le fil donné par CCpapy concerne un traitement global (qui peut s'avérer long et génant pour les zones non-concernées)

Voici un code à placer dans le Private Module de la Feuille en question
=> Click Droit sur l'onglet de la Feuille et dans le Menu Contextuel "Visualiser le Code"

Code à copier/Coller dans le Private module :

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Target, Columns("D:F")) Is Nothing Then
        If Not Target.Column = 5 Then [COLOR=darkgreen]'(pour exclure la colonne E)
[/COLOR]           Target.Value = UCase(Target.Value)
        End If
    End If
End Sub

Bonne Soirée

@+Thierrry
​

PS je voulias t'orienter vers un tutoriel que j'avais fait pour la Méthode "Application Intersect"... Mais le nouveau moteur de recherche de ce new Forum, ne me retrouve pas ce que je veux....

Attention David, j'arrive ! 😕

 

[Océane]

Re : macro majuscule

Bonsoir à tous

Regarde un peu ce que le forum m'avait créer à l'époque . Du sur mesure .
En plus si besoin tu peux panacher maj, minu, et a partir d'une certaine ligne.

Domage je me souviens plus le nom de son créateur

Bonne nuit

Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Count > 1 Then Exit Sub
If .Value = Empty Then Exit Sub
If .Row < 5 Then Exit Sub
'exemple pour la colonne 1 et la colonne 3
'à partir de la ligne5
'on peut ajouter autant de conditions qu'on veut en ajoutant
'Or .Column = ...
'supprimer éventuelement Or .column = ...conserver Then
If .Column = 1 Or .Column = 3 Then
.Value = Application.Proper(.Value) 'on met en mixte"Prénom"col 1 et 3
ElseIf .Column = 2 Or .Column = 5 Then
.Value = UCase(.Value) 'on met en majuscule"NOM" col 2 et 5
ElseIf .Column = 4 Then
.Value = LCase(.Value) 'on met en minuscules col 4
End If
End With
End Sub

 

[sasha]

Re : macro majuscule

mille merci à tous les genies qui me repondent si vite

 

[Mytå]

Re : macro majuscule

Salut Sasha, Ccpapy, _Thierry, Océane et le forum

Juste pour donner le lien du tutoriel de Thierry

https://www.excel-downloads.com/threads/macro-evenementielle-sur-clic-cellule.16396/

Mytå

 

[_Thierry]

Re : macro majuscule

Bonjour à tous

Merci Mytå !!!

Bonne Journée et ...........

Aller les Bleus !!!

@+Thierry
​

 

[Pyrof]

Re : macro majuscule

Bonjour,

Je donne un petit complément à macro de Thiérry.

Moi je travaille le plus possible en donnant des noms aux cellules ou ou plage.

Ici on peut selectionner la colonne D et F et effecter un nom ici nom1.

La macro devient

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("nom1")) Is Nothing Then
Target.Value = UCase(Target.Value)
End If
End Sub

Par ce principe, si on ajoute des colonnes, on n'a pas besoin de modifier la macro.

Bonne journée à tous même si aujourd'hui c'est difficile......