Insertions Lignes Si

KN4 · 14 Août 2006

Bonjour,

J'ai une feuille avec avec beaucoup de data à traiter

Je voudrais juste une macro qui fait:

A chaque fois que la collonne I affiche FAIL incrementer 4 lignes.

collonne G COLLONNE H COLLONNE I

Mreg X(nm) Mreg Y(nm)
2,5 -0,7 -0,6 -0,6 PASS
2,5 -1 -0,5 -0,7 PASS
2,5 -0,9 -0,6 -0,6 FAIL
2,5 -0,8 -0,6 -0,5 PASS
2,3 -0,9 -0,5 -0,8 PASS
2,8 -2,5 -0,6 -0,6 FAIL

Ce qui donnerai

Mreg X(nm) Mreg Y(nm)
2,5 -0,7 -0,6 -0,6 PASS
2,5 -1 -0,5 -0,7 PASS
2,5 -0,9 -0,6 -0,6 FAIL
2,5 -0,9 -0,6 -0,6 FAIL
2,5 -0,9 -0,6 -0,6 FAIL
2,5 -0,9 -0,6 -0,6 FAIL
2,5 -0,9 -0,6 -0,6 FAIL
2,5 -0,8 -0,6 -0,5 PASS
2,3 -0,9 -0,5 -0,8 PASS
2,8 -2,5 -0,6 -0,6 FAIL
2,8 -2,5 -0,6 -0,6 FAIL
2,8 -2,5 -0,6 -0,6 FAIL
2,8 -2,5 -0,6 -0,6 FAIL
2,8 -2,5 -0,6 -0,6 FAIL

merci POUR VOTRE AIDE

KUB

porcinet82 · 14 Août 2006

Re : Insertions Lignes Si

Salut Kub,

Tu n'es pas sur le bon forum, tu aurais du poster sur le forum Excel et non dans le sallon, mais Pascal va passer et déplacera le fil, c'est pourquoi je me permet de te répondre ici tout de même.

Voici une macro qui devrait faire ce que tu souhaites :

PHP:

Sub test()
Dim i&
For i = Range("I65536").End(xlUp).Row To 2 Step -1
    If Cells(i, 9).Value = "FAIL" Then
        Rows(i).Copy
        Rows(i + 1 & ":" & i + 3).Insert Shift:=xlDown
    End If
Next i
End Sub

@+

KN4 · 14 Août 2006

Re : Insertions Lignes Si

MERCI beaucoup ca marche
merci pour ce bon coup de pouce

Insertions Lignes Si

KN4

XLDnaute Nouveau

porcinet82

XLDnaute Barbatruc

KN4

XLDnaute Nouveau

Discussions similaires