Bonjour le formateur. Je voudrais un tutoriel sur userfom en vba. Merci.
@ExcelFormation
4 жыл бұрын
Bonjour, vous pouvez consulter ce tutoriel : www.excelformation.fr/video-comment-crer-un-formulaire-pour-remplir-une-base-automatiquement.html A bientôt :)
@bassisessaidexcel
4 жыл бұрын
Merci
@ExcelFormation
4 жыл бұрын
De rien :)
@alexia5910
3 жыл бұрын
bonjour, j'ai un problème que je n'arrive pas à résoudre : j'ai une boucle While à faire : j = 10 membre = MsgBox("Voulez-vous saisir un autre membre ?", vbYesNo, "Question") Do While membre = vbYes Nom1 = InputBox("Entrez un nom :", "saisie", 0) Âge1 = InputBox("Entrez un âge : ", "saisie", 0) Worksheets("vacanciers").Cells(i, j).Value = Nom1 Worksheets("vacanciers").Cells(i, j + 1).Value = Âge1 membre = MsgBox("Voulez-vous saisir un autre membre ?", vbYesNo, "Question") j = j + 2 Loop Voici mon problème : ke nom de mes autres membres s'affichent tous en Nom1 Age1 et je ne sais comment faire pour faire les autres membres Nom2 Âge2 ect sachant que je suis obligée de faire une boucle While (maximum 6 membres). Merci :)
@ExcelFormation
3 жыл бұрын
Bonjour, vous pourriez utiliser un tableau de variable, voir ici : kzitem.info/news/bejne/1GurxWlme3uUoII Pour votre macro, j'utiliserai : Sub macro() Dim i As Integer, j As Integer, membre As Variant, nom(5) As String, âge(5) As String, id As Integer i = 1 j = 10 id = 0 Do While id < 6 If MsgBox("Voulez-vous saisir un autre membre ?", vbYesNo, "Question") = vbYes Then nom(id) = InputBox("Entrez un nom :", "saisie", 0) âge(id) = InputBox("Entrez un âge : ", "saisie", 0) Worksheets("vacanciers").Cells(i, j).Value = nom(id) Worksheets("vacanciers").Cells(i, j + 1).Value = âge(id) j = j + 2 id = id + 1 End If Loop End Sub
Пікірлер: 8