Comment résoudre l’ « Erreur 1004 » VBA lié à ShowAllData ?

Lorsque la propriété ShowAllData est utilisée (pour afficher toutes les données d’un tableau filtré), une erreur 1004 peut être généré si aucun filtre n’est appliqué ou si le filtre n’est pas actif.

La solution est de vérifier si un filtre est activé avant de faire appel à showalldata :

With Sheets(« MySheet »)

If .FilterMode Then .ShowAllData

End With

Laissez un commentaire Annuler la réponse

Votre adresse e-mail ne sera pas publiée. Les champs obligatoires sont indiqués avec *

Commentaire * </p><p class="comment-form-author"><label for="author">Nom <span class="required">*</span></label> <input id="author" name="author" type="text" value="" size="30" maxlength="245" autocomplete="name" required=""/></p> <p class="comment-form-email"><label for="email">E-mail <span class="required">*</span></label> <input id="email" name="email" type="email" value="" size="30" maxlength="100" aria-describedby="email-notes" autocomplete="email" required=""/></p> <p class="comment-form-url"><label for="url">Site web</label> <input id="url" name="url" type="url" value="" size="30" maxlength="200" autocomplete="url"/></p> <p class="comment-form-cookies-consent"><input id="wp-comment-cookies-consent" name="wp-comment-cookies-consent" type="checkbox" value="yes"/> <label for="wp-comment-cookies-consent">Enregistrer mon nom, mon e-mail et mon site dans le navigateur pour mon prochain commentaire.</label></p> <label><b>CAPTCHA </b><span class="required">*</span></label> </p><div style="clear:both;"/><div style="clear:both;"/><img src="data:image/png;base64,/9j/4AAQSkZJRgABAQEAYABgAAD//gA+Q1JFQVRPUjogZ2QtanBlZyB2MS4wICh1c2luZyBJSkcgSlBFRyB2NjIpLCBkZWZhdWx0IHF1YWxpdHkK/9sAQwAIBgYHBgUIBwcHCQkICgwUDQwLCwwZEhMPFB0aHx4dGhwcICQuJyAiLCMcHCg3KSwwMTQ0NB8nOT04MjwuMzQy/9sAQwEJCQkMCwwYDQ0YMiEcITIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIy/8AAEQgAKAB4AwEiAAIRAQMRAf/EAB8AAAEFAQEBAQEBAAAAAAAAAAABAgMEBQYHCAkKC//EALUQAAIBAwMCBAMFBQQEAAABfQECAwAEEQUSITFBBhNRYQcicRQygZGhCCNCscEVUtHwJDNicoIJChYXGBkaJSYnKCkqNDU2Nzg5OkNERUZHSElKU1RVVldYWVpjZGVmZ2hpanN0dXZ3eHl6g4SFhoeIiYqSk5SVlpeYmZqio6Slpqeoqaqys7S1tre4ubrCw8TFxsfIycrS09TV1tfY2drh4uPk5ebn6Onq8fLz9PX29/j5+v/EAB8BAAMBAQEBAQEBAQEAAAAAAAABAgMEBQYHCAkKC//EALURAAIBAgQEAwQHBQQEAAECdwABAgMRBAUhMQYSQVEHYXETIjKBCBRCkaGxwQkjM1LwFWJy0QoWJDThJfEXGBkaJicoKSo1Njc4OTpDREVGR0hJSlNUVVZXWFlaY2RlZmdoaWpzdHV2d3h5eoKDhIWGh4iJipKTlJWWl5iZmqKjpKWmp6ipqrKztLW2t7i5usLDxMXGx8jJytLT1NXW19jZ2uLj5OXm5+jp6vLz9PX29/j5+v/aAAwDAQACEQMRAD8A9/oorLu9etbS6eBY5row4+1fZAJntsjKb41Jk+bttU9CTgc00m9gNSmTCVoJBA6JMVIR3QsqtjgkAjIz2yPqKxB4rs72d7TRkfUr5FVpIk+RbfcSB5zN/qyCCCmDIOfkODRNaX91BJca5qKWFnGpd7exnaNVUDJMlwdrkDAbKiPHIbeKfK1uK5iWHjbUhrbaBe6fbXerQLuuYLB5FfGAQyq6+WF+ZcFpgSCOAx8sA8c39lO9pqui3KatKqyQ6VawtcNDFkr50k0ZYNGWABwgZem1uCa2u6osnhWd/B+nWa6fp0c1xHqQ/cwwSRsd3kIozIxBk5GIzkgswLLXj+i+FNX8WWU+tT6ncrdvJ5drLcBnFzKABsabOI2+4q78biwAJwcdUKcJJuWhm5NaI+jtD1m11e1Ji1LTby4j5mFhOJUi3E7VznJ4GNxA3YJwOg1K8nlsb+9+C95N4osre41C0tpDZ3UjR3DGMhSsiyKW68DIOTtB96888P8Aw/k1jwFe+KLTUmgurFpGEOzhhGoY4YHIOCe3aoVGLu3K2th87XQ+lLm7gtPJ+0PsEsgiViDt3H7oJ6DJ4GcZJA6kA59/NLpF6t+ZXbTpm23gkYlbXCnEwP8ACuQqsPujO/5drlvKfDGueKfEHwt1931OzuVtYpYXjvLZjI0PlDdiVXHO3djcrc9Tg8ea6R4ak1HSJ9Wlj1H+z4HZJprO0W48shQwJUyKQuNxLdBgcnPFQw615nsJ1OyPreivJvhxrOg+F7OTTk15LzSbiYvFqMllLaxR3G354nd/lBKBWXnPD5x8ufVoZormCOeCVJYZFDpIjBlZSMggjqCO9c84ODsaRd0PoooqBhRRRQBzU2v67azyWsnhl7q6MBlhFjc7oeDjEksqRqpJxwu9sZJAAGcS6gttant5/GukX5mgbzLewj01p4YuQcmSESbzkFSGZVYAExDgn0Csu71dxdPY6bbfbL5Mb1YtHDFxn95KFYBsEYQAt8ynAUlhpGXZEtdzg9Zv/DXh+xtbvRtfhjuLD5Le0u7hJvspI2kOsiSXMa4Co0ceCOmE+ZhoS6L4k1O7F34ls01PTgqldLtbsRDduDAtCQEc/KmVeZ1BEhBbKgdfYaUtrO15czPdahIu153J2qCQSsaEkRrwvA5O1SxYjdVX/hDvDQ5j0HTYXH3ZYLZI5EPYq6gMrDqCCCDyDVe0X9f0hcrMXxh4itG8Ga3bXsVzptzJYzIsd7FsVnKHaiyjMbsRyFVyevGQQOF8KnWh8Dbs6EqPci7k81XSNlMOBvBEnykY7V6XqHg63u9NurS31PVrb7TC8MjNfSXAZGBBUrMXAz6qA3oRk58BfTvFHhCefw/cRLY/b2KrdNctbxuBwSJA6q64I4fdt3cAFjnaioyjZd7kTundnWaBr+s6h8GtbW+IurK3jayhaOMK9uqxptyB95DnGfvKcE5BJTlvD+q+M5fBtxoGh6TPNp11K4luILR3J3ABk3/dAxjtnnrWroGm+P7PwRq+kW3hwrp1yZGne5hdZ87BwibgxzgAYUjJ69cWPDc/iDwX4WF1qv8AbFho5u9s9mIIYXm3YB2ySOJQ23JwiD7pwynLrvor2tuRrodXoujQ+BPhTqllrd5a2up6lb3MiwSTKGJ8vaI15+cjjpnlselee+AfDHjHX9Pu5PDutNptrFKFcG8khDuRzgIDkgY5OOo68463VvF2h6lBrOl+FrWMWf2F5Ly5WOdJrxtpwzssTMyIWyxlZN7Ngtt3buF8DeMde8OTPZ6Dp6X1xckkQss0pPAJxGjhScLnO3OM84pQU+WT6vuNtXSPZrXwQmnaBZx6vANWENoLW5EYJmgjAOfIlULKU5bdGScqxC4x5bz6X4fufDeq3VtY6ilvNfzySxSXdqs8dwpZn2FgUlMyZP35Gyu5hn5hHp+BdZ13XNCkuvEGm/2feLcNGsPkPFlAqkNhyT1J59ql1jVdL1O1u9Jt3m1G6OY3i00q8tu4PDFydkLqRuUuVO5PlyRiuRyldxZrZWuTf2zqNn/yFNEmVOpn0+T7XGo6AFdqyls9ljYAEHPXEkfinQmSUyapbW7Qrvmiu38iSJcgAukmGQEsuCQM7lx1FZ1rd6/qd0dOvXh0aVYxJuhAkmuFwMum7dHHtYhWX97jdjIBR2zrv4b2+oaijanqd/q1m7PJcR6jKjkE9Fh2ophBYgkoyjCBSpB+WeWP2tB3fQn0rWbjWbuXV9P0u5uZplMNsblHtreG3DEq/mOu5jKMOTGrdIlYDbuJXUWGnw6bA0MD3Lqzbibi5knbOAPvSMxA46Zx+dFS5K+iGkx93bfa7V7fzpoQ+AzwttfGeQG6jIyMjBGcgg4ILS0gsLVLa2TZEmcAkkkk5JJPLMSSSTkkkkkk0UVF+gyeqt/cXNtAptLF7uZ22BBIqKuQfmcseFBxnaGbnhTRRQBnfY9fvubrU4dNQ8iLT4xJIp6YMsqlWU9cCJSDgZ4O6S38M6ZaXtveW0TxXUTEvcFy806lSuyWRsu6jIIBPBROygUUVXMxWNSaNpYJI0leFmUqJEALISOo3AjI68gj2rEPhSzedJJXeferLdST/PNcgkHyy5+7DkFjEoCE4GAu5WKKSbWwWH694btda2TGGzNzHgA3dqLiJwM4DxkjdjcxUggqScHDMrZ8enXlxp0ukRaDbWtqzZl/tOX7XbgjGBBEG+aMFeFJhC5Uhc5UFFNTaVgsRxfDnRHtZ4L6PzorjaZYLZBZwkg5xsh2llB6CRnK44OSSdSz8Nppn2eLTdU1K1soduLPzVmjIHbMqu6rgAYVgABwAcmiim5ye7DlRe1LT/t8cLRy+TdW0nnW0xXcEfay8rkblKsykZBwxwVOGFqEytBGZ0RJioLojllVscgEgZGe+B9BRRU3GPooopAf/9k=" width="100"/><label>Saisissez le texte affiché ci-dessus:</label> <div class="comment-content tc-content-inner"><p>Whaaa merci pour cette fonction magique ! Je me faisais ch*** avec des OnError Goto mais ça ne marchait pas tout le temps ^^</p> <a rel="nofollow" class="comment-reply-link" href="https://www.webanalytix.fr/comment-resoudre-l-erreur-1004-vba-lie-a-showalldata/?replytocom=550157#respond" data-commentid="550157" data-postid="2409" data-belowelement="div-comment-550157" data-respondelement="respond" data-replyto="Répondre à RETRAIN" aria-label="Répondre à RETRAIN">Répondre</a> </div> <a href="https://www.webanalytix.fr/comment-controler-une-machine-virtuelle-avec-bash-linux-pour-planifier-lexecution-de-scripts/">Comment controler une machine virtuelle avec Bash (Linux) pour planifier l’execution de scripts ?</a> <a href="https://www.webanalytix.fr/comment-generer-un-rapport-a-partager-avec-r/">Comment générer un rapport à partager avec R ?</a> <a href="https://www.webanalytix.fr/quelles-sont-les-equivalences-entre-sql-et-r-via-la-librairie-dplyr/">Quelles sont les equivalences entre SQL et R (via la librairie dplyr) ?</a> <a href="https://www.webanalytix.fr/comment-faire-une-fonction-personnalisee-dans-r/">Comment faire une fonction personnalisée dans R ?</a> <aside id="recent-comments-3" class="widget widget_recent_comments"><h5 class="widget-title">Articles – Les derniers commentaires</h5><ul id="recentcomments"><li class="recentcomments"><span class="comment-author-link">webanalytix</span> dans <a href="https://www.webanalytix.fr/comment-declencher-automatiquement-une-macro-vba-lors-du-changement-de-valeur-dune-cellule/comment-page-1/#comment-554989">Comment déclencher automatiquement une macro VBA lors du changement de valeur d’une cellule ?</a></li><li class="recentcomments"><span class="comment-author-link">Moreau Florentin</span> dans <a href="https://www.webanalytix.fr/comment-declencher-automatiquement-une-macro-vba-lors-du-changement-de-valeur-dune-cellule/comment-page-1/#comment-554988">Comment déclencher automatiquement une macro VBA lors du changement de valeur d’une cellule ?</a></li><li class="recentcomments"><span class="comment-author-link">milielie</span> dans <a href="https://www.webanalytix.fr/comment-figer-plusieurs-lignes-etou-colonnes-dans-excel/comment-page-1/#comment-554493">Comment figer plusieurs lignes et/ou colonnes dans Excel ?</a></li><li class="recentcomments"><span class="comment-author-link"><a href="http://ninoudum.fr" class="url" rel="ugc external nofollow">DUMONT Nicolas</a></span> dans <a href="https://www.webanalytix.fr/comment-verifier-quune-variable-js-nest-pas-undefined-null-ou-vide/comment-page-1/#comment-554292">Comment verifier qu’une variable JS n’est pas undefined, null ou vide ?</a></li><li class="recentcomments"><span class="comment-author-link">webanalytix</span> dans <a href="https://www.webanalytix.fr/comment-filtrer-les-jours-de-la-semaine-dans-excel/comment-page-1/#comment-552616">Comment filtrer les jours de la semaine dans Excel ?</a></li></ul></aside> </div> <aside id="search-4" class="widget widget_search"><h5 class="widget-title">Vous cherchez un article sur un thème particulier ?</h5><div class="search-form__container "> <span class="screen-reader-text">Rechercher</span> <button type="submit" class="button"><i class="icn-search"/><span class="screen-reader-text">Rechercher …</span></button> </div></aside><aside id="block-3" class="widget widget_block"><h3 class="widget-title"> Politique de respect de la vie privée </h3> <a href="https://www.webanalytix.fr/politique-de-respect-de-la-vie-privee/"> Voir la page de Politique de respect de la vie privée </a>