regroupement de nombres d'une colonne

JJ1 · 19 Juin 2008

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 · 19 Juin 2008

Re : regroupement de nombres d'une colonne

Bonjour jj1

regarde peut être le code ci dessous :

Code:

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 · 19 Juin 2008

Re : regroupement de nombres d'une colonne

Bonjour JJ1,
salut Pierrot 🙂,

une autre proposition:

Code:

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:

Code:

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

Si tu as les 2:

Code:

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

Bonne journée.

BOISGONTIER · 19 Juin 2008

Re : regroupement de nombres d'une colonne

Bonjour,

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

JB

regroupement de nombres d'une colonne

JJ1

Guest

Pierrot93

XLDnaute Barbatruc

skoobi

XLDnaute Barbatruc

BOISGONTIER

XLDnaute Barbatruc

Discussions similaires

regroupement de nombres d'une colonne

JJ1

Guest

Pierrot93

XLDnaute Barbatruc

skoobi

XLDnaute Barbatruc

BOISGONTIER

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency