erreur 1004 méthode défault de l'objet range a échoué

Bonjour à tous,

J'ai un problème assez simple et apparemment récurrent mais je n'ai pas trouvé le solution sur internet..

j'écris:

Code:

---

1 2 3 4 5 6 7

sub test ()   for i=1 to 10 range(i:i).select next   end sub

---

et là apparait le fameux message d'erreur. J'avais déja vu ce message d'erreur et j'avais lu qu'il fallait rajouter ma_feuille.select et ca avait marché mais ici ca ne change rien..

Voila, j'espère que quelqu'un pourra m'aider !:)

Salut, l'utilité de la chose ?

Code:

---

1 2 3 4 5 6 7 8

Option Explicit   Sub Test() Dim i As Long For i = 1 To 10 Feuil1.Range(i & ":" & i).Select Next i End Sub

---

Merci pour votre réponse rapide!

A la base je dois enlever les lignes d'un tableau à 4 colonnes où toutes les cases n'ont pas un contenu identique, j'ai simplifié le code pour exhiber le problème. Pourriez vous m'expliquer ce qui n'allait pas dans mon code?

Pour reprendre ce que je veux faire, voila mon code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Sub recadrage() Dim i As Long   For i = 1 To 10 compt = 1 Sheets("table").Select While (Cells(i, compt) = Cells(i, compt + 1)) compt = compt + 1 Wend   If (Not compt = 4) Then Feuil1.Range(i & ":" & i).Select Selection.Delete Shift:=xlUp i=i-1 End If Next i   End Sub

---

mais le même message d'erreur 1004 apparait cette fois à la ligne "while(cells(i, ..." : la macro marche quand même mais le message apparait.

nota: j'ai renommé ma feuille1 "table" mais le code marche avec feuil1.range n'est ce pas un peu bizarre?


merci encore, je pense pouvoir continuer d'avancer dans tous les cas ;)

Salut, visiblement tu ne connais ce qu'est le CodeName, qui permet de déplacer/renommer les onglets sans toucher au code VBA.

D'accord pour codename, mais pourriez vous m'expliquer l'histoire de l'erreur 1004? Sinon la prochaine fois je ne saurai toujours pas comment faire..

Bonne journée,
alebdeb

Si quelqu'un lit ce message, j'ai toujours besoin d'aide.:(

Bonjour,

Citation:

---

mais le même message d'erreur 1004 apparait cette fois à la ligne "while(cells(i, ..." : la macro marche quand même mais le message apparait.

---

Si on reprend cette partie de ton code

Code:

---

1 2 3 4

compt = 1 While (Cells(i, compt) = Cells(i, compt + 1)) compt = compt + 1 Wend

---

on remarque que tu ne prévois aucune issue de secours dans ta boucle While/Wend

cela signifie que "Tant qu'on a deux cellules contigües horizontalement qui sont identiques : on se décale"
Autrement formulé : "Tant qu'on a pas deux cellules différentes, on se décalera"

Le problème, c'est que si toutes les cellules de la ligne sont identiques (par exemple : une ligne vide !!) ... tu finis par dépasser la dernière colonne de ta feuille

et je pense qu'on comprend ta jolie erreur 1004 ?

Bonjour,

Généralement, quand on cherche à faire des suppressions de lignes, on commence par la fin de plage, ça évite de redéfinir le compteur de bouche "i = i - 1" :

Code:

---

1 2	For I = 10 To 1 Step -1

---

Hervé.

ok merci à tous!:)