Discussion :

[Nosperato]

Bonjour tous le monde,

Avant de venir vers vous j'ai essayé mainte fois de trouvé pourquoi je n'arrivais pas à résoudre mon problème, le problème ? Vous allez me dire "Quel problème ?" Tous simplement j'ai aucune valeur qui s'affiche dans ma ComboBox1 ! Et si vous trouvez l'erreur je serai très reconnaissant ...

Voici mon code :

Code :

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

1
2
3
 
Option Explicit 
Dim Ws As Worksheet

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
 
Private Sub UserForm1_Initialize() '
 
Dim I As Integer
 
With ComboBox1 'Le petit problème
.AddItem "Toto" 'Le moyen problème
.AddItem "tata" 'Le gros problème
End With 'J'abandonne
 
 
Set Ws = Sheets("Feuille de prix") 
For I = 1 To 6
Me.Controls("TextBox" & I).Visible = True 
Next I
End Sub

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub CommandButton3_Click()
Dim L As Integer
If MsgBox("Confirmez-vous l’insertion de ce nouveau contact ?", vbYesNo, "Demande de confirmation d’ajout") = vbYes Then
L = Sheets("Feuille de prix").Range("C1:G900").End(xlDown).Row + 1 
Range("C" & L).Value = TextBox1
Range("D" & L).Value = TextBox2
Range("E" & L).Value = TextBox4
Range("F" & L).Value = TextBox3
Range("G" & L).Value = TextBox5
End If
End Sub

Le bouton Quitter fonctionne, j'ajoute mes données et les données insérer sont automatiquement filtrer, cependant sur la feuille "Feuille de Prix" j'ai plusieurs tableau : un tableau allant de C à G ; de I à M ; de O à S ; de V à Y et de AA à AE
J'ai donc créé un UserForm1 pour insérer les données car chacun des tableau à une catégorie : "Achat ; Autres ; Location ; Matériel ; Personnel" donc je voudrai que dans ma ComboBox1 sous forme de liste : "Achat ; Autres ; Locatop, ; Matériel ; Personnel" afin que lorsque je sélectionne la catégorie Achat de ma ComboBox1 toute les données de mon UserForm1 s'insère de la colonne C à G et de même pour les autres, sauf que ma ComboBox1 m'affiche AUCUNE DONNÉES ...

PS : J'ai essayé les AddItem ; ROWSOURCE etc... Je dois m'embrouillé sur le code... Et je fond...

Enfin bref merci de me lire et de prendre le temps de résoudre mon problème...
A voir également:

[MarcelG]

Bonjour,

Plusieurs remarques.
1 - Un contrôle Combobox s'alimente à l'initialisation du formulaire comme le décrit ce tutoriel.
Précaution à prendre cependant: le vider au préalable

2 - Ce code me semble redondant

Code :

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

1
2
3
4
5
Range("C" & L).Value = TextBox1
Range("D" & L).Value = TextBox2
Range("E" & L).Value = TextBox4
Range("F" & L).Value = TextBox3
Range("G" & L).Value = TextBox5

Une simple boucle sur un des objets Cells suffirait.

3 - Même si elles sont tacites, il faut toujours précise les propriétés Value, que ce soit sur un contrôle ou un simple objet Range

4 - On n'insistera jamais assez sur la nécessité, voire l'obligation, de bien rattacher les objets (Range, Worksheet)

5 - Pour définir une dernière cellule, mieux vaut utiliser les propriétés xlUp et xl Toleft

Reviens si nécessaire.

[Nosperato]

Bonjour MarcelG,

Merci pour votre retour.

J'ai réussi à régler mon problème en ayant trop été dans le programme j'en ai vu mon erreur, cela venait de mon UserForm, car je pensais quand le renommant, il fallait que je renomme ma déclaration donc je l'avais appelé UserForm1.etc. Sauf qu'il fallait que je le déclare comme suit : UserForm.etc sans le 1... Une erreur bête.

1) La ComboBox sont bien initialisé à la fermeture du Formulaire donc aucune données stocker.
2) Totalement d'accord avec vous, je peux l'optimiser, mais je l'optimiserai à la fin de tous mon programme.
5) Oui je sais, mais sauf que si je met ce paramètre cela écrase la 1ère ligne insérer dans mon tableau, car lors de l'insertion d'une ligne, il a un tri automatique et si je prenais le paramètre que vous avez cité le tableau faisait n'importe.

En vous remerciant.