VBA - Utiliser un titre de colonne dans une macro

[Résolu/Fermé]
Signaler
Messages postés
14
Date d'inscription
mercredi 17 septembre 2014
Statut
Membre
Dernière intervention
11 mars 2015
-
Messages postés
14
Date d'inscription
mercredi 17 septembre 2014
Statut
Membre
Dernière intervention
11 mars 2015
-
Bonjour tout le monde,

J'ai un petit bug sur une macro (novice en VBA).

Je dois insérer une colonne ADR en "L" afin d'y insérer les données comprises dans les colonnes ADR1 en "J" et ADR2 en "K"

Le nombre de lignes d'un fichier à un autre n'étant jamais le même, j'ai compté large et demandé à ce que la formule copiant les données de "K" et "L" aille jusqu'à la ligne 20000

Cependant, je voulais savoir s'il n'était pas plus simple de demander à la macro de trouver la colonne "ADR2", d'y insérer à droite une colonne "ADR" et de procéder à l'insertion des données sur toute la colonne plutôt que d'aller jusqu'à la ligne 20000.

Voici ma macro ci-dessous :

Sub ADR1_ADR2()
'
' ADR1_ADR2 Macro
'

'
Columns("L:L").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("L1").Select
ActiveCell.FormulaR1C1 = "ADR"
Range("L2").Select
ActiveCell.FormulaR1C1 = "=RC[-2]&"" ""&RC[-1]"
Range("L2").Select
Selection.AutoFill Destination:=Range("L2:L20000")
Range("L2:L20000").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End Sub

Merci pour votre aide
Louloute

2 réponses

Messages postés
569
Date d'inscription
lundi 29 juillet 2013
Statut
Membre
Dernière intervention
7 mai 2015
80
Salut,

Voici la ligne de code pour savoir combien de lignes sont remplies dans la colonne "K" :

 n = Range("K" & Rows.Count).End(xlUp).Row


Et la modification à faire quand tu recopie ta formule :

Selection.AutoFill Destination:=Range("L2:L" & n) 
Messages postés
14
Date d'inscription
mercredi 17 septembre 2014
Statut
Membre
Dernière intervention
11 mars 2015

Salut Benol3,

merci ça fonctionne à merveille !!!!
plus j'en apprends sur le VBA, et plus j'aime ça....