Copie & déplacement ligne avec condition

[ssassam]

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]

Re : Copie & déplacement ligne avec condition

Bonsoir,
voila ton bonheur.

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]

Re : Copie & déplacement ligne avec condition

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