Ajouter une ligne a intervalle régulier. [Forums - Espace Débutants] : myDearFriend! Excel Pages

Ajouter une ligne a intervalle régulier.		#1
Icedarts Régulier XLPages Inscription: 02/10/2008 Messages: 56 Système d'exploitation: PC Version Excel utilisée: 365	Posté le : 09-01-2010 16h36 Bonjour à tous, Je souhaite ajouter une ligne à mon classeur à intervalle régulier. Donc ajouter entre les lignes 5 et 6 puis 10 et 11 puis 15 et 16 et ainsi de suite toutes les 5 lignes. Merci d'avance. Edité par Icedarts le 09/01/2010 21:35:14

Re: Ajouter une ligne a intervalle régulier.		#2
myDearFriend! Webmestre Inscription: 18/05/2006 De Saône-et-Loire (71) Messages: 1539 Système d'exploitation: PC Version Excel utilisée: 97, 2000, 2002, 2003, 2007, 2010, 2013, 2016 et 365	Posté le : 09-01-2010 19h04 Bonsoir Icedarts, le Forum, Des explications supplémentaires seraient les bienvenues... - Insérer des lignes vierges ? - "ainsi de suite toutes les 5 lignes"... Ok, mais jusqu'à où ? La longueur du tableau d'origine est-elle variable ou fixe ? - Y-a t'il des cellules fusionnées dans le tableau d'origine ? Bref, un petit exemple en pièce jointe serait une bonne idée... Cordialement, Didier_mDF Le Webmaster La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien

Re: Ajouter une ligne a intervalle régulier.		#3
Icedarts Régulier XLPages Inscription: 02/10/2008 Messages: 56 Système d'exploitation: PC Version Excel utilisée: 365	Posté le : 09-01-2010 20h16 Oui des lignes vierges. Le Tableau fait A1:G2250. Aucune cellule fusionnées dans le tableau. Par contre il y a des cellules vides dans le tableau. Merci encore et désolé pour le manque d'info. Pièce jointe: EPS info eleves Extraction 09-11-19(3).xls [ Taille: 41.00 Ko - Téléchargements: 1273 ]

Re: Ajouter une ligne a intervalle régulier.		#4
myDearFriend! Webmestre Inscription: 18/05/2006 De Saône-et-Loire (71) Messages: 1539 Système d'exploitation: PC Version Excel utilisée: 97, 2000, 2002, 2003, 2007, 2010, 2013, 2016 et 365	Posté le : 09-01-2010 20h35 Re, Dans un module de code standard (ex : Module1), la procédure VBA suivante à coller. Lancer ce traitement après avoir sélectionné la bonne feuille de calcul concernée : `Sub InsereLign() 'myDearFriend! - www.mdf-xlpages.com Dim Plage As Range Dim L As Long Application.ScreenUpdating = False Set Plage = Rows(6) For L = 11 To 2250 Step 5 Set Plage = Application.Union(Plage, Rows(L)) Next L Plage.Insert Shift:=xlDown Application.ScreenUpdating = True MsgBox "Insertion terminée !" End Sub` Cordialement, Didier_mDF Le Webmaster La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien

Re: Ajouter une ligne a intervalle régulier.		#5
Icedarts Régulier XLPages Inscription: 02/10/2008 Messages: 56 Système d'exploitation: PC Version Excel utilisée: 365	Posté le : 09-01-2010 21h34 Merci cela fonctionne parfaitement ;)

Re: Ajouter une ligne a intervalle régulier.		#6
bardav Débutant XLPages Inscription: 28/02/2012 Messages: 8 Système d'exploitation: Mac Version Excel utilisée: 2011 (2010)	Posté le : 28-02-2012 12h45 Bonjour, Merci pour la solution que vous apportez. Seulement, étant débutant, je ne comprends pas tout du code proposé. Si je souhaite rajouter non pas une, mais 2 lignes entre toutes les lignes, quels paramètres du code dois-je modifier? Si je souhaite non plus insérer, mais dupliquer chaque ligne de manière à obtenir 3 lignes identiques, comment faire? Merci beaucoup pour votre attention.

Re: Ajouter une ligne a intervalle régulier.		#7
Mytå Accro XLPages Inscription: 17/08/2007 De Québec, Canada Messages: 180 Système d'exploitation: PC Version Excel utilisée: Excel 2003, 2007 (FR) & MsProject 2003	Posté le : 29-02-2012 00h17 Salut le forum Bardav, je t'ai répondu sur l'autre ficelle. Je donne quand même une solution pour le faire. `Sub InsertAndCopy() Dim Ligne As Long For Ligne = 2 To Cells(Rows.Count, "A").End(xlUp).Row * 3 Step 3 Rows(Ligne & ":" & Ligne + 1).Insert Shift:=xlDown Range(Cells(Ligne - 1, 1), Cells(Ligne - 1, 5)).AutoFill _ Destination:=Range(Cells(Ligne - 1, 1), Cells(Ligne + 1, 5)), _ Type:=xlFillCopy Next Ligne End Sub` Ou encore comme ceci `Sub InsertAndCopy() Dim Ligne As Long For Ligne = 2 To Cells(Rows.Count, "A").End(xlUp).Row * 3 Step 3 Rows(Ligne & ":" & Ligne + 1).Insert Shift:=xlDown With Range(Cells(Ligne - 1, 1), Cells(Ligne - 1, 5)) .AutoFill Destination:=.Resize(.Rows.Count + 2, .Columns.Count), Type:=xlFillCopy End With Next Ligne End Sub` Mytå

Vous pouvez voir les sujets.

Vous ne pouvez pas débuter de nouveaux sujets.

Vous ne pouvez pas répondre aux contributions.

Vous ne pouvez pas éditer vos contributions.

Vous ne pouvez pas effacez vos contributions.

Vous ne pouvez pas ajouter de nouveaux sondages.

Vous ne pouvez pas voter en sondage.

Vous ne pouvez pas attacher des fichiers à vos contributions.

Vous ne pouvez pas poster sans approbation.

Qui consulte actuellement ce sujet ? 1 Utilisateur(s) anonymes