Textbox et combobox

Version imprimable

11/06/2013, 14h56
lucieaup

Textbox et combobox
Bonjour,

J'ai crée un user form composé d'une combobox et de plusieurs textbox. J'arrive à rentrer la liste (quoi que je dois définir la plage de donnée manuellement à chaque fois que j'ajoute une donnée) et à faire correspondre les valeurs qui correspondent dans les textbox. J'ai deux questions:

1-Je voudrais que l'utilisateur puisse sélectionner dans la liste un numéro et que lorsqu'il rentre une valeur dans la textbox vide ca me la recopie dans la bonne colonne excel. J'arrive pas à sélectionner la cellule active.

2-Est ce qu'il est possible d'alimenter ma combobox en fonction des blancs d'une autre colonne (ma combobox est basée sur la colonne A mais j'aimerai qu'elle ne m'affiche les valeurs de A que lorsque la cellule en B correspondante est égale à 0 ou vide)

P.S: j'ai alimenté ma combobox tout simplement il doit y avoir mieux mais je suis novice...
Code:

1 2 3 4 5 6 7 Private Sub Userform_initialize() Dim i For i = 2 To 25 ComboBox1.AddItem Sheets("Fichier général").Cells(i, 10) Next End Sub
Merci beaucoup pour votre aide!!

Bonjour,

Une solution possible à mettre dans votre programme principal au lieu de l'Userform_initialize du UserForm. J'utilise cette méthode car elle permet de contrôler les données d'entrée plus facilement (si les conditions ne font pas plusieurs pages...)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 Sub Programme() ' Votre programme principal Dim I As Long Dim DerniereLigne As Long Dim ShEnCours As Worksheet Set ShEnCours = Sheets("Fichier général") DerniereLigne = ShEnCours.Cells(ShEnCours.Rows.Count, 1).End(xlUp).Row ' On teste la dernière ligne de la colonne A With UserForm1 For I = 2 To DerniereLigne If Cells(I, 2) <> "" Then .ComboBox1.AddItem ShEnCours.Cells(I, 1) Next I ' On teste le contenu de la cellule de la colonne B .Show End With Set ShEnCours = Nothing End Sub
Pour le reste du problème, il faudrait expliquer comment le UserForm doit alimenter le tableau. Est-ce par ajout d'une nouvelle ligne ? Sur une ligne existante ? A vous d'expliquer.

Cordialement.

Pour 2) si j'ai bien compris:
Code:

1 2 3 4 5 6 7 8 9 10 Private Sub Userform_initialize() Dim i For i = 2 To 25 If cells(i,2)=0 Or cells(i,2)="" then ComboBox1.AddItem Sheets("Fichier général").Cells(i, 10) End if Next i End Sub
Pour la 1 je suis vraiment pas sûr d'avoir compris, ta combobox donne la possibité de choisir le numéro de la ligne et la textbox permet de remplir une case de la ligne correspondante ?
Code:

1 2 3 4 5 6 7 8 9 10 Private Sub TxtBox_Change() 'TxtBox doit être remplacé par le nom que tu as donné a ta TextBox dim i as integer i=combobox1.value cells(i,X)=TxtBox.text 'Remplace X par le numéro de la colonne de la case a remplir End Sub
Voilà n'hésite pas é préciser les choses si je suis a côté de la plaque.

12/06/2013, 09h20
lucieaup

Bonjour,

Tout d'abord merci de votre aide et désolée pour la réponse tardive mais j'ai voulu prendre le temps de bien comprendre tout ce que vous m'avez montré. Pour ma question deux, parfait tout marche, ma combobox n'est alimentée que si la case en face dans la colonne N est vide.

Par contre je ne comprends pas le code de Eric, j'ai essayé de le mettre tout bêtement ou de l'adapter mais ca ne fonctionne pas, pareil pour la réponse à ma question 1 de Fred.

Peut être que je n'ai pas bien expliqué mon probléme. Ma combobox, prend ses valeurs dans la colonne J ce sont des numéros de lot, quand je sélectionne un lot, je voudrais que l'utilisateur puisse rentrer le poids du lot dans la textbox et que ca aille me le mettre dans la colonne N sur la même ligne que le numéro du lot. Ici quand je veux rentrer la valeur, il y a un message d'erreur....
12/06/2013, 10h54
Invité

Bonjour,

Je me suis aperçu que je faisais l'inverse de ce que vous aviez demandé, je ne prenais tout ce qui n'était pas vide.... Désolé. Par contre, votre message mentionnait les colonnes A et B...

Cela dit, vous trouverez, ci-joint, un exemple complet (basé cette fois-ci sur les colonnes J et N). Il vous faut regarder le module standard joint, le UserForm et le code présent dans le module de la feuille des données.

