copie lignes

Spitnolan08

XLDnaute Barbatruc

• 9 Septembre 2007

• #2

Re : copie lignes

Bonsoir,

Une proposition :

Code:

Sub CopieFeuil5()
Dim A As Integer, B As Integer, i As Integer, j As Integer

A = Sheets("Feuil2").Range("B65500").End(xlUp).Row
With Sheets("Feuil2")
    For i = 3 To A
        If .Cells(i, "L").Interior.ColorIndex = 35 And .Cells(i, "K").Value <> 0 Then
            B = Sheets("Feuil5").Range("A65500").End(xlUp).Row + 1
            For j = 1 To 15
                Sheets("Feuil5").Cells(B, j) = .Cells(i, j)
            Next
        End If
    Next
End With
End Sub

Cordialement

 

Vote positif 0 Vote négatif

G

gbinforme

XLDnaute Impliqué

• 9 Septembre 2007

• #3

Re : copie lignes

Bonsoir Spitnolan08, le forum,

Spitnolan08 à dit:

Ne pas oublier d'effectuer une recherche dans les pages "questions-les-plus-frequentes-faq-et-didacticiels" avant de poser une question. La réponse s'y trouvera de plus en plus souvent.

Cliquez pour agrandir...

comment se fait-il que lorsque je clique sur ton lien, j'obtienne toujours :


Vous n'êtes pas autorisé(e) à accéder à cette ressource.
Vous devez vous connecter.
Vous devez vous identifier.

| Mentions Légales |
© 2007 Excel Downloads
Joomla! est un logiciel libre distribué sous licence GNU/GPL.

Partenaires : Calcul Bancaire, Cours informatique, Informatique facile

[Analyse d'audience] Classement de sites - Inscrivez le vôtre!

 

Vote positif 0 Vote négatif

Spitnolan08

XLDnaute Barbatruc

• 9 Septembre 2007

• #4

Re : copie lignes

Bonsoir Gbinforme,

J'ai du faire une erreur dans le 1er lien mais le second fonctionne.
Je vais rectifier cela.

Merci pour l'info
Cordialement

 

Vote positif 0 Vote négatif

C

CAFRINE

Guest

• 11 Septembre 2007

• #5

Re : copie lignes

Bonsoir le forum,

Bonsoir Spitnolan08,
Je ne réponds que maintenant car j'étais absente
J'essaye le code et je vous tiens au courant
Encore Merci
Cafrine

 

Vote positif 0 Vote négatif

C

CAFRINE

Guest

• 16 Septembre 2007

• #6

Re : copie lignes

bonjour à tous

J'ai essayé le code de Spitnolan08 (dont je remercie encore) et qui fonctionnait avec l'exemple que j'avais donné. Sauf une prise en compte de la ligne 3, à tort...
Mais, après avoir adapté la macro au fichier d'origine; il n'y a plus rien qui se passe.
je l'ai essayé dans un module, la feuille... en vain.
Je vous joins le fichier
Merci de votre aide
Cafrine

 

Pièces jointes

• cos1.zip

  20.8 KB · Affichages: 25

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 16 Septembre 2007

• #7

Re : copie lignes

bonjour CAFRINE

cela tient surtout au fait que tes colonnes A -> C sont vides

teste ceci

 

Pièces jointes

• cos.zip

  20.5 KB · Affichages: 32
• cos.zip

  20.5 KB · Affichages: 32
• cos.zip

  20.5 KB · Affichages: 33

Vote positif 0 Vote négatif

C

CAFRINE

Guest

• 16 Septembre 2007

• #8

Re : copie lignes

bonsoir le forum
bonsoir pierrejean
merci de ton aide
j'ai regardé ton exemple : il recopie toute la liste au lieu des lignes, ou en colonne L
les celulles sont rouges...
encore merci
Cafrine

 

Vote positif 0 Vote négatif

bqtr

XLDnaute Accro

• 16 Septembre 2007

• #9

Re : copie lignes

Bonjour CAFRINE, le fil

Essaye comme ceci :

Code:

Sub CopieArchives()
Application.ScreenUpdating = False
Dim A As Integer, B As Integer, i As Integer, j As Integer

A = Sheets("Base").Range("D65536").End(xlUp).Row
B = Sheets("Archives").Range("E65536").End(xlUp).Row + 1
With Sheets("Base")
    For i = 3 To A
        If .Cells(i, "L") > 0 And .Cells(i, "K").Value <> 0 Then
             Sheets("Archives").Range(Sheets("Archives").Cells(B, 1), Sheets("Archives").Cells(B, 15)) = .Range("A" & i & ":O" & i).Value
        End If
           B = Sheets("Archives").Range("E65536").End(xlUp).Row + 1
    Next
End With
Sheets("Archives").Select
Application.ScreenUpdating = True
End Sub

Comme le dit Pierre-Jean, les colonnes A à C sont vides donc la macro de Spit ne peux pas fonctionner.

Ensuite, il y a un autre problème, les cellules de la colonne L sont en vert ou rouge, mais le rouge vient d'une MFC, or ceci n'est pas détectable en VBA. Même si la cellule est rouge, la macro validera le test sur la couleur verte.
Donc j'ai mis si .Cells(i, "L") > 0 pour remplacer.

Dernier point, mais là ca dépend de ce que tu souhaites faire, si t lances la macro plusieurs fois, les mêmes données seront copiées les unes après les autres.

Bonne soirée

 

Vote positif 0 Vote négatif

C

Catrice

XLDnaute Barbatruc

• 16 Septembre 2007

• #10

Re : copie lignes

Bonsoir,

ci-joint une variante.
Pour tester les cellules rouges on peut utiliser la formule qui permet de générer la MFC.

 

Pièces jointes

• cos.xls

  34.5 KB · Affichages: 60

Vote positif 0 Vote négatif

C

CAFRINE

Guest

• 16 Septembre 2007

• #11

Re : copie lignes

rebonsoir à tous
bonsoir bqtr,
j'ai essaye ta version, mais même résultat ça me recopie tout ...
1) à l'origine, les colonnes A, B et C ne sont jamais vides.
2) Les colonnes L et K possèdent des MFC + Formules

