MACRO couper coller ligne sous condition qui fonctionne à Merveille MAIS .... !!!

vgendron

XLDnaute Barbatruc

• 6 Février 2013

• #2

Re : MACRO couper coller ligne sous condition qui fonctionne à Merveille MAIS .... !!

Bonjour,

solution un peu grossière. (juste un copier coller du code pour traiter les deux types i et l les uns après les autres..

 

Pièces jointes

• MelanieBrun COUPER-COLLER Ligne d'une feuille vers 2 autres.xls

  134.5 KB · Affichages: 40

Vote positif 0 Vote négatif

Matheop

XLDnaute Occasionnel

• 6 Février 2013

• #3

Re : MACRO couper coller ligne sous condition qui fonctionne à Merveille MAIS .... !!

Salut,

Code:

Sub couperColler()
    
    Dim derniereLignePublipostage As Integer
    Dim derniereLigneEBInfo As Integer
    Dim derniereLigneEBLogis As Integer
    Dim x As Integer
    
    Sheets("pour publipostage").Activate
    derniereLignePublipostage = Sheets("pour publipostage").Range("B65536").End(xlUp).Row
    
    For x = 3 To derniereLignePublipostage
        derniereLigneEBInfo = Sheets("EB informatique").Range("B65536").End(xlUp).Row
        derniereLigneEBLogis = Sheets("EB logistique").Range("B65536").End(xlUp).Row
    
        If Cells(x, 1).Value = "i" Then
            Range(Cells(x, 1), Cells(x, 255)).Cut Destination:=Sheets("EB informatique").Cells(derniereLigneEBInfo + 1, 2)
        ElseIf Cells(x, 1).Value = "L" Then
            Range(Cells(x, 1), Cells(x, 255)).Cut Destination:=Sheets("EB logistique").Cells(derniereLigneEBLogis + 1, 2)
        End If
    Next x

End Sub

Cordialement,
Mat'

erf.. grilled..

 

Dernière édition: 6 Février 2013

Vote positif 0 Vote négatif

M

melaniebrun

Guest

• 6 Février 2013

• #4

Re : MACRO couper coller ligne sous condition qui fonctionne à Merveille MAIS .... !!

Bonjour vgendron,

je vous remercie beaucoup pour l'interet et le temps que vous accordez à mon probleme 🙂
en revanche cette solution focntionne tant qu'il n'y a dans ma premiere feuille en Colonne A soit des "i" soit des "L"...
Ci tôt qu'il y a les deux types de demandes les "i" remportent la manche et les lignes "L" disparaissent totalement du classeur 🙁

Je suis bien consciente que c'est pas une requête simple que je vous adresse mais si par miracle vous avez une solution ? ^^
merci encore

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 6 Février 2013

• #5

Re : MACRO couper coller ligne sous condition qui fonctionne à Merveille MAIS .... !!

à vrai dire. je n'ai pas creusé la question:
il me semblait avoir vu que lorsque la ligne "x" était copiée dans la feuille de destination, elle était ensuite supprimée de la feuille de départ..
j'ai donc fait la meme chose pour les deux cas: i et L
j'ai meme rajouté un test au cas ou l'un des deux (i ou L) n'existe pas: ca faisait planter la macro

me goure je? ;-)
apparemment oui.. alors. où?

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 6 Février 2013

• #6

Re : MACRO couper coller ligne sous condition qui fonctionne à Merveille MAIS .... !!

à vrai dire. je n'ai pas creusé la question:
il me semblait avoir vu que lorsque la ligne "x" était copiée dans la feuille de destination, elle était ensuite supprimée de la feuille de départ..
j'ai donc fait la meme chose pour les deux cas: i et L
j'ai meme rajouté un test au cas ou l'un des deux (i ou L) n'existe pas: ca faisait planter la macro

me goure je? ;-)
apparemment oui.. alors. où?

Edit: la macro de Matichoux (que je salue au passage), ne te convient elle pas?
il me semble que ca fait la meme chose que moi. mais en plus efficace et plus propre:

 

Vote positif 0 Vote négatif

M

melaniebrun

Guest

• 6 Février 2013

• #7

Re : MACRO couper coller ligne sous condition qui fonctionne à Merveille MAIS .... !!

Merci mille fois vous êtes vraiment super 🙂

alors pour conclure, Tu avais tres bien compris au contraire c'etait simplement que dans ton fichier il y a un beug quand il y a en meme temps des i et des L. (les i sont toujours bien transféré tandis que les L le sont seulement si il n'y a pas de i en même temps sinon ils disparaissent et sont supprimer completement)

Le fichier de Matichoux ne rencontre pas ce probleme en revanche il en connait un que ton code ne connait pas.
Je pense qu'à vous deux on peut faire des merveilles ^^
Avec le code Matichoux les lignes se suppriment pas totalement de ma feuille 1 et laisse un blanc sans formule ni couleur...

je sais pas si tu es en mesure de bidouller encore un petit qlq chose pour arriver à perfection mais ce que vous avez fait est déjà super....

je te joins les fichiers au cas ou 🙂

 

Pièces jointes

• MelanieBrun (vgendron).xls

  121.5 KB · Affichages: 34
• MelanieBrun (Matichoux).xls

  142 KB · Affichages: 37
• MelanieBrun (vgendron).xls

  121.5 KB · Affichages: 36
• MelanieBrun (Matichoux).xls

  142 KB · Affichages: 41
• MelanieBrun (vgendron).xls

  121.5 KB · Affichages: 35
• MelanieBrun (Matichoux).xls

  142 KB · Affichages: 40

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 6 Février 2013

• #8

Re : MACRO couper coller ligne sous condition qui fonctionne à Merveille MAIS .... !!

Re
avec le code de Matichoux modifié
en fait, le cut (Ctrl X) ne supprime pas la ligne, il fait juste l'effacer.. il faut le faire suivre d'un delete

Teste et dis moi si c'est ok

j'avoue. j'ai pas testé. j'ai eu la flemme de réécrire des lignes dans la feuille d'origine ;-)

 

Pièces jointes

• MelanieBrun (Matichoux).xls

  137 KB · Affichages: 41
• MelanieBrun (Matichoux).xls

  137 KB · Affichages: 47
• MelanieBrun (Matichoux).xls

  137 KB · Affichages: 43

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 6 Février 2013

• #9

Re : MACRO couper coller ligne sous condition qui fonctionne à Merveille MAIS .... !!

Bon et comme j'aime aller jusqu'au bout, j'ai corrigé le mien ;-)

 

Pièces jointes

• MelanieBrun (vgendron).xls

  133.5 KB · Affichages: 70
• MelanieBrun (vgendron).xls

  133.5 KB · Affichages: 76
• MelanieBrun (vgendron).xls

  133.5 KB · Affichages: 85

Vote positif 0 Vote négatif

M

melaniebrun

Guest

• 6 Février 2013

• #10

Re : MACRO couper coller ligne sous condition qui fonctionne à Merveille MAIS .... !!

Vgendron, MERCI 🙂
un vrai grand et beau merci

c'es grace à des gens comme toi qu'on avance tous les jours plus vite 🙂

 

Vote positif 0 Vote négatif

Matheop

XLDnaute Occasionnel

• 6 Février 2013

• #11

Re : MACRO couper coller ligne sous condition qui fonctionne à Merveille MAIS .... !!

Rah je reviens après la bataille on dirait! En effet j'ai juste coupé la ligne sans me préoccuper de la supprimer mais bon vgendron a rectifié le tir. 🙂

Bonne journée à vous,
Mat'

 

Vote positif 0 Vote négatif