Aide pour Macro de selection specifique de cellule

[papaalien]

Bonjour,
Je viens sur votre forum pour demander de l'aide concernant la réalisation d'une macro. Malgré la lecture attentive du tutorial, par ailleurs très bien réalisé, je n'y arrive absolument pas.
Dans le cadre de mes études en doctorat, je dois analyser des milliers d'échantillons en chromatographie gazeuse.Les fichiers de résultats sortent sous format .csv, que j'ouvre sous Excel.

Dans le fichier exemple joint, voici a quoi ressemble mes fichiers de données.
Il y a ici 8 échantillons repartis chacun sur une ligne. (Mes fichiers en temps normal comptent plusieurs centaines de lignes)
Les chiffres au sein de chaque ligne correspondent à mes résultats. J'ai mis en couleurs ici ceux qui m’intéressent :
en rouge, il s'agit d'un temps auquel le pic de gaz est émis : ici je cherche entre 2.5 et 2.6 .
Ce temps se répète pour toutes les lignes.
Les chiffres en jaune, qui précède toujours ceux en rouge sont les tailles des pics de gazs. Ils varient en fonction des echantillons.

Besoin pour la macro :
A l'heure actuelle, je fais tout le travail à la main : je sélectionne mes deux cellules (jaune et rouge) et je copie colle dans une autre feuille.
Je voudrais que la macro scanne ma feuille et sélectionne toutes les cellules dont la valeur est comprise entre 2.5 et 2.6 ( En rouge dans l'exemple) ( je voudrais pouvoir definir cet intervalle ). Je veux qu'elle selectionne egalement toute les cellules situées une colonne avant les cellules que l'on vient de selectionner ( en jaune dans mon fichier )
Une fois selectionne, je pourrais copié mes resultats dans un autre fichier.

Je ne sais pas si ce type de macro est réalisable

Merci d'avance pour votre aide

[Misterno]

Bonsoir,

Les couleurs ne sont pas passées donc la compréhension est impossible.

Si tu nous donnes les repères de colonnes l'on pourra peut être faire quelque-chose.

[dubois]

Bonsoir à tous,

Peux tu faire manuellement une feuille avec les résultats attendus ?
(en + des couleurs)

Amicalement
Claude

[papaalien]

merci je ne m'en etais pas appercu

les valeurs sont
jaune rouge
0.16511 2.53706
1.95788 2.53634
3.85495 2.53567
7.01867 2.53555
18.08252 2.53488
36.30287 2.53509
54.17751 2.53294
72.58273 2.53296

je fais la feuille mais ca ressemblerait a ca

EDIT : je modifie le fichier de depart avec couleur et resultat

-- 09 Juin 2011, 20:17 --

Voila le fichier initial a retrouvé des couleurs et j'ai mis en dessous les resultats attendus
merci

[Banzai64]

Bonsoir

Une version simple
Une simple version

[papaalien]

Merci beaucoup,
cela semble fonctionner parfaitement et correspondre a mes besoins.
Pourrais tu m'expliquer ton code, même de façon très sommaire, que je progresse un peu ?


Set WsDest = Sheets("Feuil2")
Lg = 2
With WsDest
.Cells.ClearContents
For J = 4 To Range("B65536").End(xlUp).Row
.Cells(Lg, "A") = J - 3
.Cells(Lg, "B") = Cells(J, "B")
For Cl = 4 To Cells(J, "IV").End(xlToLeft).Column Step 2
If Val(Cells(J, Cl)) >= ValMini And Val(Cells(J, Cl)) <= ValMaxi Then
.Cells(Lg, "C") = Cells(J, Cl - 1)
.Cells(Lg, "D") = Cells(J, Cl)
End If
Next Cl
Lg = Lg + 1
Next J
End With

End Sub

merci

[Banzai64]

Bonjour

Quelques explications dans le code

[papaalien]

Un grand merci a Banzai , tout fonctionne a merveille et avec les explications, c'est encore mieux.

[dubois]

Bonjour à tous,

Bonjour Banzai64,

je découvre grâce à ta macro, le fonction Val(...)

Code: Tout sélectionner

If Val(Cells(J, Cl)) >= 2.5 Then

Connaitrais-tu dans le même genre une fonction qui permettrait de remplacer la cellule
Cells(J, Cl) par le maxi de la colonne Cl ?
quelque chose du genre:

Code: Tout sélectionner

If Application.Max(Columns(Cl)) >= 2.5 Then

sachant que la colonne n'est pas en numérique.

Excusez l'intrusion sur le poste
Bonne journée

Amicalement
Claude

[Banzai64]

Bonjour Claude

Je ne comprends pas
Si la colonne n'est pas en numérique, la fonction te retourne 0 et le test ne se fait pas
Mais sans doute quelque chose m'échappe

Si tu peux donner un exemple de ce que tu veux à moins que quelqu'un d'autre qui n'a pas les neurones en vacances comprendra

A te lire