Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
2901 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  vb xcel

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

vb xcel

n°1143513
pleinetete
Posté le 07-07-2005 à 17:56:19  profilanswer
 

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 :
 http://img232.imageshack.us/img232/8452/vb5jz.png
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é :whistle: ...vos suggestions sont les bienvenus.
 
Merci.
PT

mood
Publicité
Posté le 07-07-2005 à 17:56:19  profilanswer
 

n°1143933
ron164
Posté le 08-07-2005 à 09:11:08  profilanswer
 


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é :whistle: ...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
 

n°1144750
pleinetete
Posté le 08-07-2005 à 23:41:12  profilanswer
 

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


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  vb xcel

 

Sujets relatifs
xcel 
Plus de sujets relatifs à : vb xcel


Copyright © 1997-2025 Groupe LDLC (Signaler un contenu illicite / Données personnelles)