Discussion :

[elvibro]

Bonsoir à tous,

Afin d'optimiser la saisie d'un tableau sous Excel (150 dates dans la première colonne puis 25 thèmes en entête), je me suis lancer dans la conception d'un userform tout simple.

Ce dernier est composé d'une combobox, où l'utilisateur doit choisir une date, de plusieurs textbox et d'un bouton de validation.

Je souhaiterai donc qu'en fonction de la date de la combobox les données des textbox se reportent sur la feuille de calcul en face de la bonne date.

Si vous pouvez me donner quelques info. cela serai top (car même si google est mon ami je n'ai pas trouvé mon bonheur!!)

[jfontaine]

Bonjour,

Tu peux utiliser l'instruction Find pour trouver la cellule contenant la valeur cherchée

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim r As Range
 
Set r = Range("A:A").Find(Combobox1.Text)

Ensuite tu utilises "r" comme référence pour inserer les données

[elvibro]

Merci pour l'info, je testerai, mais je me suis débrouillé avec ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub CommandButton1_Click()
Dim lig As Long
Do
lig = lig + 1

Loop Until Cells(lig, 4).Value = CDate(Me.ComboBoxdate1.Value)
If Cells(lig, 4).Value <> CDate(ComboBoxdate1.Value) Then
MsgBox "Veuillez renseigner la date"
Exit Sub
End If
Cells(lig, 5).Value = Me.Txtfspopt.Value
Cells(lig, 6).Value = Me.Txtfspdent1.Value

End Sub 

Bonne soirée