Copier coller dans une macro sur des cellules variables

Fermé
Albertine - 29 déc. 2012 à 11:29
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 29 déc. 2012 à 17:31
Bonjour,


J'ai un tabelau excel avec plusieurs colonnes et je devrais ajouter via une macro à gauche du tableau une colonne, inscrire sur la cellule A2 le mot "TEST" et copier ce mot dans la colonne A jusqu'à la dernière ligne avec contenu dans la colonne B.
Aujourd'hui ça peut être la ligne B300 et demain B400; à savoir qu'il n'y a jamais un vide dans la colonne B

Merci de votre aide

gm albertine
A voir également:

2 réponses

Le Pingou Messages postés 12035 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 1 avril 2024 1 425
29 déc. 2012 à 14:51
Bonjour,
Pas besoin de macro ; supposé que votre premier tableau occupe la plage A2 :C50, vous le déplacez d'une colonne et ensuite dans la cellule A2 vous mettez la formule :
=SI(B2<>"";"Test";"")
Ensuite tirer vers le bas jusqu'à la ligne 800 (par exemple)

0
Bonjour,

Merci de votre réponse, mais je dois intégrer la commande dans une macro existante.
Le tableau de l'export peut avoir 300 lignes et lors du prochain export 400 lignes. Le copier coller de la cellule A2 vers le bas se réfère à la colonne B, si mon tableau a 300 lignes, je dois copier de A2 vers A300 et si le tableau a 400 lignes je dois copier de A2 vers A400. Derière cette commande il y a d'autres commandes dans la macros.
0
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
29 déc. 2012 à 17:31
Bonjour

Application.ScreenUpdating = False
Range("A2:A1000").ClearContents
derlig = Columns("B").Find("*", , , , , xlPrevious).Row
Range("A2:A" & derlig) = "test"
0