Créer une feuille avec un inputbox + y copier des données
Bonjour,
Je débute en vba, je cherche à créer une feuille à placer en dernière toute à droite pour ensuite pouvoir y copier des données.
Je n'arrive pas à avoir une feuille vierge, elle me copie toujours les données de la feuille copiée.
Voici mon début de code :
Private Sub Weekly_Click()
Dim s As String
Dim i As Integer
s = _
InputBox("Veuillez saisir le nom de la feuille!", _
"Attribuer des noms de feuille", "")
If s = "" Then Exit Sub
i = Sheets.Count
On Error Resume Next
Sheets(1).Copy After:=Sheets(i)
ActiveSheet.Name = s
UserForm2.Show
End Sub
Je dois ensuite récupérer des données dans 5 Textbox différentes de mon userform qui comporteront les titres des feuilles dans lesquelles elle devra allé chercher les données. Puis les copier dans la feuille créée au dessus.
Mais je vous avoue que je commence à bloquer :(...
(c'est pour faire un Weekly sur des prod)
Bonjour,
Merci d'utiliser les balises de codes en cliquant sur l'icone </> disponible dans le menu et en collant le code dans la fenêtre. Il sera plus facile à lire.
Essayez ceci pour l'ajout
Private Sub Weekly_Click()
Dim s As String
s = InputBox("Veuillez saisir le nom de la feuille!", "Attribuer des noms de feuille", "")
If s = "" Then Exit Sub
On Error Resume Next
ThisWorkbook.Worksheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = s
Load UserForm2
UserForm2.Show
End SubCordialement