Erreur 1004, la methode range dans l'objet global a échoué

Dranreb

XLDnaute Barbatruc

• 11 Mai 2020

• #2

Bonjour.
Le nom 'bddata' est défini avec une étendue réduite au niveau de la feuille, et non du classeur.
La méthode Range de l'objet Worksheet quant à elle ne plante pas :
ListeVille = Feuil2.Range("bddata").Value
Remarque: le nom existe aussi au niveau global mais sa clé y est alors préfixée du nom de l'onglet :
ListeVille = Range("BD!bddata").Value

Attention: Ça plante plus loin pour une autre raison …

 

Dernière édition: 11 Mai 2020

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 11 Mai 2020

• #3

Bonjour Menibelus,
Moi il se plante sur :

Je n'ai pas trouvé où était déclaré ni à quoi correspondait [bdd]

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 11 Mai 2020

• #4

Oui, je pense que l'instruction visée ne plante plus non plus si par hasard la feuille BD est la feuille active, de sorte qu'on tombe alors directement sur le problème suivant

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 11 Mai 2020

• #5

Bonjour Menibelus
bdd n'existe pas : a remplacer par bddata

edit Salut Bernard Sylvanu

 

Vote positif 0 Vote négatif

Menibelus

XLDnaute Nouveau

• 11 Mai 2020

• #6

Ok merci, mais cela ne marche pas , j'ai une erreur mémoire insuffisante

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 11 Mai 2020

• #7

Oui, ça fait beaucoup de lignes et de colonnes tout ça !
Ne pourriez vous pas mettre votre plage sous forme de tableau et ne prendre que la partie effectivement utilisée de tout ça (ce sera la propriété DataBodyRange du ListObject qui le représentera) ?

 

Vote positif 0 Vote négatif

Menibelus

XLDnaute Nouveau

• 11 Mai 2020

• #8

Dranreb à dit:

Oui, ça fait beaucoup de lignes et de colonnes tout ça !
Ne pourriez vous pas mettre votre plage sous forme de tableau et ne prendre que la partie effectivement utilisée de tout ça (ce sera la propriété DataBodyRange du ListObject qui le représentera) ?

Cliquez pour agrandir...

Du coup j'ai repris cela à zéro et prenant un exemple de Boisgontier Jacques que j'ai adapté mais là encore je ne comprend pas excel me demande de définir les variable bd, a , b dans le code suivant :

VB:

Private Sub UserForm_Initialize()
  Set f = Sheets("BDdata")
  Set bd = Range("a2:d" & [A65000].End(xlUp).Row)
  a = Application.index(bd, , 1)
  Tri a, 1, 1, UBound(a)
  '--villes +codes postaux
  ListeVille = Range("T_Ville").Value
  Me.ComboVille.List = ListeVille
  b = Application.index([T_Ville], Evaluate("Row(1:" & [T_Ville].Rows.Count & ")"), Array(2, 1))
  Tri b, 1, 1, UBound(b)
  Me.CodePostal.List = b

End Sub

or sur le fichier exemple ces variables ne sont déclarées nul part

Je vous joint mon nouveau classeur, pourriez vous me dire ce que j'ai mal fait ?

Merci

 

Pièces jointes

• 5852020102.xlsb

  355.2 KB · Affichages: 5

Vote positif 0 Vote négatif