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
A voir également:
- Erreur 1004
- Erreur 0x80070643 - Accueil - Windows
- J'aime par erreur facebook notification - Forum Facebook
- Code erreur f3500-31 ✓ - Forum Bbox Bouygues
- Java code erreur 1603 ✓ - Forum Windows
- Comment recuperer whatsapp supprimé par erreur - Guide
6 réponses
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
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é.
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ées
Contrôler que vous n'avez pas de cellules fusionnées dans votre plage de données
Range("A6:AM" & DerLigne)
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
