Problème remplissement tableau avec formulaire VBA

Bonjour,

J'ai programmé un formulaire VBA pour remplir une base de données sous Excel. Toutes les cellules se remplissent bien à l'exception de deux colonnes. Mais impossible de savoir ce qui cloche dans mon code:

Private Sub BoutonAjouter_Click()

Sheets("Vente").Activate

Worksheets("Vente").Range("B1").Select

Selection.End(xlDown).Select

Selection.Offset(1, 0).Select

ActiveCell = ListeDates.Value

ActiveCell.Value = CDate(ListeDates.Value)

ActiveCell.Offset(0, 1).Value = ListeHeures

ActiveCell.Offset(0, 2).Value = ListeÉquipages

ActiveCell.Offset(0, 3).Value = ListePièces

ActiveCell.Offset(0, 4).Value = ListeQuantités

ActiveCell.Offset(0, 5).Value = TexteDescription

ActiveCell.Offset(0, 6).Value = ListeMécaniciens

ActiveCell.Offset(0, 7).Value = ListeStatuts

End Sub

Les valeurs en rouge ne se remplissent pas dans les cellules lorsque je clique sur Ajouter. Toutes les autres le font. Chacune des valeurs est bien reliée à une liste dans un autre onglet de mon classeur.

Je vous remercie d'avance pour votre aide !

Bonjour,

si c'est bien ce code qui est exécuté, c'est que ListePièces et ListeQuantités sont vides au moment de l'exécution de ce code.

Bonjour, merci pour ta réponse.

J'ai refait 4 fois mes listes et rien n'y fait. Les noms sont cohérents. Les listes indiquées dans le code sur VBA correspondent bien aux noms de mes listes dans mon classeur.

Je joins mon fichier Excel.

Bonjour,

essaie ceci ou revois ton formulaire.

Private Sub BoutonAjouter_Click()
    Sheets("Vente").Activate
    Worksheets("Vente").Range("B1").Select
    Selection.End(xlDown).Select
    Selection.Offset(1, 0).Select
    ActiveCell = ListeDates.Value
    ActiveCell.Value = CDate(ListeDates.Value)
    ActiveCell.Offset(0, 1).Value = ListeHeures
    ActiveCell.Offset(0, 2).Value = ListeÉquipages
    ActiveCell.Offset(0, 3).Value = ListeTypes
    ActiveCell.Offset(0, 4).Value = ComboBox1
    ActiveCell.Offset(0, 5).Value = TexteDescription
    ActiveCell.Offset(0, 6).Value = ListeMécaniciens
    ActiveCell.Offset(0, 7).Value = ListeStatuts
End Sub

Waaaw ! Cela fonctionne !

J'ai regardé en détail, et je n'ai pas bien compris la recette miracle. Mais quelle importance, tant que ça fonctionne!

Merci beaucoup !

BenjiL a écrit :

(...)

J'ai regardé en détail, et je n'ai pas bien compris la recette miracle.

(...)

Bonjour dans ton formulaire les champs ne s'appellent pas listepièces et listequantités mais listetypes et combobox1