Copie & déplacement ligne avec condition

ssassam · 10 Décembre 2013

Bonjour,

S'il vous plait j'ai besoin de votre aide encore une fois : 🙄

j'ai un fichier qui regroupe plusieurs relevés bancaires pour plusieurs banque dans la même feuil et je souhaite les faire dispatché sur plusieurs feuille

Vous pouvais prendre comme clé "Nom Banque" qui se répète pour chaque ligne de la même banque

La condition que je propose c'est que a chaque fois que le "Nom Banque" se répète je souhaite couper les lignes relative et de les coller vers une nouvelle feuil qui porte le nom de cette banque.

Fichier TEST ci-joint

Merci

kingfadhel · 10 Décembre 2013

Re : Copie & déplacement ligne avec condition

Bonsoir,
voila ton bonheur.

Code:

Sub tri()
While Sheets("RELEVE GLOBAL").Range("A2") <> ""
nb = Sheets("RELEVE GLOBAL").Range("A" & Rows.Count).End(xlUp).Row
Set plg = Sheets("RELEVE GLOBAL").Range("A2:A" & nb)
For i = nb To 2 Step -1
If Sheets("RELEVE GLOBAL").Range("A" & i) = Sheets("RELEVE GLOBAL").Range("a" & nb) Then
Set plg1 = Sheets("RELEVE GLOBAL").Range("a" & i & ":f" & nb)
End If
Next
    plg1.Cut
    Sheets.Add After:=Sheets(Sheets.Count)
    ActiveSheet.Range("A2").Select
    ActiveSheet.Paste
    ActiveSheet.Name = ActiveSheet.Range("A2")
    Sheets("RELEVE GLOBAL").Range("A1:F1").Copy
    'Selection.Copy
    ActiveSheet.Range("A1").Select
    ActiveSheet.Paste
    Cells.Select
    Cells.EntireColumn.AutoFit
Wend
End Sub

ssassam · 10 Décembre 2013

Re : Copie & déplacement ligne avec condition

Tout ce que je peux te dire c'est "جازاك الله خيرا " Merci Cher ami

Copie & déplacement ligne avec condition

ssassam

XLDnaute Occasionnel

Pièces jointes

kingfadhel

XLDnaute Impliqué

Pièces jointes

ssassam

XLDnaute Occasionnel

Discussions similaires

Copie & déplacement ligne avec condition

ssassam

XLDnaute Occasionnel

Pièces jointes

kingfadhel

XLDnaute Impliqué

Pièces jointes

ssassam

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency