VazyFrancko
XLDnaute Nouveau
Bonjour,
Dans le code ci-dessous, on copie-colle les colonnes d'un tableau qui ont pour nom "Entete 2", "Entete 3" et "Entete 5".
Je cherche à l'adapter pour copier-coller les colonnes qui ont pour nom les cellules de B2 à J2 (voire plus). Il faudrait que ce soit dynamique.
Pourriez-vous m'aider svp?
Merci bcp
Dans le code ci-dessous, on copie-colle les colonnes d'un tableau qui ont pour nom "Entete 2", "Entete 3" et "Entete 5".
Je cherche à l'adapter pour copier-coller les colonnes qui ont pour nom les cellules de B2 à J2 (voire plus). Il faudrait que ce soit dynamique.
Pourriez-vous m'aider svp?
Merci bcp
VB:
Sub CopieCol()
Dim i&, j&, a(), Ws As Worksheet
a = Array("Entete 2", "Entete 3", "Entete 5")
Set Ws = Sheets("Obligations")
j = 1
ReDim td(UBound(a))
For i = 0 To UBound(a)
If Not IsError(Application.Match(a(i), Rows(1), 0)) Then
Columns(Application.Match(a(i), Rows(1), 0)).Copy Ws.Columns(j)
j = j + 1
End If
Next
Sheets(Ws.Name).Move After:=Sheets(Sheets.Count)
End Sub
Pièces jointes
Dernière édition: