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 · 13 Novembre 2024

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 · 13 Novembre 2024

et pour la suppression de l'employé
voir PJ

olivier1984 · 13 Novembre 2024

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

olivier1984 · Mardi à 17:11

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

Bonsoir vgendron
C'était juste pour te faire un retour puisque depuis la dernière fois je ne me suis plus vraiment connecté.
Merci car mon fichier fonctionne déjà presque parfaitement à 97% sauf que je n'ai pas pu gérer le problème du format de mon formulaire qui posait un problème sur les formules dans Excel mais pour l'instant je me débrouille avec manuellement et ça marche bien et je m'en contente pour l'instant.

Merci

vgendron · Mardi à 18:02

hello
je pense que puisque tu as créé un post spécifique

XL 2019 - Code VBA pour automatiser la programmation des rotations des ouvriers qui travaillent à temps partiel et se relaient par période de temps constante.

Bonjour à tout le forum Excel downloads Je vous présente un petit fichier de programmation des ouvriers dont j'éprouve des difficultés à l'automatisme. Principe : Il y'a trois stations de travail (station 1, station 2 et station 3) et une station de repos (Home) ce qui fait en tout 4...

excel-downloads.com

tu peux supprimer ici ton dernier message dans ce fil

olivier1984 · Mardi à 19:42

vgendron à dit:
hello
je pense que puisque tu as créé un post spécifique

XL 2019 - Code VBA pour automatiser la programmation des rotations des ouvriers qui travaillent à temps partiel et se relaient par période de temps constante.

Bonjour à tout le forum Excel downloads Je vous présente un petit fichier de programmation des ouvriers dont j'éprouve des difficultés à l'automatisme. Principe : Il y'a trois stations de travail (station 1, station 2 et station 3) et une station de repos (Home) ce qui fait en tout 4...

excel-downloads.com

tu peux supprimer ici ton dernier message dans ce fil

Ok
Si j'ai bien compris je supprime le message que je t'ai adressé directement c'est ça ?

En supposant que c'est ça que tu demandes je le supprime tout de suite...

Merci

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

olivier1984

XLDnaute Junior

vgendron

XLDnaute Barbatruc

XL 2019 - Code VBA pour automatiser la programmation des rotations des ouvriers qui travaillent à temps partiel et se relaient par période de temps constante.

olivier1984

XLDnaute Junior

XL 2019 - Code VBA pour automatiser la programmation des rotations des ouvriers qui travaillent à temps partiel et se relaient par période de temps constante.

Discussions similaires