Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

finaliser ma procédure VBA merci

  • Initiateur de la discussion Initiateur de la discussion angus young
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

A

angus young

Guest
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
21
Affichages
2 K
Réponses
4
Affichages
811
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…