VBA décalage colonne en fonction de critère

[fleur2touraine]

Bonjour,

Je dois rédiger une macro permettant l'importation de données d'un appareil de mesure au format csv en xls.
Je suis totalement débutant et n'ai aucune formation en programmation.

Mes données sont un % de chaque élément dans un matériau.
J'ai réussi à importer mes données, cependant lorsque le % d'un élément est inférieur à la limite de détection de l'appareil, il remplit deux colonnes au lieu d'une: <0.0 sous l'élément correspondant, puis la valeur trouvée dans la colonne du prochain élément...
Mes colonnes se retrouvent alors décalées.

J'ai essayé un code qui: quand il trouve <0.0 dans la cellule, il copie la partie de la colonne+1 qu'il colle dans colonne-1, ainsi de suite jusqu'à x.
Par contre impossible de passer aux mesures suivantes, ... si vous aviez une idée je suis preneur!!!

macro.JPG


Merci de votre aide!
-----

[cherbe]

Bonjour

J'ai essayé un code qui: quand il trouve <0.0 dans la cellule, il copie la partie de la colonne+1 qu'il colle dans colonne-1, ainsi de suite jusqu'à x.
Par contre impossible de passer aux mesures suivantes, ... si vous aviez une idée je suis preneur!!!

Montre-nous ce code.

[fleur2touraine]

dim....

Dim LIGNE As Integer
Dim LIGNE2 As Integer
Dim Rang As Integer

Rang = 1
LIGNE = 3
LIGNE2 = LIGNE + 3
Lig = 1
Sheets("Données").Activate
Set PLAGE = Sheets("Données").Range(Cells(LIGNE), Cells(LIGNE + 3, 42))

For Each cell In PLAGE

    If cell.Value = "<0.0" Then
            Rang = cell.Column
            Lig = cell.Row
            Range(Cells(Lig & Rang), Cells(Lig + 3 & Rang)).Select
            selection.ClearContents
            Rang = Rang + 1
            ActiveSheet.Range(Cells(LIGNE, Rang), Cells(LIGNE + 3, Rang)).Select
            selection.Cut
            Rang = Rang - 1
            Range(Cells(LIGNE, Rang), Cells(LIGNE + 3, Rang)).Select
            ActiveSheet.Paste
            Rang = Rang + 2
            ActiveSheet.Range(Cells(LIGNE, Rang), Cells(LIGNE + 3, Rang)).Select
            selection.Cut
            Rang = Rang - 1
            Range(Cells(LIGNE, Rang), Cells(LIGNE + 3, Rang)).Select
            ActiveSheet.Paste
            Rang = Rang + 2
            ActiveSheet.Range(Cells(LIGNE, Rang), Cells(LIGNE + 3, Rang)).Select
            selection.Cut
            Rang = Rang - 1
            Range(Cells(LIGNE, Rang), Cells(LIGNE + 3, Rang)).Select
            ActiveSheet.Paste
            Rang = Rang + 2
            ActiveSheet.Range(Cells(LIGNE, Rang), Cells(LIGNE + 3, Rang)).Select
            selection.Cut
            Rang = Rang - 1
            Range(Cells(LIGNE, Rang), Cells(LIGNE + 3, Rang)).Select
            ActiveSheet.Paste
            Rang = Rang + 2

(etc etc.....)

end if
Lig = Lig+7
next

c'est crado je sais...

[cherbe]

tu devrais écrire les noms de variables en Français pour éviter le risque qu'un nom de variable soit un mot clé.
On va débuger ligne par ligne

Range(Cells(Lig & Rang), Cells(Lig + 3 & Rang)).Select

Pas bon ça. remplace l'esperluette par une virgule :

Range(Cells(Lig , Rang), Cells(Lig + 3 , Rang)).Select

Sinon, exécute la macro pas à pas en appuyant sur la touche F8 du clavier pour chaque ligne de code.
Tu verras où ça bloque.

[A voir en vidéo sur Futura]

[fleur2touraine]

super ça fonctionne!
merci