Delete ne fonctionne pas
marie
-
Polux31 Messages postés 6917 Date d'inscription Statut Membre Dernière intervention -
Polux31 Messages postés 6917 Date d'inscription Statut Membre Dernière intervention -
Bonjour à tous,
j'ai un souci avec mon code, le .Delet ne fonctionne pas.
Je voudrais qu'il suprime les lignes qui contiennent un #NA dans la 2eme colonne.
For i = 4 To dernligne
If Workbooks("one gate exportation 3").Sheets("Financements").Cells(i, 2) <> "E0009" Then
Sheets("provisoire").Cells(i - 3, 1) = Sheets("Financements").Cells(i, 2).Offset(0, 1)
Sheets("provisoire").Cells(i - 3, 3) = Sheets("Financements").Cells(i, 2).Offset(0, 2)
End If
Columns("A:A").EntireColumn.AutoFit
Sheets("provisoire").Cells(i - 3, 2) = Application.VLookup(Sheets("provisoire").Cells(i - 3, 1).Value, Sheets("Feuil3").Range("A1:C500"), 3, False)
If WorksheetFunction.IsNA(Cells(i - 3, 2)) = True Then
Cells(i - 3, 2).EntireRow.Delete
Else
End If
Next
à la place de supprimer la ligne, il supprime le contenu. Pour voir où ça coinçait, j'ai testé plusieurs chose, comme par exemple remplacer la .Delete par =3 et cela me donne bien des 3 dans toutes les cellules de la ligne donc la condition et l'entirerow fonctionnent bien.
Est ce que quelqu'un a une idée de ce que je fais mal ?
Merci d'avance !!
j'ai un souci avec mon code, le .Delet ne fonctionne pas.
Je voudrais qu'il suprime les lignes qui contiennent un #NA dans la 2eme colonne.
For i = 4 To dernligne
If Workbooks("one gate exportation 3").Sheets("Financements").Cells(i, 2) <> "E0009" Then
Sheets("provisoire").Cells(i - 3, 1) = Sheets("Financements").Cells(i, 2).Offset(0, 1)
Sheets("provisoire").Cells(i - 3, 3) = Sheets("Financements").Cells(i, 2).Offset(0, 2)
End If
Columns("A:A").EntireColumn.AutoFit
Sheets("provisoire").Cells(i - 3, 2) = Application.VLookup(Sheets("provisoire").Cells(i - 3, 1).Value, Sheets("Feuil3").Range("A1:C500"), 3, False)
If WorksheetFunction.IsNA(Cells(i - 3, 2)) = True Then
Cells(i - 3, 2).EntireRow.Delete
Else
End If
Next
à la place de supprimer la ligne, il supprime le contenu. Pour voir où ça coinçait, j'ai testé plusieurs chose, comme par exemple remplacer la .Delete par =3 et cela me donne bien des 3 dans toutes les cellules de la ligne donc la condition et l'entirerow fonctionnent bien.
Est ce que quelqu'un a une idée de ce que je fais mal ?
Merci d'avance !!
A voir également:
- Delete ne fonctionne pas
- Hiberfil.sys delete - Guide
- Juste delete me - Guide
- *#9900# delete dumpstate/logcat ✓ - Forum Samsung
- Delete doctor - Télécharger - Divers Utilitaires
- Delete dumpstate/logcat en francais - Forum Samsung
3 réponses
Tu veux dire que le numéro de ligne n'est pas effacé ?
Parce que chez moi ça fonctionne !!!
Parce que chez moi ça fonctionne !!!
la ligne est vide mais pas supprimée. j'ai testé ce code dans un autre classeur, et il fonctionne aussi. Donc je ne comprends pas du tout pourquoi dans cette macro là ça ne va pas.
Ca m'ennerve de ne pas comprendre, surtout quand la commande est aussi simple qu'un .Delete ! merci pour ton aide en tout cas
Ca m'ennerve de ne pas comprendre, surtout quand la commande est aussi simple qu'un .Delete ! merci pour ton aide en tout cas
