Je cherche à faire un tri de la 2nd colonne en fonction des numeros contenus dans la cellule.
Si numéros identiques dans colonne alors copie des lignes des cellules dans une autre feuille
Les lignes qui st identiques st dc classees en ft des numeros...
Apres faudrait insérer une ligne a la fin de chaque bloc de ligne identiques dans la nvelle feuille
Bon jái essaye de bidouille qqch avec une boucle mais apparament jmaitrise pas le concept
Private Sub Gesamtliste()
Dim Gesamtliste As String
Worksheets("Gesamt" ).Select
Range("B3:B1377" ).Select
Dim i As Integer
For i = 3 To 1377
If Sheets("Gesamt" ).Cells(b, 1) = Sheets("Gesamt" ).Cells(b, i + 1) Then
Ligne = Sheets("Gesamt" ).Range(cell(1, i), Cells(1, i + 1)).Select
Sheets("List" ).Select
Selection.Copy
End Sub
En esperant m'etre clairement exprimé
...vos suggestions sont les bienvenus.
Merci.
PT[/quotemsg]
Salut Pleinetete
1) tu veux qu'une feuille (List) soit alimentée par les lignes d'une autre (Gesamnt), si une cellule de celle-ci contient une certaine valeur?
ou bien
2) tu veux avoir dans la feuille List toutes les lignes de Gesamnt, triées en fonction du n° de la 2eme colonne, avec une ligne insérée entre chaque groupe de n° identique?
Ron