Insertion Colonnes

Bonjour à tous,

Je suis débutant sur vba et je suis en train de créer une macro pour mon boulot. La première partie de la macro fonctionne, elle récupéré les données en colonnes et les copie colle en ligne sur une autre feuille. Le problème que j'ai c'est que je souhaiterais inséré deux cellules blanche ou deux colonnes entre les données retranscrit en ligne, tout en sachant que le nombre de données peut changer.

Merci de vos réponses.

Bonne journée

Bonjour,

à tester,

Sub Test()
c = Cells(1, Columns.Count).End(xlToLeft).Column

For i = c To 2 Step -1
    Columns(i).Insert Shift:=xlToRight
Next i
End Sub

Merci de votre réponse, mais j'ai trouvé ceci qui fonctionne

Sub InsCell() 'decalage de 3 cellules Sheets("Datas").Select Dim a As Integer a = Cells(1, Columns.Count).End(xlToLeft).Column * 4 For i = 2 To a Columns(i).Select Selection.Insert Shift = x1Right Selection.Insert Shift = x1Right Selection.Insert Shift = x1Right i = i + 3 Next i End Sub

Merci de votre réponse, mais j'ai trouvé ceci qui fonctionne

Merci pour ce retour, au plaisir!

si le problème est résolu, s.v.p. clôture le fil, par un clic sur le bouton

resolu
Rechercher des sujets similaires à "insertion colonnes"