VBA Remplir des TextBox via une Combobox
Tobar4
Messages postés
284
Date d'inscription
Statut
Membre
Dernière intervention
-
m@rina Messages postés 27220 Date d'inscription Statut Contributeur Dernière intervention -
m@rina Messages postés 27220 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
Je travaille actuellement sur un formulaire dans lequel je saisi, dans une MsgBox deux dates (date de début, date de fin) dans des Textbox.
Etant donné que les dates de début et de fin correspondent le plus souvent à des dates de semaine, j'ai ajouté une combobox avec les numéros de semaine.
Dans mon tableau Excel, j'ai noté dans un onglet les dates de début et de fin correspondant à ces semaines.
S5 30/01/12 05/02/12
S6 06/02/12 12/02/12
S7 13/02/12 19/02/12
S8 20/02/12 26/02/12
S9 27/02/12 04/03/12
S10 05/03/12 11/03/12
S11 12/03/12 18/03/12
S12 19/03/12 25/03/12
Je voudrai que lorsque je sélectionne un numéro de semaine les dates de début et de fin se remplissent automatiquement (et qu'elles soit modifiables).
Pour l'instant je n'ai que ça...
Private Sub Cb_Semaine_Change()
Sheets("Sorties Statistiques").Activate
Dim lig5 As Range, rep As Long
Set lig5 = [R9:R60].Find(Cb_Semaine, LookIn:=xlValues)
Range(lig5.Row, 19).Copy ==> ne marche pas
End Sub
Merci par avance,
T.
Je travaille actuellement sur un formulaire dans lequel je saisi, dans une MsgBox deux dates (date de début, date de fin) dans des Textbox.
Etant donné que les dates de début et de fin correspondent le plus souvent à des dates de semaine, j'ai ajouté une combobox avec les numéros de semaine.
Dans mon tableau Excel, j'ai noté dans un onglet les dates de début et de fin correspondant à ces semaines.
S5 30/01/12 05/02/12
S6 06/02/12 12/02/12
S7 13/02/12 19/02/12
S8 20/02/12 26/02/12
S9 27/02/12 04/03/12
S10 05/03/12 11/03/12
S11 12/03/12 18/03/12
S12 19/03/12 25/03/12
Je voudrai que lorsque je sélectionne un numéro de semaine les dates de début et de fin se remplissent automatiquement (et qu'elles soit modifiables).
Pour l'instant je n'ai que ça...
Private Sub Cb_Semaine_Change()
Sheets("Sorties Statistiques").Activate
Dim lig5 As Range, rep As Long
Set lig5 = [R9:R60].Find(Cb_Semaine, LookIn:=xlValues)
Range(lig5.Row, 19).Copy ==> ne marche pas
End Sub
Merci par avance,
T.
A voir également:
- VBA Remplir des TextBox via une Combobox
- Organigramme a remplir word - Guide
- Partager des photos via un lien - Guide
- Via michelin carte - Télécharger - Transports & Cartes
- ViaMichelin - Télécharger - Transports & Cartes
- Excel compter cellule couleur sans vba - Guide
1 réponse
Bonjour,
En dehors du fait qu'Excel est capable de calculer la date de fin, tu peux utiliser les boundcolumns.
Un exemple ici :
https://www.cjoint.com/?BGcrCj21FkZ
C'est du 97-2003 car tu n'as pas précisé ta version.
m@rina
Si vous voulez être aidé efficacement, vérifiez que vous êtes sur le bon forum,... et précisez le logiciel utilisé ainsi que sa version. Nous manquons de devins !
En dehors du fait qu'Excel est capable de calculer la date de fin, tu peux utiliser les boundcolumns.
Un exemple ici :
https://www.cjoint.com/?BGcrCj21FkZ
C'est du 97-2003 car tu n'as pas précisé ta version.
m@rina
Si vous voulez être aidé efficacement, vérifiez que vous êtes sur le bon forum,... et précisez le logiciel utilisé ainsi que sa version. Nous manquons de devins !