Macro: copier colonne jusqu'à dernière cellule non vide

Fermé

Dylan68700 Messages postés 17 Date d'inscription vendredi 20 septembre 2013 Statut Membre Dernière intervention 29 janvier 2014 - 29 janv. 2014 à 13:33
Dylan68700 Messages postés 17 Date d'inscription vendredi 20 septembre 2013 Statut Membre Dernière intervention 29 janvier 2014 - 29 janv. 2014 à 15:11

Bonjour,

j'ai mis en place une macro qui, a un moment, est censée me copier toute une colonne jusqu'à la dernière cellule non vide pour me la coller dans une autre feuille.
J'avais trouvé un code par défaut que j'ai bêtement copié sans le comprendre, et ça fonctionne.

Malheureusement, voulant le faire pour un autre classeur, ça ne fonctionne pas et le message d'erreur est le suivant: "Erreur de compilation: Variable non définie".

Voici le code (l'erreur se trouve dans la partie en gras, le reste est juste là pour situer le contexte):

Sheets("CONTRATS 2014").Activate
ActiveSheet.Range("$A$1:$AJ$1").AutoFilter Field:=16, Criteria1:="210,00 €"

D_L_C = Range("A" & Rows.Count).End(xlUp).Row
Range("A1:A" & D_L_C).Copy (Sheets("LISTE 2014 pour COMPTA").Range("A10"))

Est-ce que quelqu'un qui comprend pourrait m'expliquer le problème svp ?
Qu'est-ce que le D_L_C par exemple ? Le problème est à ce niveau là.

Merci par avance,

A voir également:

Macro: copier colonne jusqu'à dernière cellule non vide
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Macro word - Guide
Jitbit macro recorder - Télécharger - Confidentialité
Macro logiciel - Télécharger - Organisation
Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur

3 réponses

Réponse 1 / 3

f894009 Messages postés 17241 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 février 2025 1 713
29 janv. 2014 à 14:24

Bonjour,

il ne peut y avoir qu'une ligne en erreur, pas les deux a la fois. Alors, laquelle est-ce ???

Réponse 2 / 3

Dylan68700 Messages postés 17 Date d'inscription vendredi 20 septembre 2013 Statut Membre Dernière intervention 29 janvier 2014
29 janv. 2014 à 14:34

C'est la première, le débogeur me surligne "D_L_C"

Réponse 3 / 3

f894009 Messages postés 17241 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 février 2025 1 713
29 janv. 2014 à 14:42

Re,

si Option explicit a ete ecrit en haut de la page de code, c'est que cette variable n'a pas ete declaree ex: dim D_L_C as Integer

Dylan68700 Messages postés 17 Date d'inscription vendredi 20 septembre 2013 Statut Membre Dernière intervention 29 janvier 2014
Modifié par Dylan68700 le 29/01/2014 à 15:09

Oui exact, Merci !
Je n'avais même pas précisé et tu as trouvé, génie :)

Par contre, j'ai maintenant un pb avec la ligne d'en-dessous:

Je précise bien
Sheets("CONTRATS 2014").Activate

puis vient ce fameux D_L_C
D_L_C = Range("A" & Rows.Count).End(xlUp).Row

Et enfin:
Range("A1:A" & D_L_C).Copy (Sheets("DPI 2014").Range("A12"))

Sauf qu'au lieu de me coller la colonne A de "CONTRATS 2014" dans la celulle A12 de "DPI 2014", ça me colle la colonne A de "DPI 2014" dans la celulle A12 de "DPI 2014" ...

Any idea ?

Est-ce le "Option Explicit" qui fait changer les choses ?!

f894009 Messages postés 17241 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 février 2025 1 713
Modifié par f894009 le 29/01/2014 à 15:08

Re,
lequel ????? Parce que le nom de l'onglet a change etre temps !!!!!!!

Dylan68700 Messages postés 17 Date d'inscription vendredi 20 septembre 2013 Statut Membre Dernière intervention 29 janvier 2014
29 janv. 2014 à 15:11

Ah oui mince, "LISTE COMPTA 2014" est devenu "DPI 2014"

Discussions similaires

recup couleur de cellule sans macro

Transformer un chiffre en lettres dans excel sans macro

Copie automatique tableau Excel sans macro

tri automatque sur excel sans créer de macro