Microsoft 365 Code pour Userform multipage

C

CHALET53

XLDnaute Barbatruc

• 6 Décembre 2020

• #16

...
Une modif apportée au fichier ci-dessus

 

Vote positif 0 Vote négatif

jcf6464

XLDnaute Impliqué

• 6 Décembre 2020

• #17

Bonsoir J-Laurie, Patricktoulon, chalet53 et le forum,

Ce que j'ai pu faire avec ce confinement (reste à faire une suppression de ligne et peut être améliorer le codage de l'ajout.!!!)
attention les combobox sont lier avec des textbox,

Vous les maitres du codage merci de nous faire profiter de votre savoir ,

bon WE et prenez soins de vous tous,

jean claude

 

Pièces jointes

• 06122020-Laurie--Suivi administratif.xlsm

  78.7 KB · Affichages: 8

Vote positif 0 Vote négatif

jcf6464

XLDnaute Impliqué

• 6 Décembre 2020

• #18

Re tous

j'ai trouvé

VB:

Private Sub B_sup_Click()
Dim Indexlist
'Détermination de la ligne dans la feuille de base
Indexlist = ListBox1.ListIndex + 3
If Indexlist < 2 Then Exit Sub
Sheets("Personnel").Rows(Indexlist).Delete
Application.ScreenUpdating = False



   Unload Me
   RechIntuit2.Show 0
End Sub

a+ jean claude

 

Vote positif 0 Vote négatif

C

CHALET53

XLDnaute Barbatruc

• 6 Décembre 2020

• #19

Tu peux aussi supprimer toute ta série de Range pour l'ajout et les remplacer par cela :

For I = 0 To UBound(tbl, 2) - 2
Cells(ligne, I + 1) = Me("Textbox" & I + 1)
Next I

Bien vu, l'idée de masquer les textbox par les comboboxs pour conserver le corps du programme

 

Vote positif 0 Vote négatif

C

CHALET53

XLDnaute Barbatruc

• 6 Décembre 2020

• #20

Pour la suppression d'une ligne comme pour la modification Patrick a rajouté en dernière colonne de la listbox le numéro de ligne (utile pour réaliser ces opérations)

Ncol = ListBox1.ListIndex

With ListBox1
nligne = .List(Ncol, 49)
End With

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 6 Décembre 2020

• #21

bonjour @CHALET53
j'ai regardé le fichier
peut Etre un autre nom que NCol aurai été plus adéquat
et pour une standardisation (réutilisation éventuelle du code dans un autre project ) j'aurais mis .columncount-1 à la place de 49
c'est du codage bio (recyclable)

VB:

With ListBox1
nligne = .List(.listindex, .columncount-1)
End With

 

Vote positif 0 Vote négatif

jcf6464

XLDnaute Impliqué

• 7 Décembre 2020

• #22

Bonjour J-Laurie, Patricktoulon, chalet53 et le forum,

Merci à vous tous
Ici temps pourri,

dernière mouture du fichier de J-Laurie que l'on n'a pas entendu.!!!,

je pense que je vais arrêter là et me concentrer sur mon projet suivi pilote,

Cordialement jean claude

Oups rectifier sur le fichier,

 

Pièces jointes

• 07-12-2020-Laurie--Suivi administratif-V-1.xlsm

  80.1 KB · Affichages: 7

Dernière édition: 7 Décembre 2020

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 7 Décembre 2020

• #23

Bonjour @jcf6464
c'est vrai qu' on l'a beaucoup vu @J-Laurie
ca servira a d'autre
revoie quand même ta gestion boutons c'est pas ergonomique le bouton modifier qui supprime une ligne c'est pas tellement bien si tu vois ce que je veux dire

 

Vote positif 0 Vote négatif

jcf6464

XLDnaute Impliqué

• 7 Décembre 2020

• #24

Bonjour Patricktoulon

Oups

Oui c'est vrai copie coller mais sans regarder des fois , rectifier sur post #22

Bon aprem

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 7 Décembre 2020

• #25

a toi aussi

 

Vote positif 0 Vote négatif

J

J-Laurie

XLDnaute Nouveau

• 7 Décembre 2020

• #26

Bonjour à tous,

Désolé pour cette semaine sans signe de vie, je n'ai pas pu me connecter. Mais là franchement je ne sais plus où donner de la tête avec votre super aide à tous , je suis choquée. Vraiment merci merci.

@patricktoulon vraiment merci pour le boulot, c'est impressionnant
Merci aussi à @jcf6464 @ChTi160 @CHALET53 vous m'avez vraiment enlevé une grande épine du pied. C'est vrai que le bidouillage c'est bien mais quand on ne comprend pas tout, c'est pas terrible.

Je vous souhaite à tous une bonne journée ou nuit selon votre heure de lecture

 

Dernière édition: 7 Décembre 2020

Vote positif 0 Vote négatif

jcf6464

XLDnaute Impliqué

• 8 Décembre 2020

• #27

Bonjour à tous,

Avec plaisir J-Laurie , il ou elle.!!!

bonne continuation jean claude

 

Vote positif 0 Vote négatif

jcf6464

XLDnaute Impliqué

• 8 Décembre 2020

• #28

Bonjour à tous,

Une pour la route saisie des dates
(ce serais plus simple de passer par une classe mais sait pas faire)

bonne soirée jean claude

 

Pièces jointes

• 07-12-2020-Laurie--Suivi administratif-V-1.xlsm

  88.2 KB · Affichages: 3

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 8 Décembre 2020

• #29

bonsoir @jcf6464
kado!!

 

Pièces jointes

• 07-12-2020-Laurie--Suivi administratif-V-pat classe tbx date intra userform .xlsm

  76.2 KB · Affichages: 11

Vote positif 0 Vote négatif

jcf6464

XLDnaute Impliqué

• 8 Décembre 2020

• #30

Bonsoir Patrick, et le forum

qui cet le meilleur c'est patrick

merci

 

Vote positif 0 Vote négatif