Remplissage à plusieurs dimensions

Bonjour à tous,

Je tente de créer une sorte de rapport de vente en vu d'une facturation. À l'aide d'un formulaire (UserForm), on saisi des quantités livrées et/ou retourné (onglet livraison) selon la date de livraison.

J'ai fait la BD sous forme de calendrier (onglet livraison), et pour alléger les renseignements, j'ai attribuer un # pour chaque arrondissement et un pour chaque installation.

C'est là que ça se complexifie pour moi! Je cherche comment inscrire le code dans l'UserForm pour qu'il puisse détecter la ligne de la date de livraison, et lui inscrire les quantités pour le bon arrondissement et la bonne installation!

Je ne sais pas si c'est trop complexe à coder vu que j'ai référencé les arrondissements et les installations ou que je n'ai pas monter la BD dans le bon sens... ou que je devrais favoriser un combobox plutôt qu'un DTPicker pour les dates!

Bref, je suis bloqué. Merci pour votre aide.

Bonjour maître vba,

je tente une relance! Vos connaissances et idées me seraient fort utiles.

Merci d'avance de vous intéresser à mon sujet .

Bonjour à tous

Après plusieurs recherches, je crois avoir trouvé une partie de la solution, mais je bloque sur des aspects essentiels du code.

Voici les sections qui me posent problème:

Merci d'y apporter votre contribution.

'Option Explicit
Dim c
Dim xx
Dim f, dico
'Recherche valeur DTPicker
Private Sub DTPicker3_CloseUp()
Dim datuser As Date
datuser = DTPicker3.Value
Sheets("Livraison").Columns("A:A").Select
On Error Resume Next
Selection.Find(What:=datuser, After:=ActiveCell, LookIn:=xlFormulas _
    , LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
    MatchCase:=False, SearchFormat:=False).Select
xx = Err.Number
If Err.Number <> 0 Then
    Range("A4").End(xlDown).Offset(1, 0).Select
End If
'
'
'
' peut-être à continuer!

'With UserForm1

'End With

End Sub

Private Sub UserForm_Initialize()

    Me.Top = Application.Top
    Me.Left = Application.Left
    Me.DTPicker3 = Now

   Set f = Sheets("Liste")
  Set dico = CreateObject("Scripting.Dictionary")
  For Each c In f.Range("B2:B" & f.[B65000].End(xlUp).Row)
     dico(c.Value) = IIf(dico.exists(c.Value), dico(c.Value) & "*" & c.Offset(, 1), c.Offset(, 1))
  Next c
  Me.ComboBox1.List = dico.keys
End Sub
Private Sub ComboBox1_click()
  Me.ComboBox2.Clear
  Me.ComboBox2.List = Split(dico(Me.ComboBox1.Value), "*")
End Sub

'*****incomplet***** remplissage à plusieurs dimensions!!!
'Onglet Livraison: saisir l'info dans la BD.
'Comment associer les références à arrondissement et pataugeaoires.

Private Sub CommandButton1_Click()

    'copie les infos

    Sheets("Livraison").Select
    Range("A1").Select
    Selection.CurrentRegion.Select
    LastRow = Selection.Rows.Count
    LastColumn = Selection.Columns.Count

    'With Sheets("Livraison")
        'Ligne = .Range("????" & Rows.Count).End(xlUp).Row + 1
        '= TextBox1.Value
        '= TextBox2.Value
     'End With

End Sub

Private Sub CommandButton2_Click()
    ComboBox1 = ""
    ComboBox2 = ""
    TextBox1 = ""
    TextBox2 = ""
End Sub
Private Sub CommandButton3_Click()
    ComboBox1 = ""
    ComboBox2 = ""
    TextBox1 = ""
    TextBox2 = ""
Unload Me
'MsgBox "Renseignements saisi."
End Sub

Bonjour à tous

Ok, merci aux âmes charitables qui ont pris soin de consulter ma problématique.

Je vais fermer ce poste, car j'ai simplifié la BD, et prend une nouvelle orientation pour ce projet.

Pour le suivre, je vais intituler le prochain poste Erreur d'éxécution 424.

a+