Sujet Précédent Sujet Suivant

Tri selectif excel 2003

Fermé
athos26 Messages postés 1 Date d'inscription jeudi 4 mars 2010 Statut Membre Dernière intervention 4 mars 2010 - 4 mars 2010 à 11:37
garion28 Messages postés 1543 Date d'inscription mardi 16 juin 2009 Statut Membre Dernière intervention 3 avril 2011 - 4 mars 2010 à 11:46
Bonjour,
Je cherche une méthode pour extraire d'une liste les titres de chaque produits, voici la forme de mon listing.
titre1.
infos1a.
infos1b.
titre2.
infos2a.
Infos2b.
Titre3.
infos3a.
infos3b.
etc ..... (6200 lignes environ). Pour excel 2003
Comment recopier dans une nouvelle colonne que les titres de cette liste sans les infos ?
Merci pour votre aide
A voir également:

1 réponse

Réponse 1 / 1
garion28 Messages postés 1543 Date d'inscription mardi 16 juin 2009 Statut Membre Dernière intervention 3 avril 2011 404
4 mars 2010 à 11:46
en vba excel:
si les info sont toujours dans cette structure:
titre1.
infos1a.
infos1b.

ce code récupere le titre pour la ligne 1 , 4 , 7 etc... (on ajoute 3 a chaque numéro pour avoir la ligne du prochain titre
on suppose que la colonne a extraire est en A et que les titres doivent etre collé en B
on suppose que la fin de l'extraction est limité par une cellule vide (les cellule après la vide ne seront pas controlé et donc pas recopié en B
tu doit copier le code suivant dans un module dans l'éditeur de macro vba puis tu lance la macro avec F5 et la copie se fera toute seul 
Dim i As Long
Dim j As Long
j = 1
i = 1
While ActiveSheet.Range("A" & i).Value <> ""
    ActiveSheet.Range("B" & j).Value = ActiveSheet.Range("A" & i).Value
    i = i + 3
    j = j + 1
Wend



si ton problème concerne un autre programme alors dis le nous :)
0