Erreur 1004 Résolu/Fermé

Question

Bonjour à tous,
Un problème récurent.
J'ai un tableau de plusieurs centaines de lignes.
Lorsque j'insère une ligne, pour des raisons pratiques elle se mets en haut du tableau.
Je la remplie et ensuite, j'effectue un tri croissant. Tout cela avec des boutons affectés d'une macro.
Seulement depuis quelques jours, quand je clique sur Trier, une fenêtre apparaît avec le message :
Erreur d'exécution '1004':
et quand je clique sur Débogage, une autre fenêtre apparaît :
Sub TRIER()
'
' TRIER Macro
'

  Dim DerLigne As Long
  DerLigne = Range("A6", Cells(Rows.Count, 1)).Find("*", , , , xlByRows, xlPrevious).Row
  Range("A6:AM" & DerLigne).Sort [A6], xlAscending, Header:=xlNo
End Sub

Merci de votre aide.
Dan

Configuration: Windows / Firefox 98.0

Le Pingou · Answer

Bonjour,
Qu'elle est la ligne de la macro surlignée  ?
Et aussi le message d'erreur...!

Mike-31 · Answer

Bonjour,

essaye de remplacer cette ligne
DerLigne = Range("A6", Cells(Rows.Count, 1)).Find("*", , , , xlByRows, xlPrevious).Row

par
DerLigne = Range("A" & Rows.Count).End(xlUp).Row

DAN66_1956 · Answer

Bonjour Le Pingou,
La ligne surlignée en jaune est la dernière, juste avent End Sub
le message d'erreur :
Erreur d'exécution '1004':
Cette opération requiert que les cellules fusionnées soient de tailles identiques.
Je comprends pas pourquoi excel me dit ça. Je n'ai pas touché au format des cellules et auparavant il a toujours fonctionné.

Le Pingou · Answer

Bonjour,
Contrôler que vous n'avez pas de cellules fusionnées dans votre plage de données
Range("A6:AM" & DerLigne)

Le Pingou · Answer

Bonjour,
Sans voir le fichier difficile dans faire plus.
Recontrôlez encore une fois, en récupérant la valeur de [DerLigne] pour avoir la plage exacte traitée par votre code...!
Note, essayer de réaliser le tri manuellement pour voir si c'et bon ou pas!

michel_m · Answer

Bonjour tt le monde

derlig = Columns("A").Find("*", , , , , xlPrevious).Row

Erreur 1004

6 réponses

Discussions similaires