USF mise en majuscule des données lors de la valid

L

lio

XLDnaute Occasionnel

• 14 Février 2006

• #2

Bonjour Gilles,

1- Ci joint un fichier exemple pour ta première question.

2- Oui, tu peux !
[file name=Gilles_20060214201953.zip size=10727]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Gilles_20060214201953.zip[/file]

Message édité par: lio, à: 14/02/2006 20:21

 

Pièces jointes

• Gilles_20060214201953.zip

  10.5 KB · Affichages: 17

Vote positif 0 Vote négatif

G

GILLES25

Guest

• 14 Février 2006

• #3

Re:USF mise en majuscule des données lors de la va

Salut LIO et merci, vous m'inpressionné tous, par contre pour placer 'UCASE' dans ma procédure j'ai pas trop compris car je l'ai déjà, voilà le début
Private Sub B_VALIDATION_Click()
If Me.NOM = '' Then
MsgBox 'Saisir un nom!'
Me.NOM.SetFocus
Exit Sub
End If
'--- Positionnement dans la base
If IsEmpty('B10') Then
Range('B10').Select
ActiveCell.Value = 1

'--- Transfert
Else
Range('B65536').End(xlUp).Select ' Dernière ligne
ActiveCell.Offset(1, 0).Select ' En dessous
End If
'--- transfert

ActiveCell.Offset(0, 0).Value = Application.Proper(Me!GRADE)
ActiveCell.Offset(0, 1).Value = Application.Proper(UCase(Me!NOM))

 

Vote positif 0 Vote négatif

M

Manu13

XLDnaute Occasionnel

• 14 Février 2006

• #4

Re:USF mise en majuscule des données lors de la va

Bonsoir Gilles25 et Lio

ActiveCell.Offset(0, 0).Value = Application.Proper(Me!GRADE)
ActiveCell.Offset(0, 1).Value = UCase(Me!NOM))
Application.proper c'est pour mettre ta première en majuscule

bonne soirée
Manu

 

Vote positif 0 Vote négatif

G

GILLES25

Guest

• 14 Février 2006

• #5

Re:USF mise en majuscule des données lors de la va

yes yes yesssssssssssss génial, merci manu, réponse, simple bien expliqué, que demande le peuple et en plus ça fonctionne encore merci.

encore une petite question avant de se coucher;
voici la procédure pour mon USF CREATION:



Private Sub B_VALIDATION_Click()
If Me.NOM = '' Then
MsgBox 'Saisir un nom!'
Me.NOM.SetFocus
Exit Sub
End If
If Me.GRADE = '' Then
MsgBox 'si vous placer un nouveau S.P.V il faut absolument le grade!'
Me.GRADE.SetFocus
Exit Sub
End If
'--- Positionnement dans la base
If IsEmpty('B10') Then
Range('B10').Select
ActiveCell.Value = 1

'--- Transfert
Else
Range('B65536').End(xlUp).Select ' Dernière ligne
ActiveCell.Offset(1, 0).Select ' En dessous
End If
'--- transfert
ActiveCell.Offset(0, 0).Value = UCase(Me!GRADE)
ActiveCell.Offset(0, 1).Value = UCase(Me!NOM)
ActiveCell.Offset(0, 2).Value = Application.Proper(Me!RCH1)
ActiveCell.Offset(0, 3).Value = Application.Proper(Me!RCH2)
ActiveCell.Offset(0, 4).Value = Application.Proper(Me!RCH3)
ActiveCell.Offset(0, 5).Value = Application.Proper(Me!RCH4)
End Sub


en faisant copier coller sur un nouvel USF_RECHERCHE_POUR_MODIF je rajoute une listbox
et que doit rajouter pour rechercherpar exemple par rapport à un nom et modifier n'importe quelle données.
Dans l'attente merci
Gilles

 

Vote positif 0 Vote négatif

L

lio

XLDnaute Occasionnel

• 14 Février 2006

• #6

Re:USF mise en majuscule des données lors de la va

Salut le fil,

Gilles, voici une variante.

A voir. Je me suis arreté à l'incrementation de la listboxt mais bon il y moyen de faire. Désolé, j'ai trop de boulot perso .

Message édité par: lio, à: 14/02/2006 22:21

 

Pièces jointes

• Usf_Gilles.zip

  19.9 KB · Affichages: 14

Vote positif 0 Vote négatif

L

lio

XLDnaute Occasionnel

• 14 Février 2006

• #7

Re:USF mise en majuscule des données lors de la va

[file name=Usf_Gilles_20060214222154.zip size=20213]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Usf_Gilles_20060214222154.zip[/file]

 

Pièces jointes

• Usf_Gilles_20060214222154.zip

  19.7 KB · Affichages: 12

Vote positif 0 Vote négatif

L

lio

XLDnaute Occasionnel

• 14 Février 2006

• #8

Re:USF mise en majuscule des données lors de la va

Re,

Rapidos, peut être es ce ce que tu demandes ...

EDITION: Sur une idée originale de thierry
[file name=Usf_Gilles_20060214225821.zip size=20271]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Usf_Gilles_20060214225821.zip[/file]

Message édité par: lio, à: 14/02/2006 22:59

 

Pièces jointes

• Usf_Gilles_20060214225821.zip

  19.8 KB · Affichages: 10

Vote positif 0 Vote négatif

L

lio

XLDnaute Occasionnel

• 15 Février 2006

• #9

Re:USF mise en majuscule des données lors de la va

Bonjour le fil, Gilles,

