fonction (proper-upper)
Le
andre
Bonjour,
Je reviens vers les specialistes
car j'ai vraiment besoin de savoir
j'ai une macro qui fonctionne ( nom propre - majuscule )
Sub Maj_Npropre()
For Each x In Range("C2:C1000")
x.Value = Application.Proper(x.Value)
Next
For Each x In Range("B2:B4100")
x.Value = UCase(x.Value)
Next
End Sub 'Le Pc rame un peu
je voudrais passer ses procedures dans le code des textbox respectifs
Private Sub nom_Change()
End Sub
Private Sub Prenom_Change()
End Sub etc..
et la je galere un peu
il reconnait la fonction upper que j'utilise mais pas la proper
merci de votre coup de main car la boite d'aspirine est vide
et aussi: si j'ai une adresse ex: 23 ave de gen leclcerc
comment faire pour avoir les maj au debut des noms
merci
--
andre
Je reviens vers les specialistes
car j'ai vraiment besoin de savoir
j'ai une macro qui fonctionne ( nom propre - majuscule )
Sub Maj_Npropre()
For Each x In Range("C2:C1000")
x.Value = Application.Proper(x.Value)
Next
For Each x In Range("B2:B4100")
x.Value = UCase(x.Value)
Next
End Sub 'Le Pc rame un peu
je voudrais passer ses procedures dans le code des textbox respectifs
Private Sub nom_Change()
End Sub
Private Sub Prenom_Change()
End Sub etc..
et la je galere un peu
il reconnait la fonction upper que j'utilise mais pas la proper
merci de votre coup de main car la boite d'aspirine est vide
et aussi: si j'ai une adresse ex: 23 ave de gen leclcerc
comment faire pour avoir les maj au debut des noms
merci
--
andre
Poser une question
la fonction LCase() met toutes les lettres d'un mot en minuscule
la fonction UCase() met toutes les lettres d'un mot en majsucule
Lorsque tu utilises l'opérateur "=" , excel est sensible à la case
en conséquence :
" toto" n'égale pas "toTo" ou "Toto" ou "TOTO"
tu peux utiliser cependant :
LCase("TOTO" = "toto"
ou UCase("toto") = "TOTO"
Et si tu désires qu'excel ne soit pas sensible à la case lors de la comparaison,
tu dois déclarer dans le haut du module ceci :
Option Compare Text
"andre"
Bonjour,
Je reviens vers les specialistes
car j'ai vraiment besoin de savoir
j'ai une macro qui fonctionne ( nom propre - majuscule )
Sub Maj_Npropre()
For Each x In Range("C2:C1000")
x.Value = Application.Proper(x.Value)
Next
For Each x In Range("B2:B4100")
x.Value = UCase(x.Value)
Next
End Sub 'Le Pc rame un peu
je voudrais passer ses procedures dans le code des textbox respectifs
Private Sub nom_Change()
End Sub
Private Sub Prenom_Change()
End Sub etc.....
et la je galere un peu
il reconnait la fonction upper que j'utilise mais pas la proper
merci de votre coup de main car la boite d'aspirine est vide
et aussi: si j'ai une adresse ex: 23 ave de gen leclcerc
comment faire pour avoir les maj au debut des noms
merci
--
andre
les textbox sont issus d'un userform voici le code
Private Sub valider_Click()
Application.ScreenUpdating = False
Sheets("toto").Select
[A5000].End(xlUp).Offset(1, 1).Select
ActiveCell.Offset(0, -1) = ActiveCell.Offset(-1, -1) + 1
ActiveCell.Offset(0, 0).Value = Me.nom
ActiveCell.Offset(0, 1).Value = Me.Prenom
ActiveCell.Offset(0, 2).Value = Me.Adresse
ActiveCell.Offset(0, 3).Value = Me.Ville
ActiveCell.Offset(0, 6).Value = Me.Telephone
Range("H2:H1000").NumberFormat = "0#"" ""##"" ""##"" ""##"" ""##"
nom.Value = ""
Prenom.Value = ""
Adresse.Value = ""
Ville.Value = "xxxxxx"
Telephone.Value = ""
End Sub
peut on directement mettre du code dans cette procedure
--
andre
c'est que mes donnees qui sont saisies via un formulaire
s'inscrivent automatiquement avec la bonne casse
sans utiliser de macro
--
andre
Pour appeler la fonction "Proper" tu dois utiliser cette syntaxe
c'est une fonction de la feuille de calcul...
Application.WorksheetFunction.Proper()
Ou Application.Proper()
Ce qui précède ne s'applique pas à la fonction
UCase() ou LCase() car ces fonctionnent appartiennent
à la bibliothèque déjà chargé. Le nom de la bibliothèque
est VBA. Ceci tu peux le constater dans la fenêtre de
l'explorateur d'objets ... dans la liste déroulante affichant "Toutes les bibliothèques.
Ceci te permet dans ton code d'utiliser seulement les noms
des fonctions LCase() ou UCase() sans besoin explicite d'écrire
le nom de la bibliothèque auquel elles appartiennent.
VBA.LCase()
VBA.UCase()
"andre"
Bonjour,
Je reviens vers les specialistes
car j'ai vraiment besoin de savoir
j'ai une macro qui fonctionne ( nom propre - majuscule )
Sub Maj_Npropre()
For Each x In Range("C2:C1000")
x.Value = Application.Proper(x.Value)
Next
For Each x In Range("B2:B4100")
x.Value = UCase(x.Value)
Next
End Sub 'Le Pc rame un peu
je voudrais passer ses procedures dans le code des textbox respectifs
Private Sub nom_Change()
End Sub
Private Sub Prenom_Change()
End Sub etc.....
et la je galere un peu
il reconnait la fonction upper que j'utilise mais pas la proper
merci de votre coup de main car la boite d'aspirine est vide
et aussi: si j'ai une adresse ex: 23 ave de gen leclcerc
comment faire pour avoir les maj au debut des noms
merci
--
andre
je seche pas moyen ca bug .....
Private Sub valider_Click()
Application.ScreenUpdating = False
Sheets("zaza").Select
[A5000].End(xlUp).Offset(1, 1).Select
ActiveCell.Offset(0, -1) = ActiveCell.Offset(-1, -1) + 1
ActiveCell.Offset(0, 0).Value = Me.nom
Cells.Value = Application.WorksheetFunction.Proper(Cells.Value)
--
andre