Macro suppression ligne vide ne fonctionne pas

Résolu/Fermé

Loiwi Messages postés 37 Date d'inscription vendredi 1 février 2019 Statut Membre Dernière intervention 29 septembre 2020 - 14 avril 2020 à 09:08
Loiwi Messages postés 37 Date d'inscription vendredi 1 février 2019 Statut Membre Dernière intervention 29 septembre 2020 - 15 avril 2020 à 15:26

Bonjour,

j'ai défini une macro supprimant les lignes d'une feuille Excel si la première cellule de chaque ligne est vide.
J'ai naturellement repris des formules trouvées sur le Net et j'ai fait de bêtes copier-coller,
mais j'ai toujours le même message d'erreur: Erreur d’exécution '13': Incompatibilité de type au niveau de la ligne "If Cells(i, 1) = "" Then"
Selon vous qu'elle est l'erreur dans le code qui suit?

Sub Delete_line()
For i = Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1
If Cells(i, 1) = "" Then
Cells(i, 1).EntireRow.Delete
End If
Next i
End Sub

Merci d'avance

Configuration: Windows / Chrome 80.0.3987.163

A voir également:

Macro suppression ligne vide ne fonctionne pas
Forcer suppression fichier - Guide
Ne pas apparaître en ligne sur instagram - Guide
Aller à la ligne excel - Guide
Vente en ligne particulier - Guide
Macro word - Guide

6 réponses

Réponse 1 / 6

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
14 avril 2020 à 09:15

Bonjour,

déclare ta variable:

Dim i As Integer

chez moi cela fonctionne!

Réponse 2 / 6

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
Modifié le 14 avril 2020 à 14:11

Bonjour

J'ai fait un essai sur des cellules fusionnées horizontalement et/ou verticalement et c'est OK

Option Explicit
'---------------------------------------------------------------------------
Sub Supprimer_si_vide()
    Dim Ligne As Long
    
    On Error Resume Next
    Ligne = Columns("A").Find("*", , , , , xlPrevious).Row
   Range("A2:A" & Ligne).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

Loiwi Messages postés 37 Date d'inscription vendredi 1 février 2019 Statut Membre Dernière intervention 29 septembre 2020 1
15 avril 2020 à 14:21

Avec la proposition de michel_m, je n'ai plus le message d'erreur mais la macro n'aboutit pas au résultat espéré. Est-ce dû au fait que les cellules qui m’intéressent ne sont pas vraiment vides mais la formule qui est inscrite dedans génère une cellule vide dans certains cas?

Réponse 3 / 6

Loiwi Messages postés 37 Date d'inscription vendredi 1 février 2019 Statut Membre Dernière intervention 29 septembre 2020 1
14 avril 2020 à 09:19

Non toujours pas, est-ce que cela peut-être dû au fait que j'ai des cellules fusionnées dans la colonne A?

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
14 avril 2020 à 09:27

Bien sur, les macros n'aiment pas les cellules fusionnées!

Réponse 4 / 6

Loiwi Messages postés 37 Date d'inscription vendredi 1 février 2019 Statut Membre Dernière intervention 29 septembre 2020 1
14 avril 2020 à 09:29

Y'a t-il un moyen de la faire fonctionner, par exemple lancer la macro sur l'ensemble des colonnes concernées par la fusion?

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
14 avril 2020 à 09:47

essaie ceci:

Sub Delete_line()
Dim i As Long
Dim cellule As Range
Dim derligne As Long
 derligne = Range("A" & Rows.Count).End(xlUp).Row
For i = derligne To 1 Step -1
For Each cellule In Range("A1:A" & derligne)
If Range(cellule.Address).MergeCells Then
Else
If Cells(i, 1) = "" Then
Cells(i, 1).EntireRow.Delete
End If
End If
Next cellule
Next i
End Sub

@+ Le Pivert

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 6

Loiwi Messages postés 37 Date d'inscription vendredi 1 février 2019 Statut Membre Dernière intervention 29 septembre 2020 1
14 avril 2020 à 10:35

J'ai testé la proposition pour les cellules fusionnées, la première sans cellules fusionnées mais j'ai toujours le même problème...

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
14 avril 2020 à 11:08

Voici une boucle sur les cellules fusionnées et enlever la fusion:

Sub detecteFusion()
Dim cellule As Range
Dim derligne As Long
 derligne = Range("A" & Rows.Count).End(xlUp).Row
For Each cellule In Range("A1:A" & derligne) 'adapter plage cellule
If Range(cellule.Address).MergeCells Then
 cellule.UnMerge 'enleve la fusion
End If
Next cellule
End Sub

Réponse 6 / 6

Loiwi Messages postés 37 Date d'inscription vendredi 1 février 2019 Statut Membre Dernière intervention 29 septembre 2020 1
15 avril 2020 à 15:26

J'aurais du commencer par là, en fait j'ai copié un fichier pour garder la mise en forme sans savoir qu'il y'avait des formules cachées derrière. Une fois que j'ai refait la feuille à neuf, la macro initiale a fonctionné parfaitement. Malgré tout je tiens à vous remercier pour la qualité et la rapidité de vos réponses

Discussions similaires

Comment faire le symbole coeur vide/coeur blanc

le frigo ne marche pas....

Que veut dire "correspondant occupé" lors d'un appel ?

Statut « en ligne » alors que non

Discussions similaires

Newsletters