Discussion :

[Gautheron]

Bonjour,

je tombe souvent sur un os lors de mes développements.

Voilà le probleme :
imaginons que j'ai un tableau de la ligne 2 à 10, colonne 2 à 15.
Mon titre, contenu dans les cellules de la colonne 2, de la ligne 2 à 10 sont fusionnées. Dans les colonnes suivantes se trouvent différents descriptifs sans importance.
_ lorsque je fais un insert manuellement à la ligne 10, pas de soucis : une ligne s'insère, et la plage des cellules fusionnées s'étends de la cellule 2 à 11
_ lorsque que j'applique la même routine pompée dans l' "enregistreur de macro" dans la macro suivante

Code :

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

1
2
Rows("10:10").Select
Selection.Insert Shift:=xlDown

toutes les lignes correspondant à la plage fusionnée sont sélectionnées et il s'insere donc 8 lignes au dessus de mon tableau et non une ligne supplémentaire dans mon tableau.

Quelqu'un sait comment faire cette insertion simplement afin que je puisse routiner des imports d'autres bases xls ?

Merci.

[frolland46]

Bonjour,

Essai plutôt ce code, ça fonctionne.

Code :

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

1
2
3
 
    Range("A10").Select
    Selection.EntireRow.Insert

Salutations

[DidierLoche]

Bonsoir,

est-ce que ceci te convient ?

Code :

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

1
2
3
4
5
6
Range("B2:B10").Select
Selection.UnMerge
Rows(10).Select
Selection.Insert Shift:=xlDown
Range("B3:B11").Select
Selection.Merge

Didier

[fring]

Bonjour,

Ceci ne suffirait pas ?

Code :

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

1
2
Cells(10, 1).EntireRow.Insert
'ou Range("A10").EntireRow.Insert

[Gautheron]

Merci à tous!

Toutes vos solutions marchaient, mais la plus pratique car la plus fonctionnelle au niveau programmation et réplication est cette dernière.

Merci d'avoir instruit une nouvelle fois le néophite que je suis et qui se fait mystifier bien souvent par les capacités/simplicité du vba et les potentialité d'excel grâce à l'aide de ce forum et des contributions!!!!!

Bonjour,

Ceci ne suffirait pas ?

Code :

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

1
2
Cells(10, 1).EntireRow.Insert
'ou Range("A10").EntireRow.Insert