XL 2019 Nom, Majuscule, VBA, Première Lettre, etc.

fx lefefebvre

XLDnaute Nouveau
Bonjour,

Je souhaite svp que les cellules de noms dans la colonne Q après saisie (en majuscules et/minuscules) deviennent automatiquement comme celles voulues en colonne S, mais en colonne Q.
Je suppose que cela doit se passer par un code VBA.

1644517698235.png


Je vous remercie d'avance de votre aide,
FX
 

Pièces jointes

  • Noms.xlsx
    9.2 KB · Affichages: 7

GALOUGALOU

XLDnaute Accro
bonsoir le forum
re vx lefefebre
la formule nom propre fait cela mais dans Giscard D'Estaing, le D sera en majuscule
VB:
=NOMPROPRE(Q3)
idem pour ce code vba
Code:
Sub Proper_Case()
For Each x In Range("q3:q20")
x.Value = Application.Proper(x.Value)
Next
End Sub
un membre de XLD aura peut-être la solution
cdt
galougalou
 

patricktoulon

XLDnaute Barbatruc
Bonjour
dynamiquement à la saisie tu passe par VBAet l'event change de la feuille
VB:
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, [Q:Q].Resize(ActiveSheet.UsedRange.Rows.Count)) Is Nothing Then
        Application.EnableEvents = False
        Target = WorksheetFunction.Proper(Target.Value)
        Application.EnableEvents = True
   End If
End Sub
 

GALOUGALOU

XLDnaute Accro
bonjour le fil
re fx lefefebvre
Effectivement vous partez de loin. Je vous conseille cette lecture pour le code VBA, et sur le site d'autre tuto vous serons utiles.
cdt
galougalou
 

Discussions similaires

Réponses
31
Affichages
2 K

Statistiques des forums

Discussions
315 092
Messages
2 116 118
Membres
112 665
dernier inscrit
JPHD