J’ai besoin d’un fichier propre pour envoyer des mails. J’ai exporté le fichier contacts de mon iPhone pour le loger dans un fichier Excel. Problème : C’est du vrac…
Enregistrer une macro pour supprimer les colonnes qui ne m’intéressent pas : j’y arrive.
Par contre, je souhaite supprimer des lignes entières lorsque j’ai des cellules vides dans les colonnes A, B, C et D.
C’est là que j’atteins mes limites !!!
Merci de votre aide
Contacts « nettoyés » 20200406 copie 3.xlsm (124,7 Ko)
Bonjour,
Remplace ta macro par celle-ci
Sub efface_vide()
Dim l As Long, Dl As Long
Dl = Range("A" & Rows.Count).End(xlUp).Row
For l = Dl To 1 Step -1
If Cells(l, "A").Value = "" _
And Cells(l, "B").Value = "" _
And Cells(l, "C").Value = "" _
And Cells(l, "D").Value = "" Then
Cells(l, 1).EntireRow.Delete
End If
Next l
End Sub
Merci à Mimimathy pour ta réactivité… Et en plus, ça fonctionne !!!
Ce sujet a été automatiquement fermé après 30 jours. Aucune réponse n’est permise dorénavant.