Discussion :

[lourid]

Bonjour a tout le monde j’écris da l’Italie, j’espère m’exprimer bien.
Dans un fichier Excel je a joins j’ai dans la feuille 2 3 colonnes

A B C Dans la colonne A numéro d’entreprise employé dans la colonne B Date et dans la colonne C l’abréviation de l’absence avec les heures

Je voudrais utiliser le code VBA pour columnize les données comme dans la feuille 3
Dans la colonne A la matriculation et sous les dates dans la colonne C l’absence avec les heures


Je joins le fichier xlsm

[ARTURO83]

Bonjour,

Le code Vba

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
 
Sub Copiare()
    Dim DerLig_F1 As Long
    Dim f1, f2
 
    Application.ScreenUpdating = False
    Set f1 = Sheets("Foglio2")
    Set f2 = Sheets("Foglio3")
    f2.Cells.Clear
 
    DerLig_F1 = f1.[A10000].End(xlUp).Row
    f1.Range(Cells(1, "A"), Cells(DerLig_F1, "C")).Copy Destination:=f2.Cells(1, "A")
 
    Matr = Cells(1, "A")
    For i = 2 To DerLig_F1
        If f2.Cells(i, "A") = Matr Then
            f2.Cells(i, "A") = ""
        Else
            Matr = Cells(i, "A")
        End If
    Next
 
    f2.Select
    For i = 1 To DerLig_F1
        If Cells(i, "A") <> "" Then
            Matr = Cells(i, "A")
            Rows(i).Insert Shift:=xlDown
            Cells(i, "B") = Matr
            With Cells(i, "B").Font
                .Name = "Calibri"
                .Size = 11
                .Color = -16776961
            End With
            i = i + 1
        End If
    Next
    Columns(1).Delete
End Sub

Le fichier
Pièce jointe 478989

Cdlt

[lourid]

Merci Arturo pour votre sollicitude


Il est possible d'avoir la colonne B sous A et C à côté

[ARTURO83]

Bonjour,

Je ne comprends pas, n'est-ce pas ce qui était demandé?

------Avant(Foglio2)-------------------------------------------------- Après(Foglio3)
Pièce jointe 479286 ------------- Pièce jointe 479290

Cdlt

[lourid]

Bonsoir,
exactement et ce que je voudrais mais après avoir couru la macro ça me donne ce résultat:

[lourid]

J'ai associé la macro à un bouton