Etendre une sélection multiple sous Excel

Bonjour à tous.

Je me trouve face à un problème pourtant simple mais sans réponse.

Je souhaite supprimer un nombre important de ligne dans un tableau comportant une seule colonne de 25 000 lignes.

Chaque ligne comportes différentes informations.

J'ai fait une sélection via F5 afin que toutes les cellules vides soit sélectionné.

Une fois toutes ces lignes vides sélectionné qui se situe a des intervalles de ligne différente je souhaiterais étendre cette sélection de 1 ligne c'est a dire la case vide + celle d'en dessous et cela sur toutes mes ligne sélectionné via F5.

Comment puis-je étendre cette sélection?

Je vous remercie pour vos réponses

Bonjour

zinzinjb a écrit :

Comment puis-je étendre cette sélection?

Peut-être avec une macro ?

Mais il faudrait joindre ton fichier ...

Bye !

Bonjour.

En effet c'est faisable par macro, j'ai des doutes sur la possibilité de le faire sans. (j'ai essayé en coloriant les cases, mais je sais pas sélectionner par couleur alors ça m'a pas bien avancé ).

Ceci dit tu comptes en faire quoi de tes cellules ?

Sub SU()
Dim plage As Range
Dim i As Integer
i = 1
Do Until i = 25000
    If IsEmpty(Cells(i, 1)) Then
        If plage Is Nothing Then
            Set plage = Union(Cells(i, 1), Cells(i + 1, 1))
        Else
            Set plage = Union(plage, Cells(i, 1), Cells(i + 1, 1))
        End If
    End If
    i = i + 1
Loop
plage.Select
End Sub

Bonne journée.

Je comptais supprimé les cellules sélectionné ensuite.

Je vais essayer votre code. Je reviens vers vous une fois testé.

Tu ne peux pas supprimer des lignes comme ça.

Essaye avec ça

Sub SU()
Dim i As Integer
Dim k As Integer
i = 1
For k = 1 To 25000
    If IsEmpty(Cells(i, 1)) Then
    Rows(i).Delete
    Rows(i).Delete
    Else
    i = i + 1
    End If
    k = k + 1
Next k
End Sub

Le code fonctionne parfaitement !

Merci beaucoup

Hmmm... en fait pas tout à fait.

Si tu as deux lignes vides à la suite il ne supprimera pas la troisième ligne.

Sub SU()
    Dim i As Integer
    Dim k As Integer
    i = 1
    For k = 1 To 25000
        If IsEmpty(Cells(i, 1)) Then
        Rows(i).Delete
If not IsEmpty(Cells(i,1)) then Rows(i).Delete
        Else
        i = i + 1
        End If
        k = k + 1
    Next k
    End Sub