Effacer cellules vides tableau et remonter les donnees enVBA

bonjour,

je cherche le moyen en vba, dans le fichier exemple joint, par l'action sur le bouton, de faire remonter et empiler toutes les cellules contenant des données en haut du tableau (le nom et la valeur devant rester associés.

merci

J ai un début de solution.

mais il me faut appuyer plusieurs fois sur le bouton....

une idée pour éviter ce problème?

salut

essai ça

Sub test()

Dim counter, i
counter = WorksheetFunction.CountIfs(Range("a1:a" & Range("a1000").End(xlUp).Row), "")
  Do Until (counter = 0)
For i = 2 To Range("a1000").End(xlUp).Row
If IsEmpty(Range("a" & i)) Then
Rows(i).Delete
End If
Next i
 counter = counter - 1
Loop
End Sub

excellent !!! merci beaucoup. ça fonctionne nickel

sorry !

j'ai un problème qui s'est ajouté ! le bouton de commande remonte en même temps que les données du tableau.

Une solution

en fait, j'ai re testé et tout remonte.

il faudrait que ce soit uniquement les données du tableau

SALUT

ET CA

Sub remonte()

Dim counter, i

counter = WorksheetFunction.CountIfs _
(Range("a1:a" & Range("a1000").End(xlUp).Row), "")
 Do Until (counter = 0)

For i = 2 To Range("a1000").End(xlUp).Row

If IsEmpty(Range("a" & i)) Then
Range("a" & i + 1 & ":b" & i + 1).Cut _
    Destination:=Range("a" & i & ":b" & i)
    End If

Next i
 counter = counter - 1
Loop
End Sub

ça fonctionne bien, mais au ralenti chez moi. si je n'arrive pas à mieux, je garderai ta solution.

merci

je l'accelere légèrement avec :

Sub test()

Application.ScreenUpdating = False

Dim counter, i

counter = WorksheetFunction.CountIfs _

(Range("a1:a" & Range("a1000").End(xlUp).Row), "")

Do Until (counter = 0)

For i = 2 To Range("a1000").End(xlUp).Row

If IsEmpty(Range("a" & i)) Then

Range("a" & i + 1 & ":b" & i + 1).Cut _

Destination:=Range("a" & i & ":b" & i)

End If

Next i

counter = counter - 1

Loop

Application.ScreenUpdating = True

End Sub

mais ce n'est pas le top !