Report données Feuil1 dans feuil 2

Bonsoir à tous.

N' ayant que peu de connaissances en VBA, je n' ose pas me lancer. Et je crois que VBA est la solution à mon problème.

Je dois reporter les données Feuil(ListeAdm) dans Feuil(TabProg), le copier coller est à oublier, la présentation est différente.

Recopie de valeurs de cellules non contigus dans une seule, c' est ce qui me pose problème.

Les recopies manuelles sont sources d' erreurs.

Je joins le fichier, j' espère qu' il est assez clair pour le comprendre.

Bien cordialement.

Bonjour,

D'où vient le B en TabProg!A4 ?

Bonjour MFerrand

pardonnez moi j' ai oublié de préciser que les colonnes A ,E, G et I dans TabProg sont réservées pour d' éventuelles annotations.

Les autres colonnes sont servies à partir des infos de la feuille ListAdmi

Bien cordialement.

Vraiment du sur-mesure qu'il te faut !

Sub Activites()
    Dim Tact(), n%, i%, a%
    With Worksheets("ListeAdm")
        n = .Cells(.Rows.Count, 2).End(xlUp).Row
        For i = 12 To n
            If .Cells(i, 2) <> "" Then
                a = a + 1: ReDim Preserve Tact(8, a)
                Tact(1, a) = .Cells(i + 1, 1)
                Tact(2, a) = .Cells(i + 1, 4) & Chr(10) & .Cells(i, 4)
                Tact(3, a) = .Cells(i, 7) & Chr(10) & .Cells(i + 1, 7)
                Tact(5, a) = .Cells(i, 8) & Chr(10) & .Cells(i + 1, 8)
                Tact(7, a) = .Cells(i + 1, 13)
            End If
        Next i
        If a > 0 Then Tact(0, 0) = .Cells(11, 1)
    End With
    Application.ScreenUpdating = False
    With Worksheets("TabProg")
        .Range("A3:I" & .UsedRange.Rows.Count + 3).Clear
        With .Range("A3").Resize(a + 1, 9)
            .Value = WorksheetFunction.Transpose(Tact)
            With .Offset(1).Resize(a, 9)
                .HorizontalAlignment = xlCenter
                .VerticalAlignment = xlCenter
                .WrapText = True
                .RowHeight = 25.5
                .Borders.Weight = xlThin
            End With
        End With
    End With
End Sub

Cordialement.

je ne comprends pourquoi ton tableau est organisé de cette manière : 2 lignes pour une même interventions, des cellules fusionnées des colonnes vides, 2 informations dans une seule cellule (age, sexe), l'age peut se calculer à partir de la date de naissance

j'ai rajouté une feuille en mettant tout sur la même ligne et en utilisant la notion de tableau nommé, pour la recopie ce serait plus simple et une lecture plus facile du tableau

Bonsoir Gullaud.

Je suis comme toi, ce tableau me surprend par son organisation. C' est pour un ami, donc je ne veux pas modifier son tableau.

En lui montrant ce que tu proposes, il acceptera les modifs.

Tu me dis que tu as ajouté une feuille en mettant tout sur la même ligne, je n' ai pas le fichier joint.

Cordialement

Bonsoir MFerrand

Je te remercie de ton aide précieuse, ceci a solutionné le problème.

Il est vrai qu'avec l' organisation de ce tableau il fallait du sur mesure.

Bonne soirée et un grand merci.