Discussion :

[alebdeb]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !

[kiki29]

Salut, l'utilité de la chose ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[alebdeb]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[kiki29]

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

[alebdeb]

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.

[joe.levrai]

Bonjour,

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?