Modification vba

[Manu62]

Bonjour,

j'utilise cette fonction pour rechercher mes données dans une base, et les envois dans le formulaire. (code de JB alias boisgontier Nb son site "http://boisgontierjacques.free.fr/" et nikel merci bcp...)


Private Sub ComboBox5_Change()
Sheets("Commandes").Select
[B2].Offset(ComboBox5.ListIndex, 0).Select
Me.ComboBox5 = ActiveCell
Me.N°CDEMODIF = ActiveCell.Offset(0, -1)
Me.TextBox47 = ActiveCell.Offset(0, 1)
......
jusque là tout va bien

ensuite, il se peut que j'ai des modifications à faire.... donc j'utilise le code suivant.

Private Sub modifcde_Click()
'--- Positionnement dans la base
[B:B].Find(What:=Me.ComboBox5, LookIn:=xlValues).Select
ActiveCell.Offset(0, -1).Select
'--- Transfert Formulaire dans BD
ActiveCell.Offset(0, 2).Value = CDate(Me.TextBox47)
ActiveCell.Offset(0, 3).Value = Me.ComboBox1
ActiveCell.Offset(0, 4).Value = Me.ComboBox3

jusque la ca va sauf que :

j'ai un moment donner dans mon code adapté cela...
ActiveCell.Offset(0, 19).Value = CDbl(Me.TextBox20)

et lors de la validation, j'ai une erreur.

Pour moi c'est parce que la cellule est vide. mais il se peux qu'elle soit vide.

Peux t'on contourné cette erreure?

Merci bcp

Manu

 

[Excel-lent]

Re : Modification vba

Bonjour Manu62,

Ne connaissant pas ton fichier dans sa globalité et n'ayant pas suivi ton projet depuis le début, difficile de te dire si ton erreur vient bien de là.

Mais si tes suppositions sont juste, ceci pourrais peut-être faire ton affaire.

Remplacer :

ActiveCell.Offset(0, 19).Value = CDbl(Me.TextBox20)

Par :

If CDbl(Me.TextBox20) = "" Then
ActiveCell.Offset(0, 19).Value = ""
Else 
ActiveCell.Offset(0, 19).Value = CDbl(Me.TextBox20)
End If

Bonne après midi

 

[kjin]

Re : Modification vba

Bonjour,

If CDbl(Me.TextBox20) = ""

il y a du bug dans l'air...😉

If TextBox20 <> "" Then ActiveCell.Offset(0, 19).Value = CDbl(TextBox20)

A+
kjin

 

[Manu62]

Re : Modification vba

SAlut Excel-lent, kjin,

merci à vous deux

j'ai choisi donc cette méthode

If TextBox20 <> "" Then ActiveCell.Offset(0, 19).Value = CDbl(TextBox20)

Merci a vous deux.

Manu