Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel d'où vient l'erreur ?

d'où vient l'erreur ?

3 réponses
Avatar
Etienne
Bonjour
j'essaye d'exploiter un code VBA d'un exemple Microsoft issu de Excel 95 ou
Excel 5 qui bogue sous Excel 97.

voici l'extrait qui bloque :

Dim PlageLivres As Object
'efface l' ancienne liste de livres pour une mise à jour de l'inventaire
DialogSheets("MS Ventes") . Dropdowns(1) .RemoveAllItems
'ajoute chaque livre dans la liste
i = 1
For Each MonLivre in PlageLivres

DialogSheets("MS Ventes") . Dropdowns(1).AddItem Strings:=MonLivre.Value,
Index:=i
====>>>erreur 1004

i =i+1
Next

Si vous avez une idée sur ce qui bloque ,merci de me renseigner.
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
Marc [MS]
Bonjour,

Il suffit de changer le "Strings" en "Text". C'est un problème connu du
traducteur Français-Anglais de VBA.

Bonne journée

Marc

"Etienne" a écrit dans le message de
news:
Bonjour
j'essaye d'exploiter un code VBA d'un exemple Microsoft issu de Excel 95
ou

Excel 5 qui bogue sous Excel 97.

voici l'extrait qui bloque :

Dim PlageLivres As Object
'efface l' ancienne liste de livres pour une mise à jour de l'inventaire
DialogSheets("MS Ventes") . Dropdowns(1) .RemoveAllItems
'ajoute chaque livre dans la liste
i = 1
For Each MonLivre in PlageLivres

DialogSheets("MS Ventes") . Dropdowns(1).AddItem Strings:=MonLivre.Value,
Index:=i
====>>>erreur 1004

i =i+1
Next

Si vous avez une idée sur ce qui bloque ,merci de me renseigner.




Avatar
AV
"PlageLivres" étant une plage nommée, je modifierais la partie du code comme
suit :

DialogSheets("MS Ventes").DropDowns(1).RemoveAllItems
i = 1
For Each MonLivre In [PlageLivres]
DialogSheets("MS Ventes").DropDowns(1).AddItem Text:=MonLivre.Value,
Index:=i
i = i + 1
Next

AV

"Etienne" a écrit dans le message news:

Bonjour
j'essaye d'exploiter un code VBA d'un exemple Microsoft issu de Excel 95 ou
Excel 5 qui bogue sous Excel 97.

voici l'extrait qui bloque :

Dim PlageLivres As Object
'efface l' ancienne liste de livres pour une mise à jour de l'inventaire
DialogSheets("MS Ventes") . Dropdowns(1) .RemoveAllItems
'ajoute chaque livre dans la liste
i = 1
For Each MonLivre in PlageLivres

DialogSheets("MS Ventes") . Dropdowns(1).AddItem Strings:=MonLivre.Value,
Index:=i
====>>>erreur 1004

i =i+1
Next

Si vous avez une idée sur ce qui bloque ,merci de me renseigner.




Avatar
Michel Gaboly
Bonsoir,

D'autre part dans ton message, il y a des espaces de part et d'autres des points.
S'ils sont présents dans le code, il est impératif de les retirer.

DialogSheets("MS Ventes").Dropdowns(1).RemoveAllItems

et non

DialogSheets("MS Ventes") . Dropdowns(1) .RemoveAllItems



Bonjour,

Il suffit de changer le "Strings" en "Text". C'est un problème connu du
traducteur Français-Anglais de VBA.

Bonne journée

Marc

"Etienne" a écrit dans le message de
news:
Bonjour
j'essaye d'exploiter un code VBA d'un exemple Microsoft issu de Excel 95
ou

Excel 5 qui bogue sous Excel 97.

voici l'extrait qui bloque :

Dim PlageLivres As Object
'efface l' ancienne liste de livres pour une mise à jour de l'inventaire
DialogSheets("MS Ventes") . Dropdowns(1) .RemoveAllItems
'ajoute chaque livre dans la liste
i = 1
For Each MonLivre in PlageLivres

DialogSheets("MS Ventes") . Dropdowns(1).AddItem Strings:=MonLivre.Value,
Index:=i
====>>>erreur 1004

i =i+1
Next

Si vous avez une idée sur ce qui bloque ,merci de me renseigner.





--
Cordialement,

Michel Gaboly
http://www.gaboly.com