insertion automatique de ligne dans une liste

M

Mytå

Guest

• 22 Avril 2003

• #2

Bonsoir le forum

Peut-etre que ceci pourrait t'aider Pierre

Option Explicit
Sub ajouter_lignes()
Dim ligne As Integer
For ligne = Range("A65535").End(xlUp).Row To 3 Step -1
With Rows(ligne & ":" & ligne)
.Insert Shift:=xlDown
.Insert Shift:=xlDown
End With
Rows(ligne - 1 & ":" & ligne - 1).Copy
Rows(ligne & ":" & ligne + 1).PasteSpecial Paste:=xlFormats, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Next ligne

End Sub

Mytå

 

Vote positif 0 Vote négatif

Z

Zon

Guest

• 22 Avril 2003

• #3

Bonsoir à tous,

Je pense qu'il y a plusieurs solutions, mais j'ai trouvé celle là la plus simple:
On copie la plage A1:E1 puis insére deux à deux les les cellules copiées où l'on efface les valeurs avec clearcontents


Sub inserligne()
Dim L As Integer
L = Sheets("Feuil1").Range("A65536").End(xlUp).Row
For i = L To 1 Step -1
Range("A1", "E1").copy
Range("A" & i, "E" & i).insert xldown
Range("A" & i, "E" & i).clearcontents
Range("A" & i, "E" & i).insert xldown
Range("A" & i, "E" & i).clearcontents
Next i
application.cutcopymode=false
End Sub


A+++

 

Vote positif 0 Vote négatif

M

Mytå

Guest

• 22 Avril 2003

• #4

re le forum

Un autre facon de voir c'est bien Zon

Je remplacerais par contre
.....
Range("A" & i, "E" & i).clearcontents
Next i
application.cutcopymode=false
End Sub

par
......
Range("A" & i, "E" & i).clearcontents
application.cutcopymode=false
Next i
End Sub

Et tu Dim L as Integer mais ta oublier pour le i

A+ Mytå

 

Vote positif 0 Vote négatif

Z

Zon

Guest

• 22 Avril 2003

• #5

Re,


Mytâ, je vois que tu appliques les conseils de Thierry à la lettre:

Effectivement j'ai oublié une déclaration de i (je n'ai pas d'option Explicit...)et de vider le pressepapier dans ma boucle.

Enfin tu peux remplacer
Rows(ligne & ":" & ligne + 1).PasteSpecial Paste:=xlFormats Operation:=xlNone, SkipBlanks:=False, Transpose:=False

par

Rows(ligne & ":" & ligne + 1).PasteSpecial xlFormats



A+++

 

Vote positif 0 Vote négatif

P

Pierre Legrand

Guest

• 24 Avril 2003

• #6

merci, les 2 formules fonctionnent pour insérer 2 lignes.

Mais comment faire pour que mes 2 lignes insérés ne soient pas vierges, mais reprenne le contenu du presse papier (ou de 2 lignes spécifiques) ?

d'avance merci de vos réponses

 

Vote positif 0 Vote négatif

H

hamici naima

Guest

• 24 Mai 2003

• #7

bonjour à tous .
je veux comprondre comment en travaille dans un feuille d'excel par détaille? merci .......

 

Vote positif 0 Vote négatif

A

A. HAMICI

Guest

• 25 Septembre 2003

• #8

Bonjour Naima

Je ne voudrai pas repondre a quoique se soit,mais je desire vivement faire votre connaissance, du fait qu'on a le meme nom de famille.
Je veux connaitre ma famille.
Je suis de Guelma, et c'est plein de Hamici la bas,notre origine est de JIJEL
d'apres l'histoir.
En fin bref, repondez moi on en discutera bien
Merci de votre comprehension
Salutations.
Abdelhalim HAMICI

 

Vote positif 0 Vote négatif