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   -
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.

A voir également:

1 réponse

m@rina Messages postés 27220 Date d'inscription   Statut Contributeur Dernière intervention   11 504
 
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 !
0