Discussion :

[joarc]

Bonjour la communauté,
Je me permet de vous solliciter pour un coup de main sur pour réaliser une macro. Je pratiquais assidument il y a quelques années mais j'avoue qu'avec le temps et l'absence de pratique je ne sais plus vraiment par quel bout commencer...

Je vous explique rapidement ce que je souhaite réaliser avec cette macro et le contexte :

J'ai acquis un boitier accéléromètre 3D qui me permet d'enregistrer au format CSV des données de déplacement dans les 3 axes X,Y,Z à une fréquence donnée (400Hz, soit 400 mesures par secondes)
Ce qui fait un paquet de données à digérer sur un cycle de 60 secondes...

Une fois converti, mon tableau excel contient 4 colonnes (dans l'ordre: time,Ax,Ay,Az) et 24000 lignes de données dont seulement 1600 lignes consécutives m’intéressent mais ces 1600 lignes ne se situent pas systématiquement au mème endroit dans mes échantillonnage.

Manuellement je procède ainsi :
- je cherche la mesure max de la colonne B (correspondant à mon axe Ax) et je me déplace à la ligne correspondante que je répère avec "EQUIV(MAX(B:B);B:B;0)"
- je descends de 800 lignes et je supprime toutes les autres qui sont en-dessous (elles ne me servent pas)
- Idem dans l'autre sens... je remonte de 800 lignes à partir de la ligne de valeur max et je supprime tout ce qui est au-dessus (idem elles ne me servent pas)
- résultat j'ai un tableau de 1600 lignes avec la ligne médiane correspondante au max de Ax ce qui me permet d'analyser ce qui se passe 2 secondes avant jusqu'à 2 secondes après avoir atteint le pic.
- je fais un graphique avec ces données que je peux comparer ainsi avec mes autres échantillonnage.

Voilà si quelqu'un a un peu de temps à perdre ce serait vraiment super.
Au plaisir de vous lire
JO

[BENNASR]

jo bonjour
en colonne B tu cherche le max de la colonne pour un code qui existe en colonne A ??

[joarc]

Bonjour BENNASR,
C'est sympa de te pencher sur mon pb, çà fait des heures que je tourne en rond
Non, en fait l'idée est de trouver le max de la colonne B et de virer à partir de là un certain nombre de lignes de mon tableau
Je sais trouver le n° de ligne qui correspond à mon max de ma colonne B avec ActiveCell.FormulaR1C1 = "=MATCH(MAX(C[-3]),C[-3],0)" mais je ne sais pas sélectionner automatiquement la ligne que me renvoie cette formule.

[BENNASR]

peux tu donner un exemple sur un petit fichier excel sans macro et avec 10 lignes de donnée

[joarc]

Voilà un exemple sur 20 lignes.
Mon max de la colonne B se situe en ligne 10. Disons que je souhaite garder 4 lignes avant et 6 lignes après le max et supprimer toutes les autres lignes qui ne me servent à rien. Cela me permet de recentrer mon analyse vibratoire sur une plage bien précise.

[BENNASR]

re JO
ce n'est que du bricolage à tester sur une copie de ton travail et à amiliorer
désolé c'est le weekend
peut etre le lundi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub testttt()
Dim w1 As Worksheet
Dim derlig As Long
Set w1 = Worksheets("Feuil1")
derlig = w1.Cells(Rows.Count, 1).End(xlUp).Row
Application.ScreenUpdating = False
Dim Plage As Range
Dim Cel As Range
Set Plage = w1.Range("B2:B" & derlig)
For Each Cel In Plage
If Cel.Value = Application.Max(w1.Range("B2:B" & derlig)) Then
L = Cel.Row
C = Cel.Column
End If
Next Cel
For I = derlig To L + 5 Step -1
Rows(I).Delete
Next I
For I = L - 5 To 2 Step -1
Rows(I).Delete
Next I
End Sub