Beug sur code modification

Bonjour

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

7uf-test-copie.xlsm (39.76 Ko)

Bonjour Joco7915

Quel est ce bug , sur quelle ligne.

A quel niveau se produit-il ?

Je n'en ai pas

Bonjour le beug se fait sur la ligne

Cells(modif, 4) = CDbl(Replace(TextBox2.Value, ".", ","))  'Montant ht
Private Sub CommandButton3_Click()
'bouton modifier
Dim modif As Integer
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

Bonjour Joco

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

Bonjour scraper

Je viens de faire un essai ,mais ça ne fonctionne pas

Bonjour Joco, bonjour Scraper

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

Bonjour Patty5046

Pas tout compris peux tu m'expliquer

Donc ,au début de "Private Sub CommandButton3_Click()", contrôle ta saisie

Crdlt

Bonjour

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.

Essai infructueux voir la photo

sans titre

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

Je rentre tout simplement un nombre avec 2 décimales

Il n'y a pas de message uniquement la ligne surlignée en jaune

Fais l'essai avec le fichier ,tu pourras voir par toi m^me ce qui se passe

Bonjour

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 !!!

Peux tu me renvoyer le fichier sur le quel tu fais les essais

pour que je comprenne ce qui se passe

Je te remercie

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

4uf-test-copie.xlsm (35.53 Ko)

Bonsoir à tous,

Je confirme que mise à part la faute de grammaire dans le Message de confirmation (), pas de problème rencontré non plus.

MsgBox ("Modification effectuer") ===> MsgBox ("Modification effectuée")

Cordialement,

Bonsoir xorsankukai

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

Bonsoir j'ai fait quelques modifs dans les codes ,maintenant quand je fais une modif ,elle est effectuée sur les 3 onglets

Merci pour ton aide

Bonsoir,

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 :

4un-essai-lrd.xlsm (35.19 Ko)

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

Rechercher des sujets similaires à "beug code modification"