Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Erreur d'éxécution 13

Erreur d'éxécution 13

2 réponses
Avatar
Jean-Paul V
Bonjour à tous

J'ai une macro qui se plante sur un micro et pas sur un autre ( alors que
les 2 micros ont la même version Excel 2003 SP2 sur serveur)
Elle se plante sur l'instruction :
ActiveCell.Value = CDate(InputBox("", "ECHEANCE"))
Lorsque l'on fait entrée sans rien saisir afin de la stopper
Erreur 13 Incompatibilité de Type
Dim deBut As Label
On Error Resume Next

deBut:

ActiveCell.Value = CDate(InputBox("", "ECHEANCE"))
ActiveCell.HorizontalAlignment = xlCenter
If ActiveCell.Value = "" Then
Range("B13").Select
Exit Sub
End If
...

GoTo deBut

Peut-on mettre autre chose pour que cela ne se plante pas?
@+ j'espère
Signaler un problème avec ce contenu

2 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
MichDenis
Inverse l'ordre des commandes comme ceci :

Dim deBut As Label
On Error Resume Next

ActiveCell.Value = CDate(InputBox("", "ECHEANCE"))





"Jean-Paul V" a écrit dans le message de news:

Bonjour à tous

J'ai une macro qui se plante sur un micro et pas sur un autre ( alors que
les 2 micros ont la même version Excel 2003 SP2 sur serveur)
Elle se plante sur l'instruction :
ActiveCell.Value = CDate(InputBox("", "ECHEANCE"))
Lorsque l'on fait entrée sans rien saisir afin de la stopper
Erreur 13 Incompatibilité de Type
Dim deBut As Label
On Error Resume Next

deBut:

ActiveCell.Value = CDate(InputBox("", "ECHEANCE"))
ActiveCell.HorizontalAlignment = xlCenter
If ActiveCell.Value = "" Then
Range("B13").Select
Exit Sub
End If
...

GoTo deBut

Peut-on mettre autre chose pour que cela ne se plante pas?
@+ j'espère
Avatar
Jean-Paul V
Bonjour

J'ai bien pensé à cette solution, j'ai essayé ça marche pas ! ! !
Pour info cette personne n'avait aucun problème depuis plus d'un an, nous
avons je suppose le même Excel puisque nous sommes sur serveur, moi j'ai
aucun PB et ma colègue de bureau avec le même fichier( je lui ai redonné mon
fichier pour être sûr que c'est le même et la macro se plante...mystère...

@+ j'espère


Inverse l'ordre des commandes comme ceci :

Dim deBut As Label
On Error Resume Next

ActiveCell.Value = CDate(InputBox("", "ECHEANCE"))





"Jean-Paul V" a écrit dans le message de news:

Bonjour à tous

J'ai une macro qui se plante sur un micro et pas sur un autre ( alors que
les 2 micros ont la même version Excel 2003 SP2 sur serveur)
Elle se plante sur l'instruction :
ActiveCell.Value = CDate(InputBox("", "ECHEANCE"))
Lorsque l'on fait entrée sans rien saisir afin de la stopper
Erreur 13 Incompatibilité de Type
Dim deBut As Label
On Error Resume Next

deBut:

ActiveCell.Value = CDate(InputBox("", "ECHEANCE"))
ActiveCell.HorizontalAlignment = xlCenter
If ActiveCell.Value = "" Then
Range("B13").Select
Exit Sub
End If
....

GoTo deBut

Peut-on mettre autre chose pour que cela ne se plante pas?
@+ j'espère