Sujet Précédent Sujet Suivant

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:

3 réponses

Réponse 1 / 3
f894009 Messages postés 17187 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 1 mai 2024 1 704
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 ???
0
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"
0
Réponse 3 / 3
f894009 Messages postés 17187 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 1 mai 2024 1 704
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
0
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 ?!
0
f894009 Messages postés 17187 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 1 mai 2024 1 704
Modifié par f894009 le 29/01/2014 à 15:08
Re,
lequel ????? Parce que le nom de l'onglet a change etre temps !!!!!!!
0
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"
0

Discussions similaires

faire une boucle sans VBA
lucky-luccio -
lucky-luccio -

3 réponses
Transformer un chiffre en lettres dans excel sans macro
vincentphilippos -
tontong -

6 réponses
Copie automatique tableau Excel sans macro
sodwac -
sodwac -

5 réponses
recup couleur de cellule sans macro
magouero -
JvDo -

7 réponses
Lien de téléchargement de nbLettre.xla
JBKOFFI -
eriiic -

1 réponse