Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Erreur sur macro

Erreur sur macro

3 réponses
Avatar
Fred C.
J'utilise cette macro a partir d'un userform sur Excel2003 cela marche
bien mais avec excel97 après l'exécution je ne peux pas enregistrer car
j'ai un message erreur excel et excel sur ferme brutalement....

Je cherche de l'aide car je ne comprend pas

Private Sub CommandButton1_Click()
Sheets("bilan").Select
sauve = ActiveCell.Address
x = Range("E2").Value + 4
y = Selection.Offset(-1, 0).Value
If y <> "" Then
Sheets("Modele").Select
Cells(x, y).Value = Val(TextBox1.Text)
Sheets("bilan").Select
Range(sauve).Select
UserForm1.Hide
End If
End Sub

Merci d'avance....

Frédéric
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Fred C.
bonjour,

personne pour résoudre mon cas ????

Frédéric,













J'utilise cette macro a partir d'un userform sur Excel2003 cela marche
bien mais avec excel97 après l'exécution je ne peux pas enregistrer car
j'ai un message erreur excel et excel sur ferme brutalement....

Je cherche de l'aide car je ne comprend pas

Private Sub CommandButton1_Click()
Sheets("bilan").Select
sauve = ActiveCell.Address
x = Range("E2").Value + 4
y = Selection.Offset(-1, 0).Value
If y <> "" Then
Sheets("Modele").Select
Cells(x, y).Value = Val(TextBox1.Text)
Sheets("bilan").Select
Range(sauve).Select
UserForm1.Hide
End If
End Sub

Merci d'avance....

Frédéric


Avatar
Daniel
Bonjour.
Est-ce que tu as la possibilité de l'essayer sur un autre ordi ayant XL97 ?
Daniel
"Fred C." a écrit dans le message de news:
eacsmr$qme$
bonjour,

personne pour résoudre mon cas ????

Frédéric,













J'utilise cette macro a partir d'un userform sur Excel2003 cela marche
bien mais avec excel97 après l'exécution je ne peux pas enregistrer car
j'ai un message erreur excel et excel sur ferme brutalement....

Je cherche de l'aide car je ne comprend pas

Private Sub CommandButton1_Click()
Sheets("bilan").Select
sauve = ActiveCell.Address
x = Range("E2").Value + 4
y = Selection.Offset(-1, 0).Value
If y <> "" Then
Sheets("Modele").Select
Cells(x, y).Value = Val(TextBox1.Text)
Sheets("bilan").Select
Range(sauve).Select
UserForm1.Hide
End If
End Sub

Merci d'avance....

Frédéric




Avatar
Fred C.
Merci,
il est vrai que je n'ai pas essayé sur un autre PC avec XL97 ,....

J'essaie demain

Fred






Bonjour.
Est-ce que tu as la possibilité de l'essayer sur un autre ordi ayant XL97 ?
Daniel
"Fred C." a écrit dans le message de news:
eacsmr$qme$
bonjour,

personne pour résoudre mon cas ????

Frédéric,













J'utilise cette macro a partir d'un userform sur Excel2003 cela marche
bien mais avec excel97 après l'exécution je ne peux pas enregistrer car
j'ai un message erreur excel et excel sur ferme brutalement....

Je cherche de l'aide car je ne comprend pas

Private Sub CommandButton1_Click()
Sheets("bilan").Select
sauve = ActiveCell.Address
x = Range("E2").Value + 4
y = Selection.Offset(-1, 0).Value
If y <> "" Then
Sheets("Modele").Select
Cells(x, y).Value = Val(TextBox1.Text)
Sheets("bilan").Select
Range(sauve).Select
UserForm1.Hide
End If
End Sub

Merci d'avance....

Frédéric