Mais il y a peut-être une autre approche pour que je puisse isoler sur une autre feuille
les lignes dont le remboursement est total ( col K) juste pour archive.
Et je pensais supprimer ces lignes après le transfert...
Merci
Cafrine

 

Vote positif 0 Vote négatif

bqtr

XLDnaute Accro

• 16 Septembre 2007

• #12

Re : copie lignes

Re,

Pour moi ca fonctionne, enfin je crois, regarde le fichier joint.

 

Pièces jointes

• cos.zip

  20.5 KB · Affichages: 28
• cos.zip

  20.5 KB · Affichages: 30
• cos.zip

  20.5 KB · Affichages: 30

Vote positif 0 Vote négatif

C

CAFRINE

Guest

• 16 Septembre 2007

• #13

Re : copie lignes

Bonsoir à tous
Je suis désolée bqtr, je ne vois pas à quel moment je t'ai induis en erreur, ton code fonctionne très bien effectivement; mais c'était l'effet inverse que je souhaitais..
Mais ceci dit : je l'adopte car ça me servira pour autre chose.... merci
Le code de Catrice est l'effet espèré, avec en plus la suppression des lignes concernées.
Un grand merci à vous tous..
Cafrine

 

Vote positif 0 Vote négatif

C

CAFRINE

Guest

• 18 Septembre 2007

• #14

Re : copie lignes

Bonsoir à tous
La macro de Catrice me va à merveille, mais seul petit hic:
Vu que c'est pour une archive
Ya t-il moyen de faire une petite modification de sorte que les lignes copiées ne s'écrasent pas...

------------------------------------------------------------------
Sub Test()
Application.ScreenUpdating = False
For Each X In Range(Range("B3"), Range("B65536").End(xlUp))
If X.Offset(0, 10) <= 0 Then
X.Offset(0, -1).Resize(1, 14).Copy
Sheets("Feuil5").Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
X.Resize(1, 13).ClearContents
End If
Next
Application.ScreenUpdating = True
End Sub
-------------------------------------------------------------------
Merci à tous
Cafrine

 

Vote positif 0 Vote négatif

C

Catrice

XLDnaute Barbatruc

• 19 Septembre 2007

• #15

Re : copie lignes

Bonsoir,

Ne s'écrasent pas où ?
Chez moi dans la Feuil5, elles ne s'ecrasent pas, elles sont copiées à la suite.

Peux tu préciser comment fonctionne ton fichier ?
Que doit il y avoir dans la colonne A ? Un N° d'ordre qui s'efface quand B est vide ?
Les N° sont ils attachés aux noms ?
Apres chaque archivage, faut il trier le tableau ?
Apres chaque archivage, faut il n'effacer que les données (pas les formules) ?

 

Dernière édition: 19 Septembre 2007

Vote positif 0 Vote négatif