Problème avec une vielle macro Excell

Recherche :

Dernière réponse
Sujet : Problème avec une vielle macro Excell
the_white_rabbit	J'ai eu exactement le même problème cette semaine... En fait il s'agit d'un bug de conversion de macros et des contrôles... En fait vérifie bien que les noms de tes champs EditBoxes correspondent bien à ceux que tu appel dans ta fonction... En tout cas, moi, c'est comme ça que j'ai pu résoudre le problème...

Votre réponse

Nom d'utilisateur

Pour poster, vous devez être inscrit sur ce forum .... si ce n'est pas le cas, cliquez ici !

Le ton de votre message

Votre réponse

Smilies

Liste des smilies perso
Wiki smilies
Chercher un smiley

Options

Activer votre signature
Désactiver les smilies
Activer la notification par email du sujet

Aperçu

Vous avez perdu votre mot de passe ?

Vue Rapide de la discussion

the_white_rabbit

J'ai eu exactement le même problème cette semaine... En fait il s'agit d'un bug de conversion de macros et des contrôles...
En fait vérifie bien que les noms de tes champs EditBoxes correspondent bien à ceux que tu appel dans ta fonction...

En tout cas, moi, c'est comme ça que j'ai pu résoudre le problème...

Carbon_14

J'avais écrit des macros sous Word 2, il m'a fallu tout réécrire sous Word 2000, tout avait changé....

Je suis pas spécialiste du tout, mais dans l'aide de EXCEL 2000, il y a InputBox qui remplacerait peut-être "mieux" EditBoxes.

Un spécialiste (pas trop jeune !) va peut-être passer par là.

typhon_920

N'étant pas du tout expert des macros Excell (ni d'excell tout court d'ailleurs), on m'a demandé de faire tourner une macro datant de 1994 (excell 2.0) sous Excell 2000 ou XP. Dans les deux cas j'ai le même problème :

Lorsque je rentre dans une EditBoxes et que j'efface la valeur déjà présente dedans, j'ai le messaghe suivant :

"Erreur 1004
Impossible de lire la propriété EditBoxes de la classe DialogSheet"

voici le code :

Sub Macro11_QuandChangement()
Sheets("Dén.UNDA" ).Range("C2" ).Value = DialogSheets("Dialog3" ) _
.EditBoxes("modification 7" ).Text
DialogSheets("Dialog3" ).EditBoxes("modification 11" ).Text _
= Sheets("Dén.UNDA" ).Range("D2" ).Value
End Sub

Qq'un pourrais m'aider?

Merci d'avance.