Permanence

Bonjour à tous,

avant tout une bonne et heureuse anné 2018 (un peu en avance).

voici mon probléme:

je fais des recherches sur la roulette et j'ai un fichier ou je garde mes numéros.

j'ai donc plein de petits tableau de 10 colonnes mis les uns en dessous des autres.

afin de faire des statistique j'aimerais mettre dans une nouvelle feuille les numéros sur une seule colonne(il doit y avoir environ 15 000 numéros).

la lecture des tableau se fait dans le sens normale de lecture.

pour cela il faut:

1 enlever toutes les ligne vides.

2 mettre les numéros sur une seule colonne.

3 enlever les cases vide (car certain tableau on une ligne non entière).

mais voilà je n'y connais rien à part les formules de base et là je crois qu'il faut faire des macros (au secourrrrrrrrrr)

à l'avance merci pour votre aide.

Daniel

Bonjour,

Une piste !

Tu dis :

la lecture des tableau se fait dans le sens normale de lecture.

donc, de gauche à droite et de haut en bas !

"For Each Cel In Plage" parcours la plage de cette façon.

Ajoutes une feuille nommée "Feuil2" et regardes le résultat en colonne A :

Sub Test()

    Dim Plage As Range
    Dim Cel As Range
    Dim Tbl() As Integer
    Dim I As Long

    With Worksheets("Feuil1"): Set Plage = .Range(.Cells(1, 1), .Cells(.Rows.Count, 10).End(xlUp)): End With

    For Each Cel In Plage

        If Cel.Value <> "" Then

            I = I + 1: ReDim Preserve Tbl(1 To I)
            Tbl(I) = Cel.Value

        End If

    Next Cel

    With Worksheets("Feuil2")

        .Range(.Cells(1, 1), .Cells(UBound(Tbl), 1)).Value = Application.Transpose(Tbl())

    End With

End Sub

Bonjour Theze,

je viens de faire un essai et c'est tout bon.

un grand merci à toi.

passe un bon réveillon et tout ce que tu désire pour cette année 2018 qui arrive.

Daniel

Merci à toi et bonne année 2018 !