Création macro pour formulaire

Bonjour

J'aimerai créer un formulaire dans l'onglet 1 qui alimente l'onglet 2 automatiquement dans un tableau par le biais d'une macro.

J'ai créer un exemple afin de voir le résultat.

Merci beaucoup pour votre aide

Bonjour, ce sera un code un peu répétitif car vous souhaitez pouvoir valider jusqu'à trois projets sur trois lignes

différentes ..... il faudra donc tester si projet 2 et projet 3 renseigné ou non.

Bonjour Elodie63200, Xmenpl , le forum,

Un autre essai....

Sub SAISIE()

  Dim ListObj As ListObject, Sh As Worksheet, ws As Worksheet, j As Long, i As Long

         Set ws = Sheets("Saisie des données")
             dl = ws.Range("A" & Rows.Count).End(xlUp).Row
         Set Sh = Sheets("Résultat")
    Set ListObj = Sh.ListObjects("Tableau2")
              j = Sh.Cells(Rows.Count, 1).End(xlUp).Row
              i = 3

  Do While i <= dl
    With ListObj
     Sh.Cells(j, 1) = ws.Range("B1")
     Sh.Cells(j, 2) = ws.Range("B2")
     Sh.Cells(j, 3) = ws.Range("B" & i)
     Sh.Cells(j, 4) = ws.Range("B" & i + 1)
     Sh.Cells(j, 5) = ws.Range("B" & i + 2)
     Sh.Cells(j, 6) = ws.Range("B" & i + 3)
     Sh.Cells(j, 7) = ws.Range("B" & i + 4)
     .ListRows.Add: j = Sh.Cells(Rows.Count, 1).End(xlUp).Row
    End With
   i = i + 5
   Loop
   MsgBox "Projet enregistré"
End Sub
13elodie.xlsm (26.95 Ko)

Cordialement,

Bonjour

Merci beaucoup pour le temps que vous avez consacré à me répondre,

Bien à vous

Rechercher des sujets similaires à "creation macro formulaire"