Récupération de données

Bonjour à tous,

Je cherche à créer une petite base de données simple en récupérant des informations se trouvant sur plusieurs onglets.

A savoir un nom, une date et un code.

Je joins un fichier plus explicite pour bien comprendre.

Merci pour vos retours.

AL 22

10recup-donnees.zip (15.70 Ko)

Bonjour,

à tester,

Sub Transfert()
For Each f In Worksheets
    If f.Name <> "Données" Then
        Set sh = Sheets(f.Name)
        rw = sh.Cells(Rows.Count, "A").End(xlUp).Row
        col = sh.Cells(3, Columns.Count).End(xlToLeft).Column

        For i = 4 To rw
            For j = 2 To col
              If sh.Cells(i, j) <> "" Then
                rw0 = Sheets("Données").Cells(Rows.Count, "A").End(xlUp).Row + 1
                Sheets("Données").Cells(rw0, "A") = sh.Cells(i, 1) & " " & Format(sh.Cells(3, j), "dd/mm/yyy") & " " & sh.Cells(i, j)
              End If
            Next j
        Next i
    End If
Next f
End Sub

Bonsoir i20100,

Placé dans This Workbook le code fonctionne plutôt bien (petite correction sur la date) merci, mais je voudrai que la liste s'actualise sans doublon lors des différentes saisies.

Effectivement, j'aurai peut-être du le préciser lors de ma demande...

A+

AL 22

re,

voici la modification,

Sub Transfert()
For Each f In Worksheets
    If f.Name <> "Données" Then
        Set sh = Sheets(f.Name)
        rw = sh.Cells(Rows.Count, "A").End(xlUp).Row
        col = sh.Cells(3, Columns.Count).End(xlToLeft).Column

        For i = 4 To rw
            For j = 2 To col
              If sh.Cells(i, j) <> "" Then
                rw0 = Sheets("Données").Cells(Rows.Count, "A").End(xlUp).Row + 1
                t = sh.Cells(i, 1) & " " & Format(sh.Cells(3, j), "dd/mm/yyyy") & " " & sh.Cells(i, j)
                If IsError(Application.Match(t, Sheets("Données").Range("A:A"), 0)) Then
                  Sheets("Données").Cells(rw0, "A") = t
                End If
              End If
            Next j
        Next i
    End If
Next f
End Sub

Re i20100,

Merci, cela fonctionne très bien.

Bonne fin de soirée.

AL 22

Rechercher des sujets similaires à "recuperation donnees"