Problème affectation données sous VBA Excel Fermé

Question

Bonjour,

j'ai crée un tableau de suivi de production : j'ai 12 onglets, chacun portant le nom d'un mois de l'année. Chaque onglet est identique (sauf le nom du mois). 
En vertical j'ai les jours du mois (JJ/MM/AAAA) céllules A7:A37
En horizontal j'ai les noms de mes produits (Abricots,Ananas, fraises etc) céllules B4:AT4

Etant novice en VBA, j'ai malgré tout réussi à créer une boite de dialogue qui m'invite à sélectionner le nom du Fruit, la date de production et enfin le champ de saisie pour indiquer le nombre de fruits produits

j'affecte le résultat de la sélection "Fruit" dans la celulle A1, la date en celulle C3, et le nbre de fruit fabriqués en celulle B2.

Je n'arrive pas à trouver l'astuce (malgré de nombreuses heures passées sur les forums et autres sites sur le sujet, je dois pas être bien doué....) pour aller directement affecter la valeur de B2 (saisie manuellement dans la boite de dialogue en fonction de A1 et de C3 que j'ai sélectionné dans ma liste déroulante.

Ci dessous la prog VBA que j'ai faite (la macro s'apelle "lance" ):

Sub Lance()
Load UserForm1
UserForm1.Show
End Sub


'Sub Validation()
'UserForm1.Hide
'
'    [C3] = UserForm1.ComboBox1
'
'Unload UserForm1
'End Sub

La programmation pour la boîte de dialogue :

Private Sub ComboBox1_Change()
 [C3] = UserForm1.ComboBox1
End Sub

Private Sub CommandButton1_Click()
Unload UserForm1
End Sub

Private Sub Bt_Valider_Click()
[C1] = UserForm1.TextBox1 & " " & UserForm1.TextBox2
End Sub

Private Sub Label2_Click()

End Sub

Private Sub Label3_Click()

End Sub

Private Sub TextBox1_Change()
[A1] = UserForm1.TextBox1
End Sub

Private Sub TextBox2_Change()
[B1] = UserForm1.TextBox2
End Sub

Private Sub UserForm_Click()

End Sub



Merci d'avance à toute âme sensible à mon problème......

Cordialement

Marc

eriiic · Answer

Bonsoir,

Tu devrais déposer un fichier exemple sur cijoint.fr et coller ici le lien fourni.
Visiblement pas grand a envie de reconstruire ton tableau...
eric

marccoumes · Answer

Bjr Eric,

Ci joint le lien ou j'ai déposé le fichier : http://www.cijoint.fr/cjlink.php?file=cj201002/cijAr4py6R.xls

Cela sera effectivement plus parlant....

Merci et bonne journée

Marc

marccoumes · Answer

tant que j'y suis j'ai un autre probleme avec la combobox : lorsque je sélectionne une date dans le menu déroulant cela me le convertit automatiquement dans un format que je ne comprends pas.....et qui n'est pas le format de la date que je souhaite evidement (comme s'il fallait en rajouter....)

Marc

eriiic · Answer

Bonjour,

Heuuu, non je n'avais pas prévu de traiter plus particulièrement cette question. C'est plus un conseil parce que tu n'avais pas eu de réponse...
Là je n'ai pas le temps mais je peux te donner une piste.
Il faut que tu recherches la colonne avec l'équivalent d'equiv() en vba (même syntaxe mais mot en anglais) avec par exemple
colonne=application.worksheetfunction.match("ton fruit",range(2:2);0)
"ton fruit" peut être une variable, 2:2 la ligne où son noté tes fruits sur la feuille.
Pareil pour la date en A:A
Et tu remplis la cellule avec cells(ligne,colonne)="bla bla bla"

eric

garion28 · Answer

il faut parcourir la liste des fruits et des jours pour trouver la ligne/colonne (grace a .row et .column pour extraire le numéro de la colonne/ligne)
ensuite tu construit l'adresse de la cellule ou sera écrit l'info en associant la colonne et la ligne récupéré

eriiic · Answer

Exact, j'avais oublié le .column au bout

garion28 · Answer

ca devrai faire un truc dans ce genre là Dim l As Integer Dim c As Integer With Sheets("feuil1") While (.Cells(4, i).Value <> "" And .Cells(i, 1).Value <> "") Or (l = "" And c = "")/*tant que la fin de ta ligne de fruit et de ta colonne de date n'est pas atteinte ou que les valeurs cherché ne sont pas trouvé alors on continu le parcours*/ If .Cells(4, i).Value = .Range("A1").Value Then c = i If .Cells(i, 1).Value = .Range("C3").Value Then l = i i = i + 1 Wend If l <> "" And c <> "" Then .Cells(l, c).Value = .Range("B2").Value End With le commentaire entre /* et */ sont pour ta compréhension, tu doit les enlever quand tu copira le code (sinon ca bug ^^)