Discussion :

[xliben]

bonjour tout le monde

s il vous plait j ai besoin de votre aide je possede une serie de valeurs sur excel dans une seule ligne chaque 3 valeurs espacees
comme suit 0.543 0.786 0.987 0.765 0.9654 1.765 0.7685 0.432 0.7654 0.7654 0.999 0.654 .......

je voudrais comme resultats


0.543 0.786 0.987
0.765 0.9654 1.765
0.7685 0.432 0.7654
0.7654 0.999 0.654

je vous remercie de votre aide

[Michel_M]

Bonjour

les données en ligne1 départ en A1
le groupement à partir de ligne3, départ en A3
=DECALER(A$1;0;(LIGNE()-3)*3) à tirer jusqu'à colonne C
et copier A3:C3 vers le bas

a adapter à la disposition de ta feuille

[xliben]

fifo tableaux.xlsxmerci Michel pour la reponse j ai essaye la methode mais ca marche pas car j ai pas pu bien explique par la message je vous joint le fichier c est plus clair il s agit de la feuille 2 3,4
comme vous allez remarquer l espace n est pas identique entre les groupes et merci pour votre aide car je possede d autre fichier comme ce type et c est fatigant de travailler manuellement

[Marc-L]

Bonjour,

malgré le manque de précisions, voici un code à adapter si besoin …

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub Transforme(Ws As Worksheet)
    Dim Rg As Range
    Application.ScreenUpdating = False
 
    With Ws
             Set Rg = .[E3].End(xlToRight).CurrentRegion:  L& = 3
        Do While Rg.Count = 3
            A$ = Rg.Cells(3).Address:  L = L + 1
                 Rg.Cut .Cells(L, 2)
             Set Rg = .Range(A).End(xlToRight).CurrentRegion
        Loop
             Set Rg = Nothing
    End With
End Sub
 
Sub Demo()
    Transforme Worksheets(4)
End Sub

__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …