Macro non compatible en excel 97

[Seb]

Bonsoir à tous;

Je viens vers vous encore une fois car j'ai une partie de ma macro qui sous excel 97 ne marche pas. (je bosse sur excel 2003 mais au boulot sur excel 97).

Le probleme c'est que je suis novice sur 2003 et je comprend rien au 97. Si quelqu'un peut me filler un coup de main...

Voila ma macro: ( c'est un USF avec 3 valeurs à rentrer dans 3 textbox):TextBox2,Textcaprec,Textcanow) et quand je clique sur debug il me mets en jaune "replace"

Private Sub CommandButton4_Click()
Dim vcaprec As Double
Dim vcanow As Double


If Trim(Textcaprec) = "" Then Textcaprec = 0
Me.Textcaprec = Trim(Replace(Me.Textcaprec, ".", ","))
If Not IsNumeric(Textcaprec) Then
MsgBox "Seb: Tous les montants des CA doivent être des Valeurs Numérique."
Textcaprec.SetFocus
Exit Sub
End If
If Trim(Textcanow) = "" Then Textcanow = 0
Me.Textcanow = Trim(Replace(Me.Textcanow, ".", ","))
If Not IsNumeric(Textcanow) Then
MsgBox "Seb: Tous les montants des CA doivent être des Valeurs Numérique."
Textcanow.SetFocus
Exit Sub
End If
If Trim(TextBox2) = "" Then TextBox2 = 0
Me.TextBox2 = Trim(Replace(Me.TextBox2, ".", ","))
If Not IsNumeric(TextBox2) Then
MsgBox "Seb: Tous les montants des CA doivent être des Valeurs Numérique."
TextBox2.SetFocus
Exit Sub
End If
vtextbox2 = (TextBox2)
vtextcaprec = (Textcaprec)
vTextcanow = (Textcanow)
With ActiveCell
.Offset(0, -3).Value = CDbl(vtextcaprec)
.Offset(0, 1).Value = CDbl(vTextcanow)
.Offset(0, 5).Value = CDbl(vtextbox2)
End With
Unload chiffredaffaire
Load Validation_des_Achats
Validation_des_Achats.Show
End Sub


merci encore

seb

 

[Mytå]

Re : Macro non compatible en excel 97

Salut le forum

Séb la fonction replace n'existe pas sous EXCEL 97

Un alternative FONCTION REPLACE POUR OFFICE 97 replace, office, vba, 97 ☼ Code source N°41145 ☼ Visual Basic, VB6, VB.NET, VB 2005

Mytå