Sujet Précédent Sujet Suivant

Erreur 1004

Résolu/Fermé
DAN66 - 29 mars 2022 à 15:50
 DAN66 - 30 mars 2022 à 11:34
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

6 réponses

Réponse 1 / 6
Le Pingou Messages postés 12069 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 6 mai 2024 1 431
Modifié le 29 mars 2022 à 16:43
Bonjour,
Qu'elle est la ligne de la macro surlignée ?
Et aussi le message d'erreur...!

0
Réponse 2 / 6
Mike-31 Messages postés 18318 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 26 avril 2024 5 078
29 mars 2022 à 16:47
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
0
DAN66_1956 Messages postés 3 Date d'inscription mardi 29 mars 2022 Statut Membre Dernière intervention 29 mars 2022
29 mars 2022 à 16:56
Merci Micke-31
Non ça ne fonctionne pas.
Mais c'est la dernière ligne qui est surlignée en jaune.
0
Réponse 3 / 6
DAN66_1956 Messages postés 3 Date d'inscription mardi 29 mars 2022 Statut Membre Dernière intervention 29 mars 2022
29 mars 2022 à 16:50
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é.
0
Réponse 4 / 6
Le Pingou Messages postés 12069 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 6 mai 2024 1 431
29 mars 2022 à 17:21
Bonjour,
Contrôler que vous n'avez pas de cellules fusionnées dans votre plage de données 
Range("A6:AM" & DerLigne)
0
DAN66
29 mars 2022 à 17:45
Je viens de RE vérifier,
NON, il n'y en a pas.
Les cellules fusionnée sont au dessus de la cellule A6.
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 6
Le Pingou Messages postés 12069 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 6 mai 2024 1 431
Modifié le 29 mars 2022 à 21:35
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!

0
DAN_1956
Modifié le 30 mars 2022 à 09:42
Merci Le Pingou,
Comment fait-on pour :
Récupérer la valeur de [DerLigne] pour avoir la plage exacte traitée par votre code. ?
Merci.
0
Réponse 6 / 6
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
30 mars 2022 à 11:30
Bonjour tt le monde

derlig = Columns("A").Find("*", , , , , xlPrevious).Row
0
DAN66
30 mars 2022 à 11:34
Merci beaucoup Michel_m.
Par contre je ne peut pas marquer " Résolu"
il n'y a pas de bouton.
0

Discussions similaires

VBA erreur 1004
séverine -
Floroan -

9 réponses
Instagram "Désolé, une erreur s'est produite"
bananamilk -
cedric.masdeb -

60 réponses
MACRO : Problème " Erreur d'exécution '1004' "
Awazagaga -
Awazagaga -

6 réponses
Erreur d'éxecution 1004
Damien -
Leclaudefranc -

14 réponses
Erreur vidéo inconnue sur le Freebox Player
mouhaaV2.0 -
Perejoe59 -

60 réponses