Générer des fiches en fonction d'une fiches modèle Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
F
Funka
Nouveau venu
Nouveau venu
Messages : 9
Inscrit le : 20 décembre 2014
Version d'Excel : 2013 FR

Message par Funka » 21 décembre 2014, 12:12

Un ami a réussi à me trouver quelque chose, qui fonctionne pas trop mal.

Je vous en fait part pour toutes les personnes qui ont cherchés à me fournir une solution.

Merci.

Sub create_list_tab()
Dim name As Range
Dim name_exist As Integer
Application.ScreenUpdating = False
Set name = Worksheets("Fiche principale").Range("B3")
On Error Resume Next
Do Until IsEmpty(name)
  Err = 0
  Worksheets("Tableau d'analyse CMR").Copy After:=Worksheets(ThisWorkbook.Sheets.Count)
  With Worksheets(ThisWorkbook.Sheets.Count)
  .name = name.Value
  .Range("C1") = name.Value
  .Range("C3") = Date
  End With
If Err <> 0 Then
  Application.DisplayAlerts = False
  ActiveSheet.Delete
  Application.DisplayAlerts = True
End If
Set name = name.Offset(1, 0)
Loop
Application.ScreenUpdating = True
End Sub
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message