Insérer 11 lignes toutes les 26 lignes à partir de la ligne 2

[DIGGERJACK]

Bonsoir le forum

Sur une feuille la ligne 1 contient des titres (en A1:AE1)

Les lignes du dessous des informations

Je voudrais pouvoir insérer un groupe de 11 lignes sous les lignes suivantes 28,54,80,106,132,158,184,210,236,262 soit 11 lignes par pas de 26 à partir de la ligne 28 et ce à l'aide d'une macro

Merci de votre aide
Bonne soirée

 

[skoobi]

Re : Insérer 11 lignes toutes les 26 lignes à partir de la ligne 2

Bonsoir,

Si j'ai bien compté:

Sub insertion()
For lig = 262 To 28 Step -26
    Rows(lig + 1 & ":" & lig + 11).Insert
Next
End Sub

 

[DIGGERJACK]

Re : Insérer 11 lignes toutes les 26 lignes à partir de la ligne 2

Bonsoir Skoobi

Merci beaucoup pour ce code

Je fais les tests demain et je te tiens au courant

Bonne soirée

 

[Staple1600]

Re : Insérer 11 lignes toutes les 26 lignes à partir de la ligne 2

Bonsoir à tous


En reprenant un peu du code de Skoobi

une autre facon de faire

Sub test()
'InsertTwoRows_v2():Dana De Louis, programming, 2001-05-13
'adapté avec le code de skoobi
Application.ScreenUpdating = False
Dim r As Long
For r = [A65536].End(xlUp).Row To 28 Step -26
Rows(r+1).Resize(11).Insert
Next
Application.ScreenUpdating = True
End Sub

 

[DIGGERJACK]

Re : Insérer 11 lignes toutes les 26 lignes à partir de la ligne 2

Bonjour le forum Skoobi et staple 1600

J'ai modidfié la macro de Skoobi de la façon suivante car avec le code original les 11 lignes étaient insérées une ligne trop bas en partant du haut mais cela est dorénavant réglé


Sub insertion()
For lig = 261 To 27 Step -26
Rows(lig + 1 & ":" & lig + 11).Insert
Next
End Sub
Je vais tester ton code Staple 1600 et je tiens au courant
Merci pour vote aide

 

[DIGGERJACK]

Re : Insérer 11 lignes toutes les 26 lignes à partir de la ligne 2

Re le forum

Ton code Staple 1600 effectue bien les insertions des 11 lignes mais ne remonte pas jusqu'au haut de mon tableau. Bizarre bizarre je vais regarder cela plus en détail cet après midi.

Bonne journée

 

[DIGGERJACK]

Re : Insérer 11 lignes toutes les 26 lignes à partir de la ligne 2

Re le forum

Dans la macro de Skoobi je voudrais pouvoir ajouter une donnée supplémentaire :

En colonne AD, BL, CT, EB, FJ et Gr j'ai des listes déroulantes et lorsque j'applique la macro de Skoobi les listes restent en place dans les lignes insérées

Je voudrais en insérant les lots de 11 lignes pouvoir supprimer tout ce qui peux traîner par là en l'occurence les listes déroulantes

Je pense qu'il faut utiliser clearcontents mais où placer cela

Merci de votre aide

 

[skoobi]

Re : Insérer 11 lignes toutes les 26 lignes à partir de la ligne 2

Re bonjour,

listes restent en place dans les lignes insérées

vérifie que l'option "déplacer avec les cellules" soit activé dans la propriété des listes déroulantes.

 

[DIGGERJACK]

Re : Insérer 11 lignes toutes les 26 lignes à partir de la ligne 2

Re Skoobi et le forum

Il s'agit de listes déroulantes issues de données /validation

Désolé de mettre mal expliqué
Bonne journée

 

[DIGGERJACK]

Re : Insérer 11 lignes toutes les 26 lignes à partir de la ligne 2

Bonjour le forum

J'ai testé et retesté la macro de staple 1600 mais elle ne fait pas la même action que celle de Skoobi. En effet elle insère bien dans le bas du tableau mais ne remonte pas jusqu'à la ligne 28 pour y insérer les 11 lignes

Merci tout de même pour cette adaptation elle va aller dans le grenier à formules .... Peut être servira t elle un jour ppour une autre application

Bonne journée