XL 2016 Besoin de modification avec un formulaire

G

GeoffreyAbid

XLDnaute Nouveau

• 17 Décembre 2021

• #46

Pour l'historique aussi j'aimerais faire presque comme le bouton ajout sauf qu'on ajoute une ligne dans history et on copie betement les valeurs a chaque fois que le formulaire est valider comme ca on a toutes les lignes de tout ce qu'on a fait avec le formulaire

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 17 Décembre 2021

• #47

Pour ce dernier point, solution donnée au #40.

 

Vote positif 0 Vote négatif

G

GeoffreyAbid

XLDnaute Nouveau

• 19 Décembre 2021

• #48

Très bien mais ca ne regle pas le probleme du bouton ajout j'aimerais simplement que la ligne se supprime si je clique sur annuler

 

Vote positif 0 Vote négatif

G

GeoffreyAbid

XLDnaute Nouveau

• 19 Décembre 2021

• #49

Et je comprend le #40 mais si je ne souhaite pas tout avoir seulement quelque colonne je fait comment ?

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 19 Décembre 2021

• #50

Si le début est pareil ça ne gène pas. Sinon il faut transférer les postes requis de TVL dans un second tableau, local celui-là, déclaré TVLHisto() par exemple et verser celui ci. Verser un tableau dans une plage de plusieurs cellules ne prend guère plus de temps que de verser une valeur dans une seule cellule. Mais le faire individuellement pour chacune multiplie ce temps par leur nombre. Quant aux transferts entre postes de tableaux VBA ils sont incommensurablement plus rapides que tout ça.

 

Dernière édition: 19 Décembre 2021

Vote positif 0 Vote négatif

G

GeoffreyAbid

XLDnaute Nouveau

• 20 Décembre 2021

• #51

Ok mais pourrai je avoir une réponse sur le comment supprimer la ligne crée avec le bouton ajout quand je clique sur Annuler svp

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 20 Décembre 2021

• #52

Pour supprimer la ligne LCou d'un ListObject LOt C'est LOt.ListRows(LCou).Delete

 

Vote positif 0 Vote négatif

G

GeoffreyAbid

XLDnaute Nouveau

• 20 Décembre 2021

• #53

Ok merci mais juste je met qu'elle condition pour lui dire si je clique sur le bouton ajout et apres sur annuler alors supprime parce que je souhaite supprimer avec annuler seulement si je clique sur ajout par sur modifier

 

Vote positif 0 Vote négatif

G

GeoffreyAbid

XLDnaute Nouveau

• 20 Décembre 2021

• #54

J'ai une autre demande je souhaite seulement pour le Ref_PC qu'il soit impossible d'avoir un doublon j'ai essayé ce code qui fonctionne mais je n'arrive pas a l'adapté pour qu'il parcours plus d'un seul tableau

Private Sub Ref_PC_Exit(ByVal Cancel As MSForms.ReturnBoolean)

ActiveSheet.Range("A3").Select
Do Until ActiveCell = UCase(Me.Ref_PC) Or ActiveCell = ""
ActiveCell.Offset(1, 0).Select
Loop
If ActiveCell = UCase(Me.Ref_PC.Value) Then
MsgBox "Le code client existe déjà dans le tableau."
Me.Ref_PC = ""
Me.Ref_PC.SetFocus
Exit Sub
End If

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 20 Décembre 2021

• #55

Moi j'avais dit

Dranreb à dit:

Notez que s'il n'est guère destiné à évoluer (comme pouvant traiter plusieurs lignes, à rechercher dans l'UserForm par exemple, mais avec 3 tableaux c'est compliqué) on peut quand même faire un peu plus simple

Cliquez pour agrandir...

Je regrette d'avoir proposé ce qui suivait parce que ça n'arrête pas d'évoluer dans le sens que j'estimai optimal : un UserForm de consultation et mise à jour avec une ou plusieurs ComboBox pour la saisie des éléments d'identification dont la combinaison doit être unique dans la base, et des contrôles associés pour le reste.
Ça implique de très nombreux modules de services mais une programmation hyper simple dans l'UserForm, s'auto ajustant aux ajouts et suppressions de colonnes, sauf à raison d'une seule instruction à ajouter ou supprimer dans la Sub UserForm_Initialize pour chaque colonne concernée.
Vous n'en voulez pas, on en reste là, c'est tout. Mais si je devais retravailler dessus j'aimerais bien que vous renommiez tous vos contrôle avec un trigramme identifiant le type d'objet, pris de cette liste, suivi d'une partie mnémonique commençant toujours par une majuscule :

 

Vote positif 0 Vote négatif