J'ai une feuille qui comporte deux tableaux, qui se situent l'un en dessous de l'autre. Entre les deux je voudrais insérer un tableau de taille variable.
Pour y parvenir je pensais insérer n lignes, n correspondant au nombres de lignes de mon tableau que je vais copier après.
Bonjour vinc24, Davidc57,
On peut aussi faire sans boucle ni select :
Code:
[COLOR=blue]Sub[/COLOR] test()
n = 3
Rows(10).Resize(n).Insert Shift:=xlDown
[COLOR=blue]End Sub[/COLOR]
Cordialement
EDIT:
Une version "complète". Dans l'exemple le code est dans le bouton (Click droit sur l'onglet / Visualiser le code)
Code:
[COLOR=blue]Sub[/COLOR] test2()
[COLOR=green]'Avec la feuille2 (feuille du tableau à copier)[/COLOR]
[COLOR=blue]With[/COLOR] Sheets("Feuil2")
[COLOR=green]'On cherche la dernière ligne du tableau en partant du bas[/COLOR]
Derligne = .Cells(Rows.Count, 1).End(xlUp).Row
[COLOR=green]'On copy la zone du tableau[/COLOR]
.Rows("1:" & Derligne).Copy
[COLOR=green]'On arrete d'utiliser la feuille 2[/COLOR]
[COLOR=blue]End With[/COLOR]
[COLOR=green]'Avec la feuille1 (feuille de destination du tableau)[/COLOR]
[COLOR=blue]With[/COLOR] Sheets("Feuil1")
[COLOR=green]'On insert les lignes copiées[/COLOR]
.Rows(10).Resize(Derligne).Insert Shift:=xlDown
[COLOR=green]'On arrete d'utiliser la feuille 1[/COLOR]
[COLOR=blue]End With[/COLOR]
[COLOR=blue]End Sub[/COLOR]