diminution de ligne

laskar

XLDnaute Nouveau
Actuellement en stage, j'aimerais savoir comment realiser une extration de données avec Excel. Plus précisement, sur mon fichier excel j'ai une série de données mesurées toutes les minute et j'aimerais pouvoir extraire les données mesurées toutes les 17 minutes (pour avoir moins de points). Par exemple, on peut considerer la mesure du nombre de tour d'un moteur chaque minute pour mieux comprendre...
 

Risleure

XLDnaute Occasionnel
Re : diminution de ligne

Bonjour laskar, le Forum

Une idée de code qui permet d'éliminer 16 lignes sur 11 colonnes (valeurs à ajuster si besoin) :
Code:
Sub Purgeur()

'Permet de purger des lignes inutiles dans un Tableau en références relatives
'à partir de la cellule active
'Modifier l'offset en fonction du besoin. Fin de macro par test de cellule active vide

    Do Until ActiveCell.Value = ""
        Range(ActiveCell, ActiveCell.Offset(16, 11)).Select
        Selection.Delete Shift:=xlUp
        ActiveCell.Offset(1, 0).Select
    Loop
    
End Sub
Attention au choix de la cellule de départ !!!
Ce code s'arrete quand la cellule rencontrée est vide

A+
 

Discussions similaires

Réponses
37
Affichages
2 K

Statistiques des forums

Discussions
312 251
Messages
2 086 623
Membres
103 266
dernier inscrit
moonie