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
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