Tableau vers une base de données

Bonjour à tous,

Svp j'ai un tableau que je remplisse manuellement de 16 lignes, afficher les données de ce tableau dans une autre feuille sous forme d'une base de données en appuyant sur un bouton

je vous remercie

Ci - joint la photo du tableau

Bonjour Mmhmina, le forum,

Il s'agit d'un forum Excel , et non Photoshop...

Merci de joindre un fichier représentatif sans données confidentielles...pour voir comment sont structurées tes données....

Avec ton bouton, tu souhaites donc archiver le contenu de ton tableau dans une autre feuille et vider son contenu ?

Cordialement,

merci pour votre réponse

oui je souhaite archiver ses données sous forme d'une base de données dans une autre onglet

j'ai fait un programme mais ça m'archive seulement la première ligne du tableau pas les autres lignes

et ce qui concerne vider c'est déjà fait

Re,

Tu ne peux pas joindre un fichier ?

Crdlt,

Malheureusement y'a des données confidentiel c'est pour ça

Re,

Ton code alors ?

Crdlt,

'Remplir Arrêts L7

Dim compteur_2 As Integer

Dim entree_2 As Boolean

For compteur_2 = 6 To 20

If entree_2 = False Then

If IsEmpty(Worksheets("Arrêts L7").Cells(compteur_2, 2).Value) = True Then

Worksheets("Arrêts L7").Cells(compteur_2, 2) = Range("D4").Value

Worksheets("Arrêts L7").Cells(compteur_2, 5) = Range("D5").Value

Worksheets("Arrêts L7").Cells(compteur_2, 6) = Range("D6").Value

Worksheets("Arrêts L7").Cells(compteur_2, 7) = Range("D7").Value

Worksheets("Arrêts L7").Cells(compteur_2, 8) = Columns("N").Value

Worksheets("Arrêts L7").Cells(compteur_2, 10) = Range("Q05").Value

Worksheets("Arrêts L7").Cells(compteur_2, 12) = Range("R05:S05").Value

Worksheets("Arrêts L7").Cells(compteur_2, 13) = Range("T05:U05").Value

Worksheets("Arrêts L7").Cells(compteur_2, 14) = Range("V05").Value

entree = True

End If

End If

Next compteur_2

ci joint une partie du fichier

merci d'avance

Re,

A tester...

Sub transfert()
 Dim source As Worksheet, destination As Worksheet
  Dim derlig As Integer, lig As Integer
   Set source = Sheets("TBD")
   Set destination = Sheets("BD")
    With source
     For lig = 6 To 21
      If .Range("B" & lig) <> "" Then
        derlig = destination.Cells(Rows.Count, "B").End(xlUp).Row + 1
        destination.Range("B" & derlig) = Date  '........................date du jour
        destination.Range("C" & derlig) = DatePart("ww", Date, 2, 2) '...semaine
        destination.Range("D" & derlig) = Year(Date) '...................année
        'destination.Range("E" & derlig) = ?? '..........................poste ??
        'destination.Range("F" & derlig) = ?? '..........................chef équipe ??
        'destination.Range("G" & derlig) = ?? '..........................conducteur ligne ??
        destination.Range("H" & derlig) = .Range("B" & lig) '............référence
        'destination.Range("I" & derlig) = ?? '..........................type ??
        destination.Range("J" & derlig) = .Range("E" & lig) '............durée panne
        'destination.Range("K" & derlig) = ??'...........................durée maintenance ??
        destination.Range("L" & derlig) = .Range("F" & lig) '............machine
        destination.Range("M" & derlig) = .Range("H" & lig) '............cause
      End If
     Next lig
     .Range("B6:D21,F6:J21").ClearContents '.............................efface le tableau de saisie
    End With
End Sub

Cordialement,

je vous remercie je vais tester je vais voir