Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionJuste une question de faciliter l'utilisation pour éviter de changer de feuille. Et UserForm ça va encombrer un peu non?
WorkSheets("toto").Range("B12").value = "bonjour"
Set WorkSh = Sheets.Add(After:=Sheets(Sheets.Count)) WorkSh.Name = NomFeuille Worksheets(NomFeuille).Range("A1").Value = Date Worksheets(4).Activate Range("B2:AY100").Select Selection.Copy With Worksheets(NomFeuille).Range("B3:AY1000") .PasteSpecial Paste:=xlPasteValues .PasteSpecial Paste:=xlPasteFormats .Application.CutCopyMode = False End With '*******Mise en page************ Worksheets(NomFeuille).Columns("A:B").ColumnWidth = 18 Worksheets(NomFeuille).Columns("C:C").ColumnWidth = 35 Worksheets(NomFeuille).Columns("D:D").ColumnWidth = 19
With Sheets.Add(After:=Sheets(Sheets.Count)) .Name = NomFeuille .Range("A1").Value = Date Range("B2:AY100").Copy Destination:=.Range("B3") .Columns("A:B").ColumnWidth = 18 .Columns("C:C").ColumnWidth = 35 .Columns("D:D").ColumnWidth = 19 End With
Dim invite As String, nomfeuille As String, toto As String invite = "Entrez le nom de la feuille" Do nomfeuille = InputBox(invite, "Nouvelle feuille", "Sauvegarde Analyse " & (i + 1 - 4)) On Error Resume Next toto = Worksheets(nomfeuille).Name If Err And nomfeuille <> "" Then On Error GoTo 0 Exit Do Else invite = IIf(nomfeuille <> "", "ce nom de feuille existe déjà ! recommencez", "donnez un nom de feuille !") End If Loop
If Err And nomfeuille <> "" Then
invite = IIf(nomf...