XL 2019 boutons sur formulaire non fonctionnels

olivier1984

XLDnaute Junior
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.
 

Pièces jointes

  • PAIE GIG.xlsm
    744.1 KB · Affichages: 6
Dernière modification par un modérateur:

vgendron

XLDnaute Barbatruc
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
 

Discussions similaires

Réponses
3
Affichages
166

Statistiques des forums

Discussions
314 626
Messages
2 111 284
Membres
111 090
dernier inscrit
ISSAKA