Discussion :

[Aytorex]

Bonjour,

Premièrement, je débute en VBA,

Je vous explique mon problème simplement : j'ai un énorme tableau excel dans lequel j'ai une ligne en en-tête. J'aimerai décaler cette ligne d'une colonne vers la droite.

Pour ça j'ai réussi à sélectionner ma ligne, puis j'arrive à décaler ma sélection de 1 Colonne vers la droite mais sans les déplacer les valeurs.

Voici mon code pour le moment :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Sub decale()
'
' decale
'
    Dim sht As Worksheet: Set sht = ThisWorkbook.Worksheets("Sales UIL Mois")
    Dim rng As Range: Set rng = sht.Range("A2")
    rng.End(xlToRight).Select
    Selection.End(xlToRight).Select
    Range(Selection, Selection.End(xlToLeft)).Select
    Selection.Offset(0, 1).Select
 
End Sub

Merci par avance pour vos réponses,

Bien cordialement,

Aytorex.

[Patrice740]

Bonjour,

Avec VBA il faut absolument éviter d'utiliser .Select.

Pour décaler la première ligne d'une colonne, simplement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub decale()
Dim rng As Range
  Set rng = ThisWorkbook.Worksheets("Sales UIL Mois").Range("A1")
  rng.Insert Shift:=xlToRight
End Sub

EDIT, ou plus simple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub decale()
  ThisWorkbook.Worksheets("Sales UIL Mois").Range("A1").Insert xlToRight
End Sub

[Menhir]

Si j'ai bien compris, tu veux que ta première ligne soit décalée d'une cellule vers la droite sans que les autres lignes ne bougent ?

Dans ce cas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("A1").Insert(xlShiftToRight)

[Aytorex]

Merci beaucoup pour vos réponse !

Cordialement,

Aytorex.