Microsoft 365 plantage macro retour en arrière

FCMLE44 · 11 Décembre 2020

Bonjour

Cette macro débogue lorsque nous effectuons l'action suivante dans un fichier

"Si faute de frappe et retour arrière pour effacer"

Voici le code :

VB:

Private Sub TextBox15_Change()
Range("K2").Value = Format(CCur(Prépacourriers.TextBox15.Value), "### ##0.00 €")
End Sub

Que pourrais y rajouter pour éviter l'anomalie ?

Merci

sousou · 22 Décembre 2020

en utilisant le même principe
voici le code à affecter à ton bouton, il efface le userform et les données de la feuille courriers
Sub raz()
With Sheets("courriers")
For n = 1 To UBound(mescontrols)
.Range(mesranges(n)).Value = ""
Me.Controls(mescontrols(n)) = ""
Next
End With
End Sub

sousou · 22 Décembre 2020

Re
Voici une solution qui si tu sorts de ton userform, il récupère les données de la feuille courriers.
A l'initialisation, on initialise deux table (mescontrols, mesranges) qui décrivent les relations entre feuille et user.
La procédure recup va récupèrer les valeurs de la feuille courrier dans le user. ( avérifier qu'il n'y ai pas d'erreur dans les deux tables)
J'ai pour faciliter la compréhension renommer ton userform en ....ancien et recréer un nouveau user ou j'ai renommer les controls pour une meilleur lisibilité.(pas obligatoire).
J'ai utilisé ici la première version de ton fichier si des fois tu avais fait des modifs
A suivre

FCMLE44 · 22 Décembre 2020

Ca marche
Est il possible de rajouter un bouton effacer a coté du bouton apercu qui efface chaque données du userform
Au cas où
Merci

sousou · 22 Décembre 2020

en utilisant le même principe
voici le code à affecter à ton bouton, il efface le userform et les données de la feuille courriers
Sub raz()
With Sheets("courriers")
For n = 1 To UBound(mescontrols)
.Range(mesranges(n)).Value = ""
Me.Controls(mescontrols(n)) = ""
Next
End With
End Sub

FCMLE44 · 23 Décembre 2020

sousou à dit:
en utilisant le même principe
voici le code à affecter à ton bouton, il efface le userform et les données de la feuille courriers
Sub raz()
With Sheets("courriers")
For n = 1 To UBound(mescontrols)
.Range(mesranges(n)).Value = ""
Me.Controls(mescontrols(n)) = ""
Next
End With
End Sub

Salut
Merci
@+

Microsoft 365 plantage macro retour en arrière

FCMLE44

XLDnaute Impliqué

sousou

sousou

XLDnaute Barbatruc

Pièces jointes

FCMLE44

XLDnaute Impliqué

sousou

XLDnaute Barbatruc

FCMLE44

XLDnaute Impliqué

Discussions similaires