Userform
Kris
-
Kris -
Kris -
Bonjour,
j'ai une userform avec son code vba et il m' a ete demande de faire au moins une modification a cette userform en ajoutant le choix de plusieurs indice ou la date de debut et fin de periode .
je suis nouvelle a vba alors je trouve du mal .
voila le code que j'ai
Private Sub CmdAnnuler_Click()
Unload Me
End Sub
Private Sub CmdValider_Click()
Dim wb As Workbook
Dim wsD As Worksheet
Dim wsR As Worksheet
Dim wsSt As Worksheet
Dim rgR As Range
Set wb = ThisWorkbook
Set wsD = wb.Worksheets("Data")
Set wsR = wb.Worksheets("Rendements")
Set wsSt = wb.Worksheets("statistiques")
wsR.Cells.Clear
wsSt.Cells.Clear
ProcRend Range(RefRend), Range(RefData), CboIndice, OpbCont
Set rgR = Range(RefRend).Offset(1, 1).Resize(Range(RefData).Rows.Count - 2, 1)
ProcStat Range(RefSt), CboIndice, rgR
End Sub
Private Sub UserForm_Initialize()
Me.CboIndice.RowSource = ("indices!indices")
Me.FrRnd.OpbCont.Value = True
Me.RefData = ThisWorkbook.Worksheets("Data").UsedRange.Address(external:=True)
End Sub
et pour ajouter alors une date de debut et de fin par exemple, comment ajouter le nouveau code a ceci ?
C'est urgent , Merci d'avance
j'ai une userform avec son code vba et il m' a ete demande de faire au moins une modification a cette userform en ajoutant le choix de plusieurs indice ou la date de debut et fin de periode .
je suis nouvelle a vba alors je trouve du mal .
voila le code que j'ai
Private Sub CmdAnnuler_Click()
Unload Me
End Sub
Private Sub CmdValider_Click()
Dim wb As Workbook
Dim wsD As Worksheet
Dim wsR As Worksheet
Dim wsSt As Worksheet
Dim rgR As Range
Set wb = ThisWorkbook
Set wsD = wb.Worksheets("Data")
Set wsR = wb.Worksheets("Rendements")
Set wsSt = wb.Worksheets("statistiques")
wsR.Cells.Clear
wsSt.Cells.Clear
ProcRend Range(RefRend), Range(RefData), CboIndice, OpbCont
Set rgR = Range(RefRend).Offset(1, 1).Resize(Range(RefData).Rows.Count - 2, 1)
ProcStat Range(RefSt), CboIndice, rgR
End Sub
Private Sub UserForm_Initialize()
Me.CboIndice.RowSource = ("indices!indices")
Me.FrRnd.OpbCont.Value = True
Me.RefData = ThisWorkbook.Worksheets("Data").UsedRange.Address(external:=True)
End Sub
et pour ajouter alors une date de debut et de fin par exemple, comment ajouter le nouveau code a ceci ?
C'est urgent , Merci d'avance
3 réponses
Bonjour,
ajoutant le choix de plusieurs indice ou la date de debut et fin de periode . Faut savoir, parce que les modifs ne sont pas les memes pour l'UF et pour les procedures ProcRend et ProcStat qu'il ne faut pas oublier de modifer
ajoutant le choix de plusieurs indice ou la date de debut et fin de periode . Faut savoir, parce que les modifs ne sont pas les memes pour l'UF et pour les procedures ProcRend et ProcStat qu'il ne faut pas oublier de modifer
Juste une modif avec ajout de date de debut et fin de periode , comment ajouter son code ?
Merci d avance
Merci d avance
Re,
Ce soir quelle heure, parce que je dois m'absenter deux heures ????
Ce soir quelle heure, parce que je dois m'absenter deux heures ????
Re,
fichier modifie pour saisie dates, mais a mon avis ces dates ne sont pas a utiliser dans les procedures ProcRend et ProcStat. Vous savez pourquoi il vous a ete demande de rajouter ces dates ?????
https://www.cjoint.com/c/EJEsuZzxtlf
fichier modifie pour saisie dates, mais a mon avis ces dates ne sont pas a utiliser dans les procedures ProcRend et ProcStat. Vous savez pourquoi il vous a ete demande de rajouter ces dates ?????
https://www.cjoint.com/c/EJEsuZzxtlf
c'est super merci beaucoup
en fait, on m'a demande de faire ainsi juste pour s'habituer a la userform, y avait pas un but precis , par contre c est obligatoire et evalue
une petite question encore : dans la msgbox je mets des dates ? ou je laisse comme ca car j ai essaye de faire ca :
MsgBox "jj/mm/aaaa"
mais ca n a pas fonctionne ? je laisse comme vs l'avez fait ?
en fait, on m'a demande de faire ainsi juste pour s'habituer a la userform, y avait pas un but precis , par contre c est obligatoire et evalue
une petite question encore : dans la msgbox je mets des dates ? ou je laisse comme ca car j ai essaye de faire ca :
MsgBox "jj/mm/aaaa"
mais ca n a pas fonctionne ? je laisse comme vs l'avez fait ?
Merci pour votre reponse rapide
au plus simple:
vous ajoutez deux textboxs pour date debut et date de fin avec un controle pour etre sur que c'est une date et que debut avant fin
un peu plus complexe:
vous ajoutez deux textboxs pour date debut et date de fin avec saisie dates par un popup calendrier et la juste a controler que debut avant fin
un exemple: https://www.cjoint.com/c/EJEoEcxPWcf
extraire le fichier, ouvrir, onglet depot, clic sur formulaire....., double clic sur textbox a cote de date
dans les deux cas, passez les deux dates en parametres au deux procedures
http://www.cjoint.com/c/EJEpgSkQmhG
MILLE MERCI