procédure VBA coup de main merci

[angus young]

Bonjour tous le monde.
Je galère encore avec le VBA, et voilà mon objectif suivi de la procédure que j'ai déja faite pour mon bouton de validation, la feuille s'appelle 'paramètres_des_plannings' le tableau des valeurs se situe en E146:AU277

1°)il faut que la boite boite de dialogue ne m'affiche pas de valeurs quand je l'ouvre (qu'il soit vide en fait),
2°)que les données ainsi entrées s'intègre dans ce tableau par ordre alphabétique,
3°)que cette feuille n'apparaisse pas lorsque je remplis cette boite de dialogue (puisque pour des raisons de sécu elle me paramètres l'ensemble de mes plannings)
4°)que toutes les données soit entrée en majuscules dans mon tableau,
5°)créer un autre userform pour modifié les données si un gars change de niveau de formation en suprimant par exemple un niveau 1 en niveau 2.

la procédure actuelle est la suivante:
Private Sub b_validation_Click()
'SAISIE DU NOM
If Me.NOMS = '' Then
MsgBox 'Saisir un nom!'
Me.NOMS.SetFocus
Exit Sub
End If
'GRADE
If Me.GRADE = '' Then
MsgBox 'Saisir un grade!'
Me.GRADE.SetFocus
Exit Sub
End If
'--- Positionnement dans la base
If IsEmpty('D146') Then
Range('D146').Select
ActiveCell.Value = 1
Else
Range('D146').End(xlDown).Select ' Dernière ligne
ActiveCell.Offset(1, 0).Select ' En dessous
ActiveCell.Value = ActiveCell.Offset(-1, 0) + 1
End If
'--- Transfert
ActiveCell.Offset(0, -1).Value = b_code_oper
ActiveCell.Offset(0, 2).Value = Application.Proper(Me!GRADE)
ActiveCell.Offset(0, 3).Value = Application.Proper(Me!NOMS)
ActiveCell.Offset(0, 4).Value = Application.Proper(Me!RCH1)
ActiveCell.Offset(0, 5).Value = Application.Proper(Me!RCH2)
ActiveCell.Offset(0, 6).Value = Application.Proper(Me!RCH3)
ActiveCell.Offset(0, 7).Value = Application.Proper(Me!RCH4)
ActiveCell.Offset(0, 8).Value = Application.Proper(Me!RAD1)
ActiveCell.Offset(0, 9).Value = Application.Proper(Me!RAD2)
ActiveCell.Offset(0, 10).Value = Application.Proper(Me!RAD3)
ActiveCell.Offset(0, 11).Value = Application.Proper(Me!RAD4)
ActiveCell.Offset(0, 12).Value = Application.Proper(Me!SDE1)
ActiveCell.Offset(0, 13).Value = Application.Proper(Me!SDE2)
ActiveCell.Offset(0, 14).Value = Application.Proper(Me!SDE3)
ActiveCell.Offset(0, 15).Value = Application.Proper(Me!SDE4)
ActiveCell.Offset(0, 16).Value = Application.Proper(Me!IMP1)
ActiveCell.Offset(0, 17).Value = Application.Proper(Me!IMP2)
ActiveCell.Offset(0, 18).Value = Application.Proper(Me!IMP3)
ActiveCell.Offset(0, 19).Value = Application.Proper(Me!IMPCT)
ActiveCell.Offset(0, 20).Value = Application.Proper(Me!PLG1)
ActiveCell.Offset(0, 21).Value = Application.Proper(Me!PLG2)
ActiveCell.Offset(0, 22).Value = Application.Proper(Me!PLGCT)
ActiveCell.Offset(0, 23).Value = Application.Proper(Me!CYN1)
ActiveCell.Offset(0, 24).Value = Application.Proper(Me!CYN2)
ActiveCell.Offset(0, 25).Value = Application.Proper(Me!CYN3)
ActiveCell.Offset(0, 26).Value = Application.Proper(Me!COD1)
ActiveCell.Offset(0, 27).Value = Application.Proper(Me!COD2)
ActiveCell.Offset(0, 28).Value = Application.Proper(Me!COD3)
ActiveCell.Offset(0, 29).Value = Application.Proper(Me!COD4)
ActiveCell.Offset(0, 30).Value = Application.Proper(Me!FDF1)
ActiveCell.Offset(0, 31).Value = Application.Proper(Me!FDF2)
ActiveCell.Offset(0, 32).Value = Application.Proper(Me!FDF3)
ActiveCell.Offset(0, 33).Value = Application.Proper(Me!FDF4)
ActiveCell.Offset(0, 34).Value = Application.Proper(Me!SAV1)
ActiveCell.Offset(0, 35).Value = Application.Proper(Me!SAV2)
ActiveCell.Offset(0, 36).Value = Application.Proper(Me!SAV3)
ActiveCell.Offset(0, 37).Value = Application.Proper(Me!ECHELIER)
ActiveCell.Offset(0, 38).Value = Application.Proper(Me!GOC3)
ActiveCell.Offset(0, 39).Value = Application.Proper(Me!MPS)
ActiveCell.Offset(0, 40).Value = Application.Proper(Me!CAVSAV)
ActiveCell.Offset(0, 41).Value = Application.Proper(Me!CEQ)
ActiveCell.Offset(0, 42).Value = Application.Proper(Me!EQ)

End Sub
pourvu que ce soit clair

 

[pierrejean]

il n'est pas utile de multiplier les posts
(cela aura plutot pour effet d'irriter ceux qui sont prets à t'aider)
tu peux faire une copie de ton classeur, le purger de ce qui n'est pas necessaire à la resolution de ton probleme le zipper et le joindre
je souhaite cependant sincerement que d'autres xcelnautes prennent ton pb en consideration

 

[angus young]

Oups toutes mes excuses, c'est le premier forum sur lequel je participe, alors je découvre comment cela fonctionne et milles pardons encore.
pour le fichier vous l'avez reçu ????
merci, Gilles.

 

[angus young]

Oups toutes mes excuses, c'est le premier forum sur lequel je participe, alors je découvre comment cela fonctionne et milles pardons encore.
pour le fichier vous l'avez reçu ????
merci, Gilles.

 

[angus young]

Oups toutes mes excuses, c'est le premier forum sur lequel je participe, alors je découvre comment cela fonctionne et milles pardons encore.
pour le fichier vous l'avez reçu ????
merci, Gilles.

 

[angus young]

voici le fichier en espérant que cela suffise

 

[Abel]

Bonjour angus young,

Ci-après un lien vers un petit tutoriel pour joindre un fichier (si tu ne l'as pas déjà vu).

Lien supprimé

A+

Abel.

 

[Gruick]

Bonsoir
Je pense que tu as fait ASSEZ D'ESSAIS (ah ! ah!)
pour joindre ton fichier.
Il dépasse sûrement les 50 Ko fatidiques même zippé.

As tu jeté un oeil sur le tutoriel.
Lien supprimé

Bon, sinon il existe un site hebergeant les gros fichiers
http://cjoint.com, mais il faut l'adresse d'un destinataire.

Je te conseille donc de t'inscrire comme membre de ce génial forum (le meilleur), de reposter un sujet, invitant ceux qui le veulent à aller le chercher, l'inspecter, le réparer...
Etre inscrit te donne droit à une messagerie privée, bien utile aussi pour les sujets trop particuliers.
Bon courage

 

[angus young]

OK et merci c'est sympa pour les infos A+ peut être.
Gilles