Discussion :

[eric4459]

Bonjour à tous,
Je cherche à savoir comment insérer plusieurs cellules vide à partir d'une cellule donnée, en décalant les données existantes vers la droite.
Pour insérer quatre cellules vides en A1, A2, A3, A4 par exemple j'utilise le code suivant:

Code :

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

Range("A1", "A4").Insert shift:=xlToRight

L'image suivante montre mes cellules d'origine et en dessous ce que je parviens à réaliser. A droite des cellules d'origine, ce que je voudrais réaliser (ici décalage de 2 colonnes, mais cela pourrait être davantage)



Merci pour votre aide et votre collaboration

Eric

[joe.levrai]

Bonjour,

voici pour décaler la cellule A1 4 fois vers la droite

Code :

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

1
2
3
4
5
6
 
Sub oo()
For i = 1 To 4
    Range("A1").Insert shift:=xlToRight
Next i
End Sub

PS : je t'ai pas oublié pour notre petite histoire précédente, je reviens rapidement avec ma nouvelle méthode proposé en mp

[eric4459]

Bonjour Joe,
Des boucles, des boucles toujours des boucles...
Eric

[Philippe Tulliez]

Bonjour,

Des boucles, des boucles toujours des boucles...

Il suffit de demander
Voici un exemple de l'insertion de 12 cellules vides (4 lignes x 3 colonnes) à partir de A1

Code :

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

1
2
3
With ThisWorkbook.Worksheets("Feuil3")
.Range(.Cells(1, 1), .Cells(4, 3)).Insert Shift:=xlToRight
End With

Et paramétrable bien entendu

Code :

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

1
2
3
4
5
6
7
8
9
Sub InsertCellsBlank()
 ' Insertion de 3 lignes et 5 colonnes
 Const NumOfRows As Long = 3, NumOfColumns As Integer = 5
 ' A partir de D2
 Const StartRow As Long = 2, StartColumn As Integer = 4
 With ThisWorkbook.Worksheets("Feuil3")
 .Range(.Cells(StartRow, StartColumn), .Cells(StartRow + NumOfRows - 1, StartColumn + NumOfColumns - 1)).Insert Shift:=xlToRight
 End With
End Sub

[eric4459]

Bonjour Philippe,
Cette solution me convient mieux, merci quand même joe .
Je vais devoir l'adapter pour mon application car je ne connais pas à l'avance le nombre de cellule à décaler.
Je pense à ceci :

Code :

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

1
2
3
 Dim Nbcol As Integer
' Calcul de Nbcol
 .Range(.Cells(i, j), .Cells(i + 4, j + Nbcol)).Insert Shift:=xlToRight

Eric

[Philippe Tulliez]

Bonjour Eric,
D'où ma deuxième proposition paramétrable mais il est évident que l'on peut créer une procédure avec trois arguments en lieu et place des constantes qui n'étaient présentes que pour l'exemple.
Voici la procédure adaptée

Code :

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

1
2
3
4
5
6
7
Sub InsertCellsBlank(Rng As Range, NumOfRows As Long, NumOfColumns As Integer)
 Dim StartRow As Long, StartColumn As Integer
 StartRow = Rng.Row: StartColumn = Rng.Column
 With ThisWorkbook.Worksheets("Feuil3")
 .Range(.Cells(StartRow, StartColumn), .Cells(StartRow + NumOfRows - 1, StartColumn + NumOfColumns - 1)).Insert Shift:=xlToRight
 End With
End Sub

Procédure qui invoque celle-ci en insérant 8 cellules sur 4 lignes et 2 colonnes à partir de la cellule B3 de la feuille nommée Feuil3

Code :

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

1
2
3
4
5
Sub RunInsertCellsBlank()
 Dim sht As Worksheet
 Set sht = ThisWorkbook.Worksheets("Feuil3")
 InsertCellsBlank sht.Range("B3"), 4, 2
End Sub