Erreur 1004
Résolu
DAN66
-
DAN66 -
DAN66 -
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
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
6 réponses
-
Bonjour,
Qu'elle est la ligne de la macro surlignée ?
Et aussi le message d'erreur...!
-
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
-
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é. -
Bonjour,
Contrôler que vous n'avez pas de cellules fusionnées dans votre plage de donnéesRange("A6:AM" & DerLigne)
-
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
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!
-
Bonjour tt le monde
derlig = Columns("A").Find("*", , , , , xlPrevious).Row
