autoscroll

[Francis]

Bonsoir le forum
Après une recherche sur le forum , je n’ai pas trouvé la solution, alors je me remets à vous.
Je remplis un tableau séquentiellement, ligne par ligne, avec un userform.
Ligne = Sheets('Feuil1').Range('b25').End(xlUp).Row + 1
Aléatoirement des lignes peuvent être effacées.
Je voudrais qu’à la fin du tableau (à la 25ème ligne) If Range('b25').Value <> '' Then
‘ s’il y a des lignes vides que toutes les lignes se décalent vers le haut afin que je puisse continuer à remplir le tableau
J’ai fait cela mais cela détruit ma mise en page.

Sub scrollLigne()
Application.ScreenUpdating = False
For r = 25 To 7 Step -1
If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete
Next r
End Sub
En somme, est-il possible de faire un autoscroll vers le haut sur des lignes afin de boucher les trous ?
Merci
Francis

 

[Zon]

Salut,


Si tes cellules sont rééellement vides:

[A1:A65536].specialcells(xlcelltypeblanks).entirerow.delete


A+++

 

[Francis]

Bonjour XLDnaute et le forum
j'ai cherché midi à quatorze heures et c'etait tout simple,ta solution me convient.
Merci beaucoup
Francis