Tri de données dans excel 2003
Fermé
barralou
-
4 mars 2010 à 00:47
Bidouilleu_R Messages postés 1181 Date d'inscription mardi 27 mai 2008 Statut Membre Dernière intervention 12 juillet 2012 - 4 mars 2010 à 11:30
Bidouilleu_R Messages postés 1181 Date d'inscription mardi 27 mai 2008 Statut Membre Dernière intervention 12 juillet 2012 - 4 mars 2010 à 11:30
A voir également:
- Tri de données dans excel 2003
- Liste déroulante excel - Guide
- Formule excel - Guide
- Déplacer une colonne excel - Guide
- Tri excel - Guide
- Aller à la ligne excel - Guide
1 réponse
Bidouilleu_R
Messages postés
1181
Date d'inscription
mardi 27 mai 2008
Statut
Membre
Dernière intervention
12 juillet 2012
277
4 mars 2010 à 11:30
4 mars 2010 à 11:30
dans ce code qu'il faut placer dans un module
je considére que les données sources sont sur la feuil1 en colonne A
cells(i,1) et cells(j,1) représentent les lignes de la colonne A sur la feuille 1 et 2
InStr(1, Cells(i, 1), "titre" ) test la presence de titre dans la valeur de la cellule.
si cela ne convient pas donne des valeurs réelles plus le titre d'entête et sa position.
A+
je considére que les données sources sont sur la feuil1 en colonne A
cells(i,1) et cells(j,1) représentent les lignes de la colonne A sur la feuille 1 et 2
InStr(1, Cells(i, 1), "titre" ) test la presence de titre dans la valeur de la cellule.
si cela ne convient pas donne des valeurs réelles plus le titre d'entête et sa position.
Sub extrait_les_lignes_titres()
Dim DerLig As Integer ' numero de la dernière ligne
Dim i, j As Integer
Sheets("feuil1").Select
DerLig = Range("A65535").End(xlUp).Row
j = 2
For i = 2 To DerLig
If InStr(1, Cells(i, 1), "titre") > 0 Then
'il y a le mot titre on écrit la valeur en feuille2
Sheets("feuil2").Cells(j, 1).Value = Cells(i, 1).Value
j = j + 1
End If
Next
End Sub
A+