regroupement de nombres d'une colonne

[JJ1]

Bonjour, je n'ai pas trouvé sur le forum la formule pour regrouper tous les nombres d'une colonne où certains nombres sont séparés par des cellules vides.
ex en A1:
6


3
4


8

1
donnerait en B1:
6
3
4
8
1
merci et bonne journée

 

[Pierrot93]

Re : regroupement de nombres d'une colonne

Bonjour jj1

regarde peut être le code ci dessous :

Sub test()
Dim i As Integer
Range("A1:A" & Range("A65536").End(xlUp).Row).Copy Range("B1")
For i = Range("B65536").End(xlUp).Row To 1 Step -1
    If IsEmpty(Cells(i, 2).Value) Then Cells(i, 2).Delete shift:=xlShiftUp
Next i
End Sub

bonne journée
@+

 

[skoobi]

Re : regroupement de nombres d'une colonne

Bonjour JJ1,
salut Pierrot 🙂,

une autre proposition:

columns(1).cells.specialcells(xlCellTypeConstants).copy [B1]

Ceci ne prend en compte que les cellules contenants des valeurs ou du texte.
Si tu as des formules il faut ajouter cette ligne:

columns(1).cells.specialcells(xlCellTypeFormulas).copy [B1]

Si tu as les 2:

columns(1).cells.specialcells(xlCellTypeConstants + xlCellTypeFormulas).copy [B1]

Bonne journée.

 

[BOISGONTIER]

Re : regroupement de nombres d'une colonne

Bonjour,

[A:A].SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp


JB