Intercaler des lignes

Bonjour cilou
Avec VBA je recopierai ta liste dans une autre feuille, en décalant de 5
lignes
'*********
Sub CopieDecaler() 'inspiré par P. Fauconnier
Dim cSource As Range
Dim cCible As Range
Set cCible = Sheets("feuil2").Range("a1") 'tu définis où ta recopie
commence
For Each cSource In Sheets("feuil1").Range("a1:Az1000") 'tu définis
ton tableau d'origine
cCible = cSource
Set cCible = cCible(10) 'Décale de 9 vers le bas
Next cSource
End Sub
'*********

Pour plus de magie, attends les réponses des gens qui savent
cordialement
J@@

cilou wrote:

J'ai un tableau tableau excel saisi. Je voudrai intercaler
9 lignes vierges entre chaque ligne déjà saisie. Comment
est ce que je peux automatiser cette tache ?

Merci

en décalant de 9 lignes, bien sûr, tu auras corrigé de toi-même :-))

J@@ wrote:

Bonjour cilou
Avec VBA je recopierai ta liste dans une autre feuille, en décalant de 5
lignes
'*********
Sub CopieDecaler() 'inspiré par P. Fauconnier
Dim cSource As Range
Dim cCible As Range
Set cCible = Sheets("feuil2").Range("a1") 'tu définis où ta recopie
commence
For Each cSource In Sheets("feuil1").Range("a1:Az1000") 'tu définis
ton tableau d'origine
cCible = cSource
Set cCible = cCible(10) 'Décale de 9 vers le bas
Next cSource
End Sub
'*********

Pour plus de magie, attends les réponses des gens qui savent
cordialement
J@@

cilou wrote:

J'ai un tableau tableau excel saisi. Je voudrai intercaler 9 lignes
vierges entre chaque ligne déjà saisie. Comment est ce que je peux
automatiser cette tache ?

Merci

je suis un peu novice en excel comment fais tu pour entrer
dans le mode vba et comment tu executes le code ?

-----Message d'origine-----
Bonjour cilou
Avec VBA je recopierai ta liste dans une autre feuille,
en décalant de 5

lignes
'*********
Sub CopieDecaler() 'inspiré par P. Fauconnier
Dim cSource As Range
Dim cCible As Range
Set cCible = Sheets("feuil2").Range("a1") 'tu
définis où ta recopie

commence
For Each cSource In Sheets("feuil1").Range
("a1:Az1000") 'tu définis

ton tableau d'origine
cCible = cSource
Set cCible = cCible(10) 'Décale de 9 vers le bas
Next cSource
End Sub
'*********

Pour plus de magie, attends les réponses des gens qui
savent

cordialement
J@@

cilou wrote:

J'ai un tableau tableau excel saisi. Je voudrai
intercaler

9 lignes vierges entre chaque ligne déjà saisie.
Comment

est ce que je peux automatiser cette tache ?

Merci
.

Alt + F11
dans la fenêtre projet-VBA-project
sélectionne ton projet VBAprojectnomdetafeuille => clic droit
insertion module puis copie le code dans la fenêtre du module créé,
lance le code par F8, ou dans Excel par Outil Macro - Macro et
sélectionne copiedécaler (ta macro)
après tu pourras adapter ta macro dans l'éditeur que tu as ouvert par
Alt+F11
Bon courage
J@@

cilou wrote:

je suis un peu novice en excel comment fais tu pour entrer
dans le mode vba et comment tu executes le code ?

-----Message d'origine-----
Bonjour cilou
Avec VBA je recopierai ta liste dans une autre feuille,

en décalant de 5

lignes
'*********
Sub CopieDecaler() 'inspiré par P. Fauconnier
Dim cSource As Range
Dim cCible As Range
Set cCible = Sheets("feuil2").Range("a1") 'tu

définis où ta recopie

commence
For Each cSource In Sheets("feuil1").Range

("a1:Az1000") 'tu définis

ton tableau d'origine
cCible = cSource
Set cCible = cCible(10) 'Décale de 9 vers le bas
Next cSource
End Sub
'*********

Pour plus de magie, attends les réponses des gens qui

savent

cordialement
J@@

cilou wrote:

J'ai un tableau tableau excel saisi. Je voudrai

intercaler

9 lignes vierges entre chaque ligne déjà saisie.

Comment

est ce que je peux automatiser cette tache ?

Merci

.

Bonjour cilou
Sinon pour intégrer directement les 9 lignes sur ta feuille d'origine
(modifies les coordonnées de cellule s'il s'agit d'une autre colonne
notamment):
Code à placer dans un module standard :
Sub AjoutLignes()
Application.StatusBar = "Traitement en cours"
Application.ScreenUpdating = False
Dim DernLig As Long, i As Long, y As Long
DernLig = Range("A65536").End(xlUp).Row
For i = DernLig To 1 Step -1
For y = 1 To 9
Cells(i, 1).EntireRow.Insert (xlShiftDown)
Next y
DernLig = Range("A65536").End(xlUp).Row
Next i
Application.ScreenUpdating = True
Application.StatusBar = False
End Sub

Cordialement
Pascal

"cilou" <anonymous@discussions.microsoft.com> a écrit dans le message de
news: 0cff01c425d9$10d34a30$a001280a@phx.gbl...
Bonjour,

J'ai un tableau tableau excel saisi. Je voudrai intercaler
9 lignes vierges entre chaque ligne déjà saisie. Comment
est ce que je peux automatiser cette tache ?

Merci

c'est bon j'ai réussi à trouver comment mettre le code par
contre quad j'execute j'ai une erreur sur la ligne

Set cCible = cCible(9)

-----Message d'origine-----
en décalant de 9 lignes, bien sûr, tu auras corrigé de
toi-même :-))

J@@ wrote:

Bonjour cilou
Avec VBA je recopierai ta liste dans une autre feuille,
en décalant de 5

lignes
'*********
Sub CopieDecaler() 'inspiré par P. Fauconnier
Dim cSource As Range
Dim cCible As Range
Set cCible = Sheets("feuil2").Range("a1") 'tu
définis où ta recopie

commence
For Each cSource In Sheets("feuil1").Range
("a1:Az1000") 'tu définis

ton tableau d'origine
cCible = cSource
Set cCible = cCible(10) 'Décale de 9 vers le
bas

Next cSource
End Sub
'*********

Pour plus de magie, attends les réponses des gens qui
savent

cordialement
J@@

cilou wrote:

J'ai un tableau tableau excel saisi. Je voudrai
intercaler 9 lignes

vierges entre chaque ligne déjà saisie. Comment est ce
que je peux

automatiser cette tache ?

Merci
.