Beug sur code modification

Question

Dans le fichier ci-joint j'ai un beug quand je veux faire une modif a partir d'une userform je n'arrive pas à résoudre le problème Merci pour votre aide...

Patty5046 · Accepted Answer

Voici le fichier, je n'ai pas modifié ta programmation, seulement fait des tests...

Patty5046 · Answer

Quel est ce bug , sur quelle ligne. A quel niveau se produit-il ? Je n'en ai pas...

scraper · Answer

Ne faut -il pas simplement ajouter un zéro à gauche avant la conversion CDbl() pour gérer les textbox vides...

Patty5046 · Answer

Je n'ai pas de problème , sauf si je ne renseigne pas le montant HT avant de modifier En informatique , il faut toujours contrôler la cohérence de ce qui est saisi, car lorsque l'on valide avec des informations incohérentes, cela ne peut qu'être faux ou planter. Donc ,au début de "Private Sub CommandButton3_Click()", contrôle ta saisie Bonne fin de journée...

Patty5046 · Answer

Contrôler une saisie signifie que les champs qui ont été saisis doivent être valides. Dans ton cas, un montant doit être servi et numérique, un taux doit être inférieur à 100 et dans ton cas égal à 10, ou 20 selon de quoi il s'agit Private Sub CommandButton3_Click() 'bouton modifier Dim modif As Integer ''''''''Tu mets tes contrôles ICI If Not ComboBox1.Value = "" Then Sheets("Factures").Select modif = ComboBox1.ListIndex + 2 Cells(modif, 1) = TextBox5.Value Cells(modif, 3) = ComboBox1.Value Cells(modif, 2) = TextBox1.Value Cells(modif, 4) = CDbl(Replace(TextBox2.Value, ".", ",")) 'Montant ht Cells(modif, 5) = CDbl(Replace(TextBox3.Value, ".", ",")) 'Montant ttc Cells(modif, 7) = CDbl(Replace(TextBox4.Value, ".", ",")) 'Montant tva Cells(modif, 6) = ComboBox2.Value MsgBox ("Modification effectuer") Else MsgBox ("Veuillez sélectionné le Nom/Prénom de la personne a modifier") Exit Sub End If Unload Saisie Saisie.Show End Sub Tu mets tes contrôles là où je te l'ai indiqué ci-dessus...

Patty5046 · Answer

Que rentres-tu comme valeur dans ton montant HT quand tu as ce problème et quel est le message d'erreur exact ??

D'autre part, tu ne contrôles rien, tu ne fais que remplacer les points par des virgules

Patty5046 · Answer

Je n'ai toujours pas d'erreur La ligne en jaune , c'est certainement parce que tu as mis un point d'arrêt dessus pour debugger Tu supprimes ce point d'arrêt et c'est OK Je te signale que depuis le début je fais bien mes essais avec ton fichier !!...

xorsankukai · Answer

Je confirme que mise à part la faute de grammaire dans le Message de confirmation ( ), pas de problème rencontré non plus. MsgBox ("Modification effectuer") ===&gt; MsgBox ("Modification effectuée") Cordialement...

Patty5046 · Answer

J'avais vu la faute, mais on en voit tellement sur ce site que je laisse tomber ! lol En effet il n'y a pas de bug, je suis d'accord avec toi...

LouReeD · Answer

Ci joint une proposition de modification de fichier... - Il y a les listes de choix dynamique, qui permet de remplir les combobox avec seulement les données existantes (on peut aller plus loin en faisant un tri alphanumérique et suppression des doublons) - Il y a la mise en place de tableau structurés sur les trois feuilles - Il y a la gestion d'ajout de ligne dans des tableaux structurés par VBA - Il y a l'indentation des lignes de codes pour une meilleurs lisibilité - Il y a une boucle d'effacement des données sans avoir à fermer et rouvrir le USF - Il y a le remplacement di bouton formulaire par une forme à laquelle on a affecter une macro, cette macro lance le USF et elle ne fait plus partie de la feuille mais elle se trouve dans un module standard - Il y a ajout de l'instruction CDate pour la copie des données sur la feuille, cela évite d'avoir des inversion entre le mois et le jour - Il y a un test sur un combobox 2 non vide afin que les opérations n'engendre pas d'erreur Le fichier : Lors de l'écriture des différents code il m'a sembler que votre classeur avait un Bug... J'en ai donc créer un autre. le Bug ? lors de la définition des formules pour les listes de choix dynamiques, les formules se "métamorphosées" en quelque chose d'incohérent qui engendrait une erreur... @ bientôt LouReeD...