XL 2019 boutons sur formulaire non fonctionnels

olivier1984 · 4 Novembre 2024

Bonsoir à tous les experts du forum.

Je suis très noviste en VBA en phase d'initiation je dirais.

Je tiens à remercier tous ceux qui m'ont aidé hier à résoudre toutes mes difficultés que j'ai posées notamment Toofatboy et job75.

Aujourd'hui je sollicite une toute petite aide sur mon formulaire.

1er souci : Boutons de commande.

Sur la feuille Paie, j'ai créé un formulaire à 5 boutons (nouveau, effacer, modifier, supprimer et quitter) mais parmi les 5 je n'arrive pas à faire fonctionner les boutons "modifier" et "supprimer" et c'est là mon premier souci.

2ème souci : initialisation du formulaire.

Toujours dans la feuille "Paie", J'aimerais qu'à l'ouverture de mon formulaire tous les champs se remplissent automatiquement avec les données contenues dans mon tableau à savoir :
Nom salarié
Nbre dimanche travaillé
Salissure
Astreinte
Panier
Assiduité
Transport

Merci à tous pour vos apports.

vgendron · Hier à 12:11

Hello
pour les formats.. pas sur d'avoir changé quelque chose

mais un textbox contient.. du texte.. il faut donc le convertir pour le mettre dans la feuille excel (Excel se charge "parfois" de faire la conversion lui meme... et comme il le sent)

VB:

Sub SauvInfoSalarié(ind As Integer) 'permet de sauvegarder les données du formulaire à la ligne "ind" du TS

    With TSSalarié
         .DataBodyRange(ind, 1) = CInt(TextBox1)
         .DataBodyRange(ind, 2) = ComboBox1
         .DataBodyRange(ind, 3) = TextBox4
         .DataBodyRange(ind, 4) = TextBox5
         .DataBodyRange(ind, 5) = TextBox6
         .DataBodyRange(ind, 6) = TextBox7
         .DataBodyRange(ind, 13) = TextBox14
       
         .DataBodyRange(ind, 20) = ComboBox2
         .DataBodyRange(ind, 7) = TextBox8
         .DataBodyRange(ind, 8) = ComboBox4
         .DataBodyRange(ind, 9) = ComboBox3
         .DataBodyRange(ind, 10) = TextBox11
         .DataBodyRange(ind, 11) = TextBox12
         .DataBodyRange(ind, 12) = TextBox13
         .DataBodyRange(ind, 14) = ComboBox5
       
         .DataBodyRange(ind, 21) = TextBox15
         .DataBodyRange(ind, 22) = TextBox16

         .DataBodyRange(ind, 17) = CDbl(TextBox17)
         .DataBodyRange(ind, 16) = CInt(TextBox18)
         .DataBodyRange(ind, 19) = CInt(TextBox19)
    End With
End Sub

vgendron · Hier à 12:21

et pour la suppression de l'employé
voir PJ

olivier1984 · Hier à 13:08

vgendron à dit:
et pour la suppression de l'employé
voir PJ

J'essaie le code ci dessus, je test et je te reviens dès que je peux.
À la prochaine.
Merci beaucoup

XL 2019 boutons sur formulaire non fonctionnels

olivier1984

XLDnaute Junior

Pièces jointes

vgendron

XLDnaute Barbatruc

vgendron

XLDnaute Barbatruc

Pièces jointes

olivier1984

XLDnaute Junior

Discussions similaires