Discussion :

[La Zélie]

Bonsoir à tous,

Il y a quelque jour mon pc(Win98se et E-02) est tombé en panne mais j'avais sauvegardé toutes mes données sur un dd externe.

Je suis sous Xp : j'ai retrouvé toutes mes données sauf mon Perso.xls .j'avais oublié de le sauvegarder

J'ai réécris plusieurs macros sans problème sauf une :
- dans la colonne F je recherche les cellules contenant NP et je supprime la ligne.

Voilà mon code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim i As Long
Dim Plage As Range

Set Plage = Range("F2:F" & Range("F2").End(xlDown).Row)
 
 For i = Plage.Cells.Count To 1 Step -1
    If Plage.Cells(i).Value = "NP" Then
   Plage.Cells(i).EntireRows.Delete
    End If
Next

End Sub

il s'arrête sur la ligne rouge et je ne vois pas pourquoi

J'ai essayé avec ce code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
for i = 1 to 65536
if cells(i,6)="" then exit for
cells(i,6)="NP" then
rows(i).delete
i=i-1
end if
next i

là il me dit qu'il me manque le 'bloc if'

Je compte sur vous pour me dire ce qui manque dans mon code.

Merci

[alsimbad]

pour la premiere, difficile de te dire, pour la seconde

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
for i = 1 to 65536
if cells(i,6)="" then exit for
cells(i,6)="NP" then
rows(i).delete
i=i-1
end if
next i

l'erreur vient de cette ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
if cells(i,6)="" then exit for
 

soit tu écris une seule instruction
if cond = true then msgbox "ok"
soit tu en met plusieur et donc
if cond = true then
msgbox "ok"
.....
end if
donc soit

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
if cells(i,6)="" then 
exit for

soit il te manque le if devant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

cells(i,6)="NP" then

'je pense que c'est cette derniere

[La Zélie]

Bonjour,

Merci alsimbad

J'ai trouvé le problème sur mon premier code: une faute d'orthographe!
il faut écrire EntireRow sans s

Bonne journée à tous