Bonjour,
Je viens aujourd'hui pour partager avec vous ma solution concernant la sauvegarde d'un tableau actualisé. En effet, j'ai abouti à faire copier un tableau à la suite d'un autre dans une autre feuille.
Voilà le code :
Sub AZS()
Dim ws1 As Worksheet
Dim ws2 As Worksheet
Dim i As Long
Set ws1 = ActiveWorkbook.Worksheets("Feuil3")
Set ws2 = ActiveWorkbook.Worksheets("Modèle1")
i = ws2.Range("B" & Rows.Count).End(xlUp).Row + 1
ws1.Activate
Range("D7:L15").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
ws2.Select
Cells(i, 2).Select
Cells(i, 2).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Cells(i, 2).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Cells(i, 2).EntireRow.Insert
End Sub
et je suis arrivée aussi à créer une nouvelle feuille dont le contenu est variable (cellule F2). Voilà le code :
Sub Create_sheet_model()
Dim Fe As Worksheet
If VarType(Sheets("Feuil3").Range("F2")) = VarType(ValPrec) Then _
If ValPrec = Sheets("Feuil3").Range("F2") Then Exit Sub
MsgBox "Cellule F2 passe de " & CStr(ValPrec) & _
" vers " & CStr(Sheets("Feuil3").Range("F2"))
ValPrec = Sheets("Feuil3").Range("F2")
Set Fe = Sheets.Add(After:=Worksheets(Worksheets.Count))
Fe.Name = Sheets("Feuil3").Range("F2").Value
End Sub
Mais mon problème maintenant c'est comment utiliser la nouvelle feuille au sein de la première macro lors de la définition du worksheet ws2 d'une façon dynamique.
Merci pour votre aide.