D
Damien
Guest
Bonjour,
Vous aimez résoudre les problèmes, ehbien en voila un !
je crée une nouvelle feuille qui porte le nom entré par l'utilisateur dans une imputbox.
Des lignes viennent se coller d'une autre feuille, vers cette nouvelle feuille.
Ca fonctionne avec le code suivant (meme s'il n'est pas ecrit avec une extreme purete! ):
Private Sub EnregistrerMesQuantités_Click()
Dim StrMonCode As String
StrMonCode = InputBox("Quel est votre code?")
Sheets.Add.Name = StrMonCode
Sheets("Bon").Activate
Rows("27:4000").Select
Selection.Copy
Sheets(StrMonCode).Select
ActiveSheet.Paste
MsgBox "Les quantités ont bien été enregistrées"
Sheets("Bon").Select
MesInfos.Hide
End Sub
Mon problème est maintenant de gérer une erreurs qui pourrait se produire :
-Si le nom entré ds l'imputbox existe déja, il faut alors qu'il enregistre les données sur la feuille existant déja, et donc qu'il ne crée pas de nouvelle feuille.
-
Vous aimez résoudre les problèmes, ehbien en voila un !
je crée une nouvelle feuille qui porte le nom entré par l'utilisateur dans une imputbox.
Des lignes viennent se coller d'une autre feuille, vers cette nouvelle feuille.
Ca fonctionne avec le code suivant (meme s'il n'est pas ecrit avec une extreme purete! ):
Private Sub EnregistrerMesQuantités_Click()
Dim StrMonCode As String
StrMonCode = InputBox("Quel est votre code?")
Sheets.Add.Name = StrMonCode
Sheets("Bon").Activate
Rows("27:4000").Select
Selection.Copy
Sheets(StrMonCode).Select
ActiveSheet.Paste
MsgBox "Les quantités ont bien été enregistrées"
Sheets("Bon").Select
MesInfos.Hide
End Sub
Mon problème est maintenant de gérer une erreurs qui pourrait se produire :
-Si le nom entré ds l'imputbox existe déja, il faut alors qu'il enregistre les données sur la feuille existant déja, et donc qu'il ne crée pas de nouvelle feuille.
-