Rapidement avant un RDV au sommet, lol, le fichier modifié avec maintenant l'option 'clear' qui marche.

Bonne journée [file name=Usf_Gilles_20060215084754.zip size=25829]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Usf_Gilles_20060215084754.zip[/file]

Edition: En testant, je m'apperçois qu'il y a quelques dysfonct.. Dans la procédure modif, rajoute le code pour que le TxtNom soit en majuscule? etc.....

Message édité par: lio, à: 15/02/2006 08:57

 

Pièces jointes

• Usf_Gilles_20060215084754.zip

  25.2 KB · Affichages: 12

Vote positif 0 Vote négatif

G

GILLES25

Guest

• 15 Février 2006

• #10

Re:USF mise en majuscule des données lors de la va

bonjour le fil, LIO

Alors là chapeau c'est pil poil ce qu'il me fallait, encore merci LIO.

par contre s'il te plais et sans être trop exigeant, je souhaite un dernier coup de patte de t'a part voilà ma question:
dans la procédure du bouton de validation des données il faut que lorsque je clique OK tout ce range part ordre alphabétique j'ai fait une macro mais ce serai mieux si de la placer dans la procédure à ton avis ?????
voila la macro:

Selection.Sort Key1:=Range('A2'), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

est-ce que c'est complet ?? manque t'il qqe chose ?? et où je la place.

Merci de ton aide précieuse et @+
Gilles.
:woohoo:

 

Vote positif 0 Vote négatif

L

lio

XLDnaute Occasionnel

• 15 Février 2006

• #11

Re:USF mise en majuscule des données lors de la va

Re,

Regarde ce fichier. La procédure 'SortNom' fait le boulot et ensuite j'appelle la routine dans la CmdValide.

[file name=Usf_GillesV2.zip size=26971]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Usf_GillesV2.zip[/file]

EDITION: Un oubli important dans cette procédure rajoute :

Private Sub UserForm_Initialize()
Dim X As Byte, F As Byte, B As Byte
Dim M As Byte
SortNom
LstNom.Visible = False
CmdValide2.Visible = False
UsfSaisie.Width = 279.75
CmdClear.Enabled = False
etc...

Message édité par: lio, à: 15/02/2006 12:41

 

Pièces jointes

• Usf_GillesV2.zip

  26.3 KB · Affichages: 12

Vote positif 0 Vote négatif

G

GILLES25

Guest

• 15 Février 2006

• #12

Re:USF mise en majuscule des données lors de la va

😱 :whistle:
Rebonjour LIO
je fini par ne plus rien n'y comprendre, ets-ce trop te demander si je peux t'envoyer mon classeur pour y jeter un oeil, le souci c'est qu'il fait 17,2Mo parce que je n'arrive pas à mettre tes feuilles dans mon planning avec tous le VBA qui va avec ??????????????

Comment faire pour te l'envoyer ai je le droit de te communiquer mon Email et vise versa ?

 

Vote positif 0 Vote négatif

L

lio

XLDnaute Occasionnel

• 15 Février 2006

• #13

Re:USF mise en majuscule des données lors de la va

Salut Gilles,

Désolé, j'ai trop de boulot et je ne peux faire le service après vente !

Je peux t'aider simplement sur des questions ponctuelles bien que je t'ai fait déjà une petite appli...

Je te joins la version 3 avec les correctifs que je t'avais indiqué.

Analyse dans un premier temps bien le code meme si on pourrait largement l'optimiser.

Si tu as d'autres questions bien ciblées, n'hésite pas à ouvrir un nouveau message sur le forum. D'autres personnes se feront un plasir d'y répondre.

Pardon, mais je fais passer mon job avant.

[file name=Usf_GillesV3.zip size=26653]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Usf_GillesV3.zip[/file]

 

Pièces jointes

• Usf_GillesV3.zip

  26 KB · Affichages: 12

Vote positif 0 Vote négatif

G

GILLES25

Guest

• 15 Février 2006

• #14

Re:USF mise en majuscule des données lors de la va

Salut LIO,
C'est pas grave te formalise pas, je suis entièrement d'accord avec toi.
Une dernière question pour finir le fil de cette discution:

Comment faire pour intégrer ton classeur dans le miens avec l'ensemble du VBA que tu ma si gentillement fait.

A+ dans un nouveau message.
Gilles ;-))))))))))

 

Vote positif 0 Vote négatif

L

lio

XLDnaute Occasionnel

• 15 Février 2006

• #15

Re:USF mise en majuscule des données lors de la va

Re,

Au préalable, tu ouvres les 2 classeurs : le tien et UsfGilleV4.xls (ci joint)

1- Copie les feuilles 'donnee' et 'Saisie' du fichier UsfGillesV4 vers ton classeur.( Attention respecte absolument la mise en forme ( colonne, pas de fusion de cellule etc...)

2 - Tu tape ensuite sur les touches Alt + F11 et tu arrives dans le VBE.

3 - Tu verras alors les 2 projets sur ta gauche. Tu cliques sur l'USFSaisie (classeur USFGillesV4) et tu fais glisser jusqu'à ton projet. Résultat, tu as copier coller l'USF et tout le code avec...

Dernier point, noublie pas de refaire un bouton de commande sur la feuille Saisie pour appeler la boite de dialogue (USF).

@+ [file name=Usf_GillesV4.zip size=27279]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Usf_GillesV4.zip[/file]

 

Pièces jointes

• Usf_GillesV4.zip

  26.6 KB · Affichages: 18

Vote positif 0 Vote négatif