Question VB excel:
 
 
Slt tlm, jsuis en stage et jái des manips xcel a faire mais c trop ennuyeux et long....alors vb seule issu mais je suis un noob.
 
Le prbl :
 
et ouais stage en Allemagne....
 
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

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
 

2) c bien ca, si t'as une idee.
 
Mais bon j'ai du commence a le faire manuel car deadline oblige.
 
 
PT