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
Juste une modif avec ajout de date de debut et fin de periode , comment ajouter son code ?
Merci d avance
Merci d avance
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