Bonjour,
j'ai un petit problème, mes IF ne fonctionne pas vraiment comme je le souhaite.
Je demande de vérifier sur une ligne si une cellule est vide dans se cas vérifier dans celle d'apres si elle est vide aussi
Si les 2 sont vides supprimer la ligne.
probléme si ma 1ere cellule est vide et que la 2éme est rempli il supprime quand même. :-/ Pouvez vous m'aider à dénicher la faute?
Merci d'avance.


nom_fichier = InputBox("Nom du fichier :", "Saisir le nom du fichier à traiter")
If nom_fichier = "" Then Exit Sub
If Right(nom_fichier, 4) <> ".xls" Then nom_fichier = nom_fichier & ".xls"
Workbooks(nom_fichier).Activate
'Workbooks("Zone 1.xls").Activate

Range("A1:AH500").Select
Selection.Copy
Windows("Retour44.xls").Activate
Range("A1").Select
ActiveSheet.Paste
Derligne = Range("A1000").End(xlUp).Row
For NumLigne = Derligne To 2 Step -1
If Range("W" & NumLigne) = "" Then
If Range("X" & NumLigne) = "" Then
Rows(NumLigne).Delete Shift:=xlUp
End If
End If
Next NumLigne
Cells.Select
Selection.RowHeight = 15
End Sub

--
Si vous avez besoin de quelque chose, appelez-moi. Je vous dirai comment vous en passer.
-Coluche-Configuration: Une bonne bébétte bien docile ;-)