[Résolu] Copier des lignes dans une autre feuille sous condition

Staple1600

XLDnaute Barbatruc

• 22 Juillet 2012

• #2

Re : Copier des lignes dans une autre feuille sous condition

Bonjour Wolfy

Si tu as testé ta macro, tu dois le savoir, non ? 🙂

Personnellement, j'ai un doute sur cette syntaxe

Code:

Feuil15.[A & i, :G & i].Copy Feuil29.[A & i]

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 22 Juillet 2012

• #3

Re : Copier des lignes dans une autre feuille sous condition

Bonjour Staple,

effectivement, c'est erroné.


A+ 😎

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 22 Juillet 2012

• #4

Re : Copier des lignes dans une autre feuille sous condition

Personne en vue??


A+ 😎

 

Dernière édition: 22 Juillet 2012

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 22 Juillet 2012

• #5

Re : Copier des lignes dans une autre feuille sous condition

Re

LOL

Dire deux fois que c'est erroné ne change rien à l’affaire 😉

Tu as trouvé la bonne syntaxe?

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 22 Juillet 2012

• #6

Re : Copier des lignes dans une autre feuille sous condition

Re Staple,

non, j'ai regarder un peu dans les messages identiques (identiques: enfin presque), rien trouvé.


A+ 😎

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 22 Juillet 2012

• #7

Re : Copier des lignes dans une autre feuille sous condition

Re

Facile en éditant ton message (heureusement j'avais fait une copie d'écran de ton post "double" 😉

Tu veux un tit coup de main peut-être?
ou je te laisse cherche encore un tit peu 😉

Parce que j'attends patiemment que tu daignes comme il se doit joindre un fichier exemple pour faire des tests 😉

EDITION : Sans PJ, j'en suis là

Code:

Sub a()
Dim i&
For i = 2 To Sheets(1).Range("A65536").End(xlUp).Row Step 32
MsgBox Sheets(2).Range(Cells(i, "A"), Cells(i, "G")).Resize(32).Address
Next i
End Sub

 

Dernière édition: 22 Juillet 2012

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 22 Juillet 2012

• #8

Re : Copier des lignes dans une autre feuille sous condition

Re Staple,

EDIT: Tiens! On s'est croisé! 😀 😉

voici le fichier, macro incluse.

Mais la syntaxe juste serait: à chaque 32 ligne de feuil1, copier les données dans feuil2 à la suite et afficher message.

A+ 😎

 

Pièces jointes

• Classeur1.xls

  37 KB · Affichages: 74
• Classeur1.xls

  37 KB · Affichages: 79
• Classeur1.xls

  37 KB · Affichages: 82

Dernière édition: 22 Juillet 2012

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 22 Juillet 2012

• #9

Re : Copier des lignes dans une autre feuille sous condition

Re

Lone-Wollf:
Tu peux préciser les points suivant, stp.
Ta feuille1 ne contient des données qu'en A2:G33 (donc pourquoi Step 33 dans ce cas ?)
Ta Feuille2 est vide

For i = 2 To Sheets("Feuil2").Range("A65536").End(xlDown).Row

Cliquez pour agrandir...

(donc pourquoi boucler sur une colonne vide????)

Testes ceci pour comprendre ce dont je parle

VB:

Sub testA()
Dim m$
Application.ScreenUpdating = False
Sheets("Feuil1").Activate
For i = 2 To Sheets("Feuil2").Range("A65536").End(xlDown).Row
If Range("A" & i) <> "" Then
    With Range("A" & i & ":G" & i)
    m = m & .Parent.Name & ": " & .Address & vbCrLf 'ici pour test
    MsgBox m
End With
'Range("A" & i & ":G" & i).Copy Sheets("Feuil2").Range("A" & i & ":G" & i)
End If
Next i
Application.ScreenUpdating = True
End Sub

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 22 Juillet 2012

• #10

Re : Copier des lignes dans une autre feuille sous condition

Dans le classeur joint il n'y a pas Step 33.

Edit precédent message

la syntaxe juste serait: à chaque 32 lignes remplies de Feuil1 - afficher message (qui est un shape). Quand click sur le shape pour le fermer, copier les données dans Feuil2

Cliquez pour agrandir...

Je ne sais pas si tu comprends; sinon quelque chose comme ceci:
w = Feuil1
for each cel w.Cells(Rows.Count, 1)
if w.Cells = 32 then
Message
end if
Range("A" & i & ":G" & i).Copy Sheets("Feuil2").Range("A" & i & ":G" & i)
Next cel

A+ 😎

 

Dernière édition: 22 Juillet 2012

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 22 Juillet 2012

• #11

Re : Copier des lignes dans une autre feuille sous condition

Re


J'attends tes éclaircissements aux questions de mon précédent message.
(Tu as testé la macro qui s'y trouve)

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 22 Juillet 2012

• #12

Re : Copier des lignes dans une autre feuille sous condition

Re,

oui j'ai testé, une fois que les 32 messages se sont affichés, pas de copie dans la feuille 2. J'ai donc enlever la ligne du message et les lignes ont été copiées.

Donc je reprends et reformule la syntaxe exacte:

A chaque 32 lignes remplies de Feuil1 - afficher message (qui est un shape). Quand click sur le shape pour le fermer, copier les données dans Feuil2. Faire ceci pour toutes les 32 nouvelles lignes inscrites.


A+ 😎

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 22 Juillet 2012

• #13

Re : Copier des lignes dans une autre feuille sous condition

Re


Mais dans ta feuille 1 après la ligne 33, il n'y a pas de données
Donc je ne comprends pas cette phrase

A chaque 32 lignes remplies de Feuil1 - afficher message (qui est un shape). Quand click sur le shape pour le fermer, copier les données dans Feuil2.

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 22 Juillet 2012

• #14

Re : Copier des lignes dans une autre feuille sous condition

Re, re

C'est normal Staple.

Dans une feuille vierge, tu inscrit 32 données; là le message s'affiche te disans que les 32 données on été inscrites et tu copie.
Tu réinscrit à nouveau 32 données et là, même message et copie les nouvelles données à la suite des autres déjà inscrites dans la feuille 2.

A+ 😎

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 22 Juillet 2012

• #15

Re : Copier des lignes dans une autre feuille sous condition

Re

Avec ce que j'ai compris

Code:

Sub a()
Dim r As Range: Set r = Sheets(1).Range("A2:G33")
If Application.CountBlank(r) = 0 Then
r.Copy Sheets(2).[a65536].End(xlUp)(2)
End If
End Sub

C'est cela que tu veux faire ?

 

Vote positif 0 Vote négatif