Bonjour,
Pour faire simple je voudrais supprimer dans une plage de données variables toutes les lignes renvoyant #REF!
Etant débutant en VBA j'ai essayé en m'inspirant de réponses sur le net de coder la fonction ci-dessous:
Malgré ma boucle FOR pour obtenir une suppression à 100% je dois relancer plusieurs fois la Fonction nettoyage.
Si vous pouviez me corriger ou m'aiguiller sur une fonction qui supprime du 1er coup ça m'aiderait,
Merci d'avance.
Pour info :
_ j'utilise excel 2003
_ je travaille sur un tableau à plusieurs onglet, l'onglet SYNTHESE reprend des infos d'autres onglets avec un collage par liaison
_ la fonction nettoyage doit corriger les erreurs de l'onglet SYNTHESE qui apparaissent suite à l'archivage des données sources contenues dans les autres onglets
Pour faire simple je voudrais supprimer dans une plage de données variables toutes les lignes renvoyant #REF!
Etant débutant en VBA j'ai essayé en m'inspirant de réponses sur le net de coder la fonction ci-dessous:
Code:
Sub Nettoyage_SYNTHESE_1()
Dim Rw As Range
Dim Ligne As Long
Sheets("SYNTHESE").Select
Range("A5").Select
Selection.Rows.End(xlDown).EntireRow.Select
Range("$A$5", Selection).Select
For Each Rw In Selection.Rows
Ligne = Rw.Row
If IsError(Rw.Cells(1, 1)) Then
Rw.Select
If MsgBox("Detection données à supprimer", vbExclamation + vbOKOnly, "**** MESSAGE IMPORTANT ****") = vbOK Then
Selection.Delete
End If
End If
Next Rw
End Sub
Malgré ma boucle FOR pour obtenir une suppression à 100% je dois relancer plusieurs fois la Fonction nettoyage.
Si vous pouviez me corriger ou m'aiguiller sur une fonction qui supprime du 1er coup ça m'aiderait,
Merci d'avance.
Pour info :
_ j'utilise excel 2003
_ je travaille sur un tableau à plusieurs onglet, l'onglet SYNTHESE reprend des infos d'autres onglets avec un collage par liaison
_ la fonction nettoyage doit corriger les erreurs de l'onglet SYNTHESE qui apparaissent suite à l'archivage des données sources contenues dans les autres onglets