Remonter en debut de tableau certaines lignes
Bonjour,
Je sais que cela est possible mais je ne me souviens plus comment dans un tableau excel, une balance client, je peux placer toutes les lignes qui concernent les filiales en haut de mon tableau. Ceci afin de les isoler pour que je ne les traite pas comme le reste du tableau.
Dans la 1ère feuille, la balance d'origine
Dans la 2ème feuille, la balance telle que je la voudrais à chaque fois. C'est à dire avec ces 9 numéros de compte toujours en premier et en jaune.
L'un d'entre vous peut-il m'aider ?
Merci d'avance.
Nathalie
Bonjour,
Sélectionner la cellule A10 puis Affichage > Fractionner...
A+
Bonjour Galopin,
Ta réponse me fait réaliser que je n'ai pas été assez précise dans mon explication.
Ces 9 numéros de comptes sont éparpillés un peu partout dans le tableau de départ. Ce que tu as vu dans mon tableau en jaune, c'est le résultat final. Je veux que la macro identifie ces 9 comptes et me les remonte en premières lignes
Bonjour,
Je n'ai pas d'idée particulière sur la question. Seule une macro conçue spécialement pour ça me semble appropriée.
Sub Galopin()
Dim WsA As Worksheet
Dim a, b, rng As Range, i&, iC%, k%, cpt%
[A1].CurrentRegion.Offset(1).ClearContents
b = Split("05474000 06677000 07721000 07966000 08304000 08323000 98000000 98510000")
Set rng = Feuil3.[A1].CurrentRegion
With rng
Set rng = .Resize(.Rows.Count, .Columns.Count + 1)
End With
a = rng.Value
iC = UBound(a, 2)
cpt = 1
a(1, iC) = cpt
For k = LBound(b) To UBound(b)
cpt = cpt + 1
For i = 2 To UBound(a)
If a(i, 1) = b(k) Then
a(i, iC) = cpt
Exit For
End If
Next
Next
a(1, iC) = cpt + 1
ActiveSheet.[A1].Resize(UBound(a), UBound(a, 2)) = a
ActiveSheet.[A1].CurrentRegion.Sort key1:=Cells(1, iC), order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Columns(iC).Delete
End SubA+