[XL-2010] erreur '1004' vba Excel

1 pièce(s) jointe(s)

erreur '1004' vba Excel

"Bonjour"
C'est encore une erreur '1004' : La méthode 'Range' de l'objet'_Global' a échoué. J'ai tourné en rond sur cette erreur :arf: . J'ai déjà commencer regardé plusieurs cas précédent donc je me dis que cela doit être spécifique à mon code.

Je voudrait recopier certaine cellule d'un classeur que j'ouvre vers mon classeur principal.
je vous pris d’être indulgent je commence à penne et mon code est surement très brouillon :oops:

Le classeur de données est le PA-Test :D

Je ne c'est plus mais il y a peut etre un MDP : ytmh52 sur la visu de macro

"Merci"

Bonjour,

Et si tu inscrivais le bout de code qui cause l'erreur en spécifiant sur quelle ligne elle survient, ça éviterait de devoir ouvrir un fichier avec macros sans savoir ce qu'elles font...

Bonjour,

Si je puis me permettre et sans vouloir t'offenser, ton code pique un peu les yeux... :P
Voici quelques conseils:
- Il faut indenter si tu veux que ce soit lisible (i.e introduire des tabulations à chaque fois que tu rentres dans un While, un If, etc).
- Utilise des noms de paramètres plus explicites (h, x, y, z... :weird:).
- Evite les select.
- Liste = Liste ne sert à rien.

Enfin, copie ton code avec les balises [CODE] plutôt qu'une copie d'écran et précise exactement ton besoin car ton code est peu lisible.

Salut.

Pour bien commencer : http://www.developpez.net/forums/d84...s-discussions/

En début de boucle, tu écris Plage = Liste
Mais Liste n'est pas initialisée.
Elle est déclarée (Dim) mais aucune valeur ne lui a été donnée...

peut-être que tu as déclaré un autre Liste en Public, alors il y a conflit entre les deux...

Aussi

Citation:

Liste = Plage & z

Est-ce que ce ne serait pas plutôt

Code:

Liste = Liste & Plage & z

Bonjour,

Juste par précaution, tu devrais préciser à quelle feuille appartient ton "range", c'est bête, mais on y pense pas assez, et beaucoup d'erreur viennent de là :
Par défaut, si tu ne le précise pas, ton range est attaché à "ActiveSheet", qui n'est pas forcément la feuille sur laquelle tu veux travailler. Il faut plutôt écrire

Code:

worksheets("maFeuille").range(...)

Précision

Déjà merci pour tous les conseils que j'ai déjà commencer à mettre en place !!

Bon alors comme je ne suivais pas trop les règle du forum je vais essayé de les suivre maintenant.

Donc pour faire simple j'ai un classeur Maître ou il y a la macro. Depuis celui là je vais ouvrir un autre classeur pour récupérer des données

Les données sont dans la colonne A de la feuille "positionnement-étude", je choisi certaines données par rapport au remplissage de la colonne L
Et pour finir je copie colle les donné dans le Classeur Maître.

Mon problème se situ au niveau de la sélection des données. J'ai fait des test et en faite la fonction Range ne peux avoir que 65 adresse de cellule.
et je sais pas quoi utiliser d'autre.
En espérant que tous ça soit plus en acore avec les règle de Développez. :)

PS: ne pas utiliser ".select" mais quoi Alors ? Désolé pour ces questions qui peuvent vous paraître évidente mais j'ai commencé depuis deux semaines seulement

Merci encore pour tous le temps que vous y consacrez
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 Dim Classeur_PA As Workbook Dim Classeur_Nom As String Dim CodeInsee As String Dim inseeNLettre As String Dim inseeNum As String Dim inseeNumTemp As String ' Réstriction du genre et nom du fichier Set fd = Application.FileDialog(msoFileDialogFilePicker) With fd .Filters.Add "*", "*.xls" .Title = "*" .InitialFileName = "PA-*.xls" End With If fd.Show = -1 Then Nom_Fichier2 = fd.SelectedItems(1) Set fd = Nothing ' Ouverture du classeur base de donnée et de la feuille Workbooks.Open Filename:=Nom_Fichier2 Set Classeur_PA = ActiveWorkbook Classeur_Nom = ActiveWorkbook.Name Sheets("positionnement-etude").Select Dim LigneD As Integer Dim XYcellule As String Dim Liste As String Dim Imb As Range LigneD = 5 z = "" XYcéllule = "" ' création de la liste des valeurs à récupérer et en faire une liste While Not IsEmpty(Cells(LigneD, 1)) If Cells(LigneD, 12).Value <> "" Then XYcellule = Cells(LigneD, 1).Address(0, 0) & "," Liste = Liste & XYcellule LigneD = LigneD + 1 Else LigneD = LigneD + 1 End If Wend Liste = Left(Liste, Len(Liste) - 1) ' Séléction de toute les valeurs à récupérer Sheets("positionnement-etude").Range(Liste).Activate ' Copie des valeurs Selection.Copy Application.DisplayAlerts = False

Pour les Select, que veux tu faire avec ? Exemple simple :
Code:

1 2 3 4 5 Worksheets("Feuil1").Select Selection.range("A1") = "toto" 'se transforme en Worksheets("Feuil1").range("A1") = "toto"
Plus de select !

Mais quelle est cette sombre histoire de range avec 65 adresse de cellule ?

Quelques remarques en vrac :
- En VBA, on déclare toutes les variables en tête de module, c'est pas du javascript ici !
- Lorsque l'on travail avec deux classeurs, autant déclarer deux variables Workbook, et les assigner au deux classeurs, afin de ne pas se perdre
- Il est inutile de faire des copy/paste (bouffeur de mémoire maximum après la maladie d’Alzheimer), quand de simples égalités suffisent

Tu construit les arguments à mettre dans Range par une boucle, mais il y a une limite à ne pas dépasser dans l'écriture Range(x1,x2.....) : 66 arguments pour XL 2010

Pour pallier à ça, utilise une variable Range avec Union

Exemple
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Dim c As Range, v As Range For Each c In Feuil1.Range("A1:A1000") If c > 10 Then If v Is Nothing Then Set v = c Else Set v = Union(c, v) End If End If Next c If Not v Is Nothing Then MsgBox v.Address

Merci "mercatog" je connaissais pas Union. sa ma débloqué et merci aussi "Nico chg" j'ai épuré et rendu moins lourd mon code et oui j'ai fais du C++ et java avant :lol: