Discussion :

[Ragnart]

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:

Lorsque je rempli mon formulaire, toutes les colonnes se remplissent sauf la colonne B

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
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 :

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

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 :

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

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

[mfoxy]

Bonjour,

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

Code :

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

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.

[Ragnart]

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 :

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

1
2
3
4
5
6
ComboBox1.Value = ""
           ComboBox2.Value = ""
           ComboBox3.Value = ""
           ComboBox4.Value = ""
           ComboBox5.Value = ""
           ComboBox6.Value = ""

[mfoxy]

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 :

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

1
2
3
4
 
If cbo1.value <> "" Then  code pour ajout valeur cbo1
If cbo2. Value<>"" Then code pour ajout valeur cbo2
....

[blindacrobate]

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 +