KrokroExcel
XLDnaute Nouveau
Bonjour a tous,
J'ai un fichier avec 5 colonnes : (REFF_ID ORIG_FID Y_coord X_coord code) et 537549 lignes!
"code" a des valeurs egales a 0 ou 1 (voir fichier joint qui correspond aux 856 premieres lignes de mon fichier).
Ce que je souhaiterai c'est inserer une ligne lorsque code = 1 (i.e. inserer une ligne au dessus du 1). Si possible, je voudrais ensuite remplir les nouvelle ligne vides/inserees avec des NaN.
J'ai fouille sur le forum et essaye d'adapte des programmes en VBA pour deja inserer les lignes mais je suis debutante et cela ne marche pas!
Voila mon code:
Est ce que quelqu'un a une idee?
Merci d'avance!
J'ai un fichier avec 5 colonnes : (REFF_ID ORIG_FID Y_coord X_coord code) et 537549 lignes!
"code" a des valeurs egales a 0 ou 1 (voir fichier joint qui correspond aux 856 premieres lignes de mon fichier).
Ce que je souhaiterai c'est inserer une ligne lorsque code = 1 (i.e. inserer une ligne au dessus du 1). Si possible, je voudrais ensuite remplir les nouvelle ligne vides/inserees avec des NaN.
J'ai fouille sur le forum et essaye d'adapte des programmes en VBA pour deja inserer les lignes mais je suis debutante et cela ne marche pas!
Voila mon code:
Code:
Sub insert_ligne()
Dim i As Integer
Application.ScreenUpdating = False
For i = 1 To 537549
If (Cells(i, 7) = 1) Then
Cells(i, 1).Select
EntireRow.Insert
i = i + 1
End If
Next
Application.ScreenUpdating = True
End Sub
Est ce que quelqu'un a une idee?
Merci d'avance!