VBA insertion plage dans un tableau

bonjour,

dans le fichier joint, comment par vba, inserer la colonne (d6;d35) dans le tableau (e6;s35), avec comme condition:

colonne où doit être inserée notée en a5 + décallage des autres données vers la droite tout en en travaillant uniquement que dans cette zone, des données étant autour de ce tableau et ne pouvant être déplacées

Bonjour,

A tester :

Sub insérer()
    Application.ScreenUpdating = False
    Range("D6:D35").Copy
    Cells(6, [A5]).Offset(, 4).Insert Shift:=xlToRight
    Range("T6:T35").Delete Shift:=xlToLeft
    Application.CutCopyMode = False
End Sub

A+

Merci, exactement ce que je cherchais, mais cela pose un problème si la 1ère ligne est du texte: le texte est remplacé par une valeur numérique lors de la copie

Normal puisque la cellule D6 contient la formule =A8.

La copie en H6 va se traduire par =E8

A+

re,

tu sais si l'on peu faire une copie uniquement de la valeur ? , sans la formule, que ce soit du texte ou du chiffre ?

Essaie avec :

Sub insérer()
    Application.ScreenUpdating = False
    Cells(6, [A5]).Offset(, 4).Resize(30).Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("D6:D35").Copy
    Cells(6, [A5]).Offset(, 4).PasteSpecial Paste:=xlPasteValues
    Range("T6:T35").Delete Shift:=xlToLeft
    Application.CutCopyMode = False
End Sub

A+

extra , merci

bon week end