Ou est l'erreur dans mon code VBA ?

Bonjour à tous,
J'ai créé un petit tableau pour gérer mes congélateurs à l'aide d'un formulaire, je bloque sur une macro dans mon UserForm.
Voici une capture de mon tableau:
Pièce jointe 556771
Lorsque je rempli mon formulaire, toutes les colonnes se remplissent sauf la colonne B

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Private Sub CommandButton1_Click()If Sheets("Gestion congélateur").Range("B4") = "" Then Sheets("Gestion congélateur").Range("B4") = ComboBox1 Else Sheets("Gestion congélateur").ListObjects(1).ListRows.Add End If Dlt = Sheets("Gestion congélateur").Range("D1048576").End(xlUp).Row Sheets("Gestion congélateur").Range("B" & Dlt) = ComboBox1 Sheets("Gestion congélateur").Range("B" & Dlt) = ComboBox2 Sheets("Gestion congélateur").Range("B" & Dlt) = ComboBox3 Sheets("Gestion congélateur").Range("B" & Dlt) = ComboBox4 Sheets("Gestion congélateur").Range("B" & Dlt) = ComboBox5 Sheets("Gestion congélateur").Range("B" & Dlt) = ComboBox6 Sheets("Gestion congélateur").Range("C" & Dlt) = TextBox1 Sheets("Gestion congélateur").Range("E" & Dlt) = TextBox2 Sheets("Gestion congélateur").Range("F" & Dlt) = TextBox3 Sheets("Gestion congélateur").Range("G" & Dlt) = ComboBox7 Unload UserForm1 End Sub

---

Bien sûr, dans l'Userform, j'ai créé des comboBox1 ComboBox2 etc. comme ceci :

Code:

---

1 2 3 4 5 6 7 8

Private Sub UserForm_Initialize()TextBox2.Text = "jj/mm/aaaa" With ComboBox1 .AddItem "Abats" .AddItem "Agneau" .AddItem "Boeuf" etc. End with End Sub

---

D'ou vient le problème ? de la deuxième ligne de code ? :

Code:

---

Sheets("Gestion congélateur").Range("B4") = ComboBox1

---

il faudrait que j'y ajoute ComboBox2, ComboBox3 etc.
si oui, séparé par des virgules ou avec le signe = ? Ou le problème vient-il d'ailleurs ?
Voici une capture de L'UserForm : Merci à tous pour votre aide
Pièce jointe 556773

Bonjour,

Il y a pour moi un souci dans tes lignes de codes

Code:

---

1 2 3 4 5 6 7 8

Sheets("Gestion congélateur").Range("B" & Dlt) = ComboBox1 Sheets("Gestion congélateur").Range("B" & Dlt) = ComboBox2 Sheets("Gestion congélateur").Range("B" & Dlt) = ComboBox3 Sheets("Gestion congélateur").Range("B" & Dlt) = ComboBox4 Sheets("Gestion congélateur").Range("B" & Dlt) = ComboBox5 Sheets("Gestion congélateur").Range("B" & Dlt) = ComboBox6

---

Essaie de mettre un point d'arrêt, tu remarqueras que t'es données s'écrivent bien dans ta feuilles, y compris si ta combo est vide...

Donc admettons que tu remplisses la cbo1, ça valeur sera ajouté à ta feuille mais des la lignes suivante si cb2 est vide, le vide sera ajouté dans ta feuille à la place de la valeur précédante.

Tu devrais mettre un contrôle pour ajouter la valeur si valeur sde ta cba différente de "".

Ps : il est aussi dommage de ne pas utilisé les attribut de ta table de donnée ( listObject) dans ton code, il n'en serait que plus lisible.

Bonsoir mfoxy,
effectivement, j'ai testé avec des points d'arrêt et en fait, les 6 ComboBox s'insèrent dans chaque ligne de la colonne B.
Pas étonnant que rien ne s'inscrivent dans la colonne B
Maintenant, pour mettre un contrôle, il va falloir m'en dire un petit peu plus... Je ne suis pas un expert.
J'ai essayé ceci mais ça ne fonctionne pas

Code:

---

1 2 3 4 5 6

ComboBox1.Value = "" ComboBox2.Value = "" ComboBox3.Value = "" ComboBox4.Value = "" ComboBox5.Value = "" ComboBox6.Value = ""

---

Bonjour,

Le code que tu met dernier post est pour supprimer le contenu de ta cbo.

Tu devrais, même s'il doit y avoir plus propre, modifier les lignes de code que j'ai cité plus haut de cette maniere

Si cbo est différent de vide alors ajouter valeur sur la feuille

Qui ce traduirait en vba par (en modifiant bien sur le nom de ta cbo.

Code:

---

1 2 3 4

If cbo1.value <> "" Then code pour ajout valeur cbo1 If cbo2. Value<>"" Then code pour ajout valeur cbo2 ....

---

Bonjour Ragnart,

Si j'ai bien compris ce que tu souhaites faire, perso, je ferais un code qui remettrait les 5 autres combobox à null lors de la mise à jour de l'une des 6 combobox.

Après, lors de la demande d'insertion d'un nouvel enregistrement, reste plus qu'à tester laquelle des 6 combobox n'est pas nulle...pour savoir la valeur à insérer dans ta colonne B

A +