Verouillage cellules

boujour,

j'importe des donnees exterieures a excel que je colle dans une feuille excel qui comporte 50 lignes et en dessous j'ai des formules qui traitent les donnees importees, j'ai un soucis avec cette macro qui me nettois les donnees importes et qui me supprme des ligne et je pense que c'est a ce moment que les formules sont modifies et dans certaines je me retrouve avec des #REF!, j'ai essaye de verrouiller les cellules avec des formules mais ca ne change rien, je pense que c'est la derniere ligne "Is Nothing Then Rows(I).Delete "qui est fautive mais je n'arrive pas a contourner le probleme, ci dessous la macro

Sub InsertEbay()
Dim I As Integer
For I = [A65000].End(xlUp).Row To 1 Step -1
If Not Cells(I, 1).Find("ebay") Is Nothing Or _
Not Cells(I, 1).Find("Post") Is Nothing Or _
Not Cells(I, 1).Find("Item ID:") Is Nothing Or _
Not Cells(I, 1).Find("Sales") Is Nothing Or _
Not Cells(I, 1).Find("ricoux") Is Nothing Or _
Not Cells(I, 1).Find("thanks") Is Nothing Or _
Not Cells(I, 1).Find("love") Is Nothing Or _
Not Cells(I, 1).Find("vat") Is Nothing Or _
Not Cells(I, 1).Find("aviation") Is Nothing Or _
Not Cells(I, 1).Find("southend") Is Nothing Or _
Not Cells(I, 1).Find("ss2 6un") Is Nothing Or _
Not Cells(I, 1).Find("subtotal") Is Nothing Or _
Not Cells(I, 1).Find("united") Is Nothing Or _
Not Cells(I, 1).Find("frontrunner") Is Nothing Or _
Not Cells(I, 1).Find("date") Is Nothing Or _
Not Cells(I, 1).Find("packing") Is Nothing Or _
Not Cells(I, 1).Find("price") Is Nothing Or _
Not Cells(I, 1).Find("20%") Is Nothing Or _
Not Cells(I, 1).Find("authorities.") Is Nothing Then Rows(I).Delete
Next I
End Sub

Edit modo : code à mettre entre balises avec le bouton </>

merci de votre aide

phil

Bonsoir Philric

Il faudrait nous déposer le fichier pour que l'on puisse se rendre compte

Mais si vos formules font appel directement aux cellules, c'est normal que vous ayez #REF!

En général on utilise soir DECALER(), soit INDIRECT()

A+

je me suis debrouille autrement et ca fonctionne en tout cas merci

phil

Re,

Ne pensez pas qu'à vous, si vous avez trouvé une solution... partagez là SVP

A+