Bonjour,
J'aurais besoin d'aide pour automatiser le traitement de mes données (plus de 200 fichiers).
Chaque fichier représente des intensités (I) en fonction de longueurs d'ondes d'excitation (EX) en ligne 1 et de longueur d'onde d'émission (EM) colonne 1.
Je souhaiterais, pour chaque EX, supprimer les intensités correspondant à des EM < EX.
J'ai bidouillé un peu pour tomber sur le code suivant:
ça fonctionne mais seulement en partie... c'est à dire qu'il me supprime toutes les intensités inférieures à EX la plus grande alors que je voudrais que ça soit différent pour chaque EX.
Je joins un fichier de base et également ce que je voudrais obtenir au cas ou ça ne serait pas très clair...
Si quelqu'un a un peu de temps pour m'aider, ça serait vraiment super!
Bonne journée à tous!
J'aurais besoin d'aide pour automatiser le traitement de mes données (plus de 200 fichiers).
Chaque fichier représente des intensités (I) en fonction de longueurs d'ondes d'excitation (EX) en ligne 1 et de longueur d'onde d'émission (EM) colonne 1.
Je souhaiterais, pour chaque EX, supprimer les intensités correspondant à des EM < EX.
J'ai bidouillé un peu pour tomber sur le code suivant:
Code:
Sub Test()
Dim C As Range, Plg1 As Range, k As Range, Plg2 As Range
Set Plg2 = Range(Cells(1, 2), Cells(Columns.Count, 25).End(xlUp))
Set Plg1 = Range("A2:A302")
For Each C In Plg2
Set k = Plg1.Find(C.Value, LookAt:=xlPart)
If Not k Is Nothing Then
Range(C.Offset(1, 0), k.Offset(0.1)).Clear
End If
Next C
End Sub
ça fonctionne mais seulement en partie... c'est à dire qu'il me supprime toutes les intensités inférieures à EX la plus grande alors que je voudrais que ça soit différent pour chaque EX.
Je joins un fichier de base et également ce que je voudrais obtenir au cas ou ça ne serait pas très clair...
Si quelqu'un a un peu de temps pour m'aider, ça serait vraiment super!
Bonne journée à tous!