finaliser ma procédure VBA 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'appel '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]

pas possible de creer un fichier excel exemple ??
ne serait-ce que pour tester il faut que quelqu'un le fasse !!
et je doute que cela interesse beaucoup ceux qui sont tout prets à t'aider

 

[angus young]

je doit joindre mon classeur alors ?