Intercaler des lignes

Le
cilou
Bonjour,

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

Merci
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
J
Le #1268738
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


J
Le #1268737
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




cilou
Le #1268736
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
.





J
Le #1268735
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


.







papou
Le #1268734
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" news: 0cff01c425d9$10d34a30$
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
cilou
Le #1268732
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
.







Publicité
Poster une réponse
Anonyme