Copier coller dans une macro sur des cellules variables

Albertine -  
michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   -
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 12714 Date d'inscription   Statut Contributeur Dernière intervention   1 467
 
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
Albertine
 
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 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 318
 
Bonjour

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