A
Art
Guest
Bonjour à tous les participants à ce Forum et bon week end
J'ai trouver cette macro sur le forum qui est très interessante et qui permet de colmater les lignes vides d'une colonne en remontant les données qui se trouvent en dessous sans laisser de trous.
Sub colmater()
Dim collect As New Collection
Dim cptr, nbre As Long
Application.ScreenUpdating = False
'nbre = Application.CountA(Range("A:A")) + 1
nbre = Range("A65536").End(xlUp).Row
cptr = 1
While cptr <= nbre
If IsEmpty(Cells(cptr, 1)) = False Then
collect.Add (Cells(cptr, 1).Value)
End If
cptr = cptr + 1
Wend
Range("A:A").ClearContents
nbre = collect.Count
cptr = 1
While cptr <= nbre
Cells(cptr, 1) = collect.Item(cptr)
cptr = cptr + 1
Wend
Set collect = Nothing
End Sub
Ma question est de savoir si il est possible qu'elle fasse la meme chose mais vers la droite et dans une selection que j'aurais choisi auparavant.
Je fais des essais depuis quelques heures mais je bloque.
Quelqu'un aurait il une idée ou un début d'indice?
Merci à tous
@+
Art
J'ai trouver cette macro sur le forum qui est très interessante et qui permet de colmater les lignes vides d'une colonne en remontant les données qui se trouvent en dessous sans laisser de trous.
Sub colmater()
Dim collect As New Collection
Dim cptr, nbre As Long
Application.ScreenUpdating = False
'nbre = Application.CountA(Range("A:A")) + 1
nbre = Range("A65536").End(xlUp).Row
cptr = 1
While cptr <= nbre
If IsEmpty(Cells(cptr, 1)) = False Then
collect.Add (Cells(cptr, 1).Value)
End If
cptr = cptr + 1
Wend
Range("A:A").ClearContents
nbre = collect.Count
cptr = 1
While cptr <= nbre
Cells(cptr, 1) = collect.Item(cptr)
cptr = cptr + 1
Wend
Set collect = Nothing
End Sub
Ma question est de savoir si il est possible qu'elle fasse la meme chose mais vers la droite et dans une selection que j'aurais choisi auparavant.
Je fais des essais depuis quelques heures mais je bloque.
Quelqu'un aurait il une idée ou un début d'indice?
Merci à tous
@+
Art