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 4101 france tv - Forum Lecteurs et supports vidéo
- Erreur 0x80070643 - Accueil - Windows
- Corriger l'erreur 0x80070643 de la mise à jour KB5034441 de Windows 10 - Accueil - Windows
- Erreur upes 1025 - Forum Téléviseurs
- Instagram connexion impossible erreur inattendue ✓ - Forum Instagram
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
