Salut tout le monde,
tout d'abord très bonne année a vous, j'espère que vous avez passé de bonne fête.
J'ai un petit soucis quand je transfert le code sur le fichier original, il à un tableau en plus ce qui dérègle le code ( copie colle la dernière colonne -3 du mauvais tableau ).
Est-il possible de corrigé ceci? (j'ai essayé en modifiant colonne -3 par colonne -X et le resultat n'est pas propre)
Existe-il une façon de coder en cherchant la colonne "working" sur la ligne 9?
je joints également le code qui fonctionnait.
Sub ajout_colonne()
Dim dercol%, derlig%, tb
With Sheets("F1")
'définit la dernière colonne en fonction de la ligne 10
dercol = .Cells(10, Columns.Count).End(xlToLeft).Column - 3
'définit la dernière ligne en fonction de la colonne A
derlig = .Range("A" & Rows.Count).End(xlUp).Row
'insert 2 colonnes à partir de la dernière colonne +1
.Columns(dercol + 1).Resize(, 2).Insert
'définit le tableau de valeur tb (ligne 9 à la dernière,2 dernières colonnes)
tb = .Range(.Cells(9, dercol - 1), .Cells(derlig, dercol)).Value
'écrit les données à partir de la dernière colonne +1, ligne 9
.Cells(9, dercol + 1).Resize(UBound(tb), 2) = tb
End With
End Sub
merci à vous!!
PS: je n'arrive pas a vous joindre le document, car il est trop lourd, avez vous un mail peut etre?