Le fichier se présente sous cette forme :http://www.developpez.net/forums/att...1&d=1371026584

Le programme présent dans le module standard est lancé soit par le bouton, soit sur double click sur une cellule de la feuille. La combobox est remplie avec la première occurrence vide de la colonne N. Un textbox indique la ligne en cours (c'est un artifice, ce n'est pas obligatoire, mais c'est plus sympa).
http://www.developpez.net/forums/att...1&d=1371026584

Vous saisissez l'info dans le text box pour votre colonne N et vous validez.

http://www.developpez.net/forums/att...1&d=1371026584

Le résultat s'affiche dans cet écran et on passe à l'enregistrement suivant.
http://www.developpez.net/forums/att...1&d=1371026584

A noter la particularité de la combobox à deux colonnes (voir les propriétés). J'utilise souvent la méthode avec les matrices pour remplir mes combobox car elles me servent bien souvent à récupérer des valeurs pour la suite du programme moyennant une boucle de mise à jour à la sortie du UserForm. Bien sûr vous n'êtes pas obligée de faire la même chose.

Bon courage.

Cordialement.

Ok, j'avais mal compris ton problème:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub TxtBox_Change() 'TxtBox doit être remplacé par le nom que tu as donné a ta TextBox
 
dim numlot as long
dim i as integer
 
numlot=combobox1.value
 
i=1
 
while cells(i,10)<>numlot
     i=i+1
wend
 
cells(i,14)=TxtBox.text 
 
 
End Sub

12/06/2013, 14h12
lucieaup

Eric,

Merci pour le code, je l'ai essayé mais au moment de cliquer sur valider, il me dit erreur en surlignant:

Code:

Cells(CLng(TextBoxLigne), ColonneInfoARemplir) = TextBoxColonneN

Je ne comprend pas pourquoi ca ne fonctionne pas, j'ai essayé de reprendre ligne par ligne mais ca ne change rien....

Fred, je teste tout de suite ta solution pour voir si je comprends....

Merci à tout le sdeux pour votre iade!

Fred,

Je peux entrer des valeurs mais du coup, elles ne se recopient pas dans le fichier quand je clic sur valider. C'est pas une histoire ou je dois déclarer la variante comme public dans ma feuille de code?
Désolée je suis vraiment nulle mais j'apprend seule en me promenant sur les forums et parfois il me manque des données...
12/06/2013, 14h29
Fred.dz

Ok, bon bah tu va dans l'éditeur de ton userForm, tu doubleclic sur ton bouton "Valider".

Ca va te créer un programme genre "sub BtnValider_Click". Dans le corps de ce programme tu copie/colle le corps du code que je t'ai donné. Pense bien a changer Txtbox par le nom de ta Txtbox (pour le voir tu clique sur ta Txtbox dans l'éditeur de ton UserForm, c'est ce qu'il y a marqué dans "Name" en bas à gauche (si jamais tu n'as rien en bas à gauche tu va dans "Affichage->Fenetre de propriétés)).
12/06/2013, 14h40
Invité

Citation:

Envoyé par lucieaup

Eric,

Merci pour le code, je l'ai essayé mais au moment de cliquer sur valider, il me dit erreur en surlignant:

Code:

Cells(CLng(TextBoxLigne), ColonneInfoARemplir) = TextBoxColonneN

Je ne comprend pas pourquoi ca ne fonctionne pas, j'ai essayé de reprendre ligne par ligne mais ca ne change rien....

Vous avez essayé sur mon fichier ? Ou bien est-ce une transcription de mon code sur votre fichier ?
Attention aux déclarations des variables public dans le module standard.

Cordialement.
17/06/2013, 14h50
lucieaup
Bonjour à tous les deux,

Eric j'ai essayé avec votre fichier ca marche c'est quand je veux le reproduire sur le mien que ca ne fonctionne pas....

Pourtant j'ai bien déclaré mes variantes dans le module :
Code:

1 2 3 4 5 Public MatriceCombo() As Variant Public Numlot As Long Public ColonneComboBox As Long Public ColonneInfoARemplir As Long
Frad c'est bon ca marche j'avais mis le code sur textbox au lieu de clic! Merci beaucoup!!!
17/06/2013, 15h15
Invité

Bonjour,

Numlot ne fait pas partie du code présent dans le fichier transmis.
Si vous souhaitez aller jusqu'au bout de ma solution, transmettez-moi une version sans vos données confidentielles.

Sinon, l'important, c'est vous ayez au moins une solution qui fonctionne.

Bon courage.

Cordialement.