Voici ce que j'aimerais arriver à faire :
J'ai un formulaire à remplir, je le remplis puis j'enregistre. Et bien là,
j'aimerais qu'en cliquant sur enregistrer ce formulaire (un bouton), qu'Excel
me crée un autre formulaire identique au précédent(vierge) que je peux
remplir et ainsi de suite. Le nombre de formulaire peut-être de 50.
Voilà, si vous avez des exemples, une explication, je suis preneur.
J'ai un formulaire ... tu parles de Userforms ou de feuilles de calculs ?
Jo-Soupin
Philippe,
essaie cette macro : auparavant tu auras nommé l'ensemble des champs de ton formulaire en "zone_de_saisie". Si tes cellules sont discontinues, tu les selectionnes en gardant les touches Ctrl et Alt enfoncées. La feuille de ton formulaire original est appelé "formulaire".
J'ai un formulaire ... tu parles de Userforms ou de feuilles de calculs ?
Philippe,
essaie cette macro :
auparavant tu auras nommé l'ensemble des champs de ton formulaire en
"zone_de_saisie". Si tes cellules sont discontinues, tu les
selectionnes en gardant les touches Ctrl et Alt enfoncées. La feuille
de ton formulaire original est appelé "formulaire".
essaie cette macro : auparavant tu auras nommé l'ensemble des champs de ton formulaire en "zone_de_saisie". Si tes cellules sont discontinues, tu les selectionnes en gardant les touches Ctrl et Alt enfoncées. La feuille de ton formulaire original est appelé "formulaire".
J'ai un formulaire ... tu parles de Userforms ou de feuilles de calculs ?
Philippe
Je te rappelle que ce sont des cases Excel, comment faire pour les transformer en "zone de saisie" ?
Philippe
Philippe,
essaie cette macro : auparavant tu auras nommé l'ensemble des champs de ton formulaire en "zone_de_saisie". Si tes cellules sont discontinues, tu les selectionnes en gardant les touches Ctrl et Alt enfoncées. La feuille de ton formulaire original est appelé "formulaire".
J'ai un formulaire ... tu parles de Userforms ou de feuilles de calculs ?
Je te rappelle que ce sont des cases Excel, comment faire pour les
transformer en "zone de saisie" ?
Philippe
Philippe,
essaie cette macro :
auparavant tu auras nommé l'ensemble des champs de ton formulaire en
"zone_de_saisie". Si tes cellules sont discontinues, tu les
selectionnes en gardant les touches Ctrl et Alt enfoncées. La feuille
de ton formulaire original est appelé "formulaire".
Je te rappelle que ce sont des cases Excel, comment faire pour les transformer en "zone de saisie" ?
Philippe
Philippe,
essaie cette macro : auparavant tu auras nommé l'ensemble des champs de ton formulaire en "zone_de_saisie". Si tes cellules sont discontinues, tu les selectionnes en gardant les touches Ctrl et Alt enfoncées. La feuille de ton formulaire original est appelé "formulaire".
J'ai un formulaire ... tu parles de Userforms ou de feuilles de calculs ?
Jo-Soupin
Philippe,
tu peux faire encore plus simple, tu copies (manuellement) la feuille de ton formulaire sur une nouvelle feuille que tu appelles "formulaire" (ou autre) , tu effaces les cellules que tu veux voir vierges. Tu peux même masquer cette feuille. C'est une copie de cette feuille que tu ajouteras avant de sauvegarder par VB cette fois. Dans un module standard, tu copies ceci
Sub CreeNewSheetAndSave() Application.ScreenUpdating = False Worksheets.Add.Move after:=Worksheets(Worksheets.Count) ActiveSheet.Name = "formulaire" & Worksheets.Count Worksheets("formulaire").Activate Cells.Copy Destination:=Worksheets("formulaire" & Worksheets.Count).Range("A1") ThisWorkbook.Save End Sub
Philippe,
tu peux faire encore plus simple, tu copies (manuellement) la feuille
de ton formulaire sur une nouvelle feuille que tu appelles "formulaire"
(ou autre) , tu effaces les cellules que tu veux voir vierges. Tu peux
même masquer cette feuille. C'est une copie de cette feuille que tu
ajouteras avant de sauvegarder par VB cette fois. Dans un module
standard, tu copies ceci
Sub CreeNewSheetAndSave()
Application.ScreenUpdating = False
Worksheets.Add.Move after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = "formulaire" & Worksheets.Count
Worksheets("formulaire").Activate
Cells.Copy Destination:=Worksheets("formulaire" &
Worksheets.Count).Range("A1")
ThisWorkbook.Save
End Sub
tu peux faire encore plus simple, tu copies (manuellement) la feuille de ton formulaire sur une nouvelle feuille que tu appelles "formulaire" (ou autre) , tu effaces les cellules que tu veux voir vierges. Tu peux même masquer cette feuille. C'est une copie de cette feuille que tu ajouteras avant de sauvegarder par VB cette fois. Dans un module standard, tu copies ceci
Sub CreeNewSheetAndSave() Application.ScreenUpdating = False Worksheets.Add.Move after:=Worksheets(Worksheets.Count) ActiveSheet.Name = "formulaire" & Worksheets.Count Worksheets("formulaire").Activate Cells.Copy Destination:=Worksheets("formulaire" & Worksheets.Count).Range("A1") ThisWorkbook.Save End Sub
