facheux problemes...

[kikouyou]

Bonsoir ami extra-lucide,

Je souhaite tester des cellules selon leur contenu et prendre une valeur dans une cellule adjacente.

le problème est que pour un même contenu il m'arrive que la valeur change de cellules si 2 cellules plus bas que le contenu il y a un contenu particulier

ex :

LOC 1 AX, 16.190948, 0.250000, 0.250000, 16.136881, -0.054067, 0.000000
LOC 2 AX:X, -21.000000, 0.000000, 0.000000, 0.000000, -21.003571, -0.003571, 0.000000, 0.000000
LOC 2 AX:Y, 101.300000, 0.000000, 0.000000, 0.000000, 101.509958, 0.209958, 0.000000, 0.000000
LOC 2 AXF, 16.000000, 0.250000, 0.250000, 0.000000, 16.136881, 0.136881, 0.000000, 0.000000
LOC 2 AX:TP MOD: ITE-CMM, 0.000000, 0.800000, 0.000000, 0.000000, 0.000000, 0.419977, 90.974356, 0.000000


mais si je n'est pas de CMM au dessous de AX:X et AX:Y alors :


LOC 1 AX:X, 2.000000, 0.010000, 0.010000, 2.000000, 0.000000, 0.000000
LOC 2 AX:Y, 6.000000, 0.010000, 0.010000, 6.000000, 0.000000, 0.000000


c'est le résultat en rouge que je souhaite copier...


Ce n'est pas évident à expliquer et je pense à solutionner. Surtt qu'il peut y avoir de 1 à 10000 lignes par fichier...


Si vous pouviez m'apporter vos lumières...


Merci



ps : je réfléchis de mon coté naturellement

 

[JCGL]

Re : facheux problemes...

Bonjour à tous,

Et si tu déposais un bout de fichier (pas les 1000 lignes arf), cela serait plus simple pour tous

A+

 

[kikouyou]

Re : facheux problemes...

et voilou comme demander les deux sortes de fichiers différents.

Dsl pour le délai, le work oblige


tks


kikouyou

 

[kikouyou]

Re : facheux problemes...

Eureka


G trouver la solution, peut etre pas la plus optimiser mais ca marche!!!


si cela vous interesse je peux la diffuser


bonne soiree a tous et merci

 

[JCGL]

Re : facheux problemes...

Bonjour à tous,

Voici mon essai avec ce que j'ai compris .
Ton fichier 1.txt en C:\1.txt.
Un clique sur le GO du fichier Essai.xls
Et tu nous dis (je ne suis vraiment pas sur que les lignes valorisées en J soient celles que tu souhaitais).

XLD étant un Forum d'Entreaide, nous sommes bien sur preneur de ta solution.
Juste pour voir la solution et relire ton énoncé...

A+

 

[kikouyou]

Re : facheux problemes...

C'est simple, ( enfin quand on a trouvé ! )

j'utilise la fonction droite pour ne conserver que 3 lettres de la colonne A


ActiveCell.Value = Right(ActiveCell.Value, 3)


Ensuite des que je trouve X:X je vais tester si la colonne I est vide ou pas. si elle est vide je copie la valeur de la colonne E dans la colonne F. a la fin je prends l'ensemble des valeurs de la colonne F.

ElseIf ActiveCell.Value = "X:X" Then Call essaifab

Sub essaifab()

ActiveCell.Offset(rowOffset:=0, columnOffset:=-1).Activate ( colonne I )

zzzz = ActiveCell.Value

If zzzz = "" Then
ActiveCell.Offset(rowOffset:=0, columnOffset:=-4).Activate
ActiveCell.Copy
ActiveCell.Offset(rowOffset:=0, columnOffset:=1).Activate
ActiveSheet.Paste
ActiveCell.Offset(rowOffset:=0, columnOffset:=4).Activate
ActiveCell.Offset(rowOffset:=1, columnOffset:=0).Activate



ElseIf zzzz <> "" Then
ActiveCell.Offset(rowOffset:=1, columnOffset:=1).Activate ( je pense à la ligne suivante )




End If






Et je répete cela pour les differents suffixes nécessitant la manip'.


Merci


Cordialement kikouyou



ps : je regarderai votre solution demain faute de temps