Insertions Lignes Si

[KN4]

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]

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 :

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]

Re : Insertions Lignes Si

MERCI beaucoup ca marche
merci pour ce bon coup de pouce