faire correspondre textbox et combobox

Version imprimable

08/04/2012, 14h10
mikadoo57

faire correspondre textbox et combobox

Bonjour,
j'ai un tableau sur une feuille où les cellules A1 à A50 (liste de tâches) sont remplies via une textbox dans un userform.
Les cellules C1 à C50 comportent les nombres de 1 à 50 (numérotation des tâches).
Pour permettre au rédacteur de modifier le texte des cellules a1 à a50, j'ai créé un userform avec
- une combobox, avec en rowsource les cellules c1 à c50, où le rédacteur choisit le n° de la tâche à modifier
- une textbox modifiable où apparait le texte de la tâche sélectionnée (si le rédacteur sélectionne "12", le texte de la cellule A12 apparait dans la textbox).

Tout va bien jusqu'à la sélection dans la combobox mais je ne sait pas comment écrire le code pour lier le choix de la combobox avec la textbox et ensuite recopié le texte corrigé à sa place initiale.

j'espère que mon explication n'est pas trop alambiquée!!!
Merci

Bonjour,
essayes avec ces codes à adapter :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Option Explicit
Dim derlg As Long, plage As Range, tb
 
Private Sub ComboBox1_Click()
TextBox1 = ""
TextBox1 = Range("A" & plage.Columns(3).Find(ComboBox1, Range("C" & derlg)).Row)
End Sub
 
Private Sub UserForm_Activate()
With Sheets("Feuil1") 'à remplacer par ton nom de feuille
  derlg = .Range("A" & .Rows.Count).End(xlUp).Row
  Set plage = .Range("A1:C" & derlg)
  tb = plage.Columns(3)
  ComboBox1.List = tb
End With
End Sub

1 pièce(s) jointe(s)

Merci pour ces codes mais lorsque je clique sur le bouton "modifier", le userform s'ouvre ainsi qu'une fenêtre indiquant "erreur d'éxécution 70 permission refusée"
A priori ça butte sur la ligne "ComboBox1.List = tb" qui est surlignée en jaune.
Voici les codes tels qu'ils sont inscrit:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Option Explicit Dim derlg As Long, plage As Range, tb Private Sub ComboBox1_Click() TextBox1 = "" TextBox1 = Range("A" & plage.Columns(3).Find(ComboBox1, Range("C" & derlg)).Row) End Sub Private Sub UserForm_Activate() With Sheets("form") derlg = .Range("A" & .Rows.Count).End(xlUp).Row Set plage = .Range("A1:C" & derlg) tb = plage.Columns(3) ComboBox1.List = tb End With End Sub
Là, je suis paumé...

Au cas où, voici mon fichier. Ne pas regarder de trop près ma programmation, c'est du brut de fonderie comme les débutants savent le faire!

08/04/2012, 16h50
casefayere

J'ai testé chez moi sans problème, attention au nom de ton combo, est-ce combobox1 ?
08/04/2012, 16h55
mikadoo57

Oui, c'est bien Combobox1

tu as déclaré la propriété RowSource, tu peux donc te passer de

Code:

1
2
tb = plage.Columns(3)
  ComboBox1.List = tb

, gardes le reste

J'ai ouvert ton fichier, changes les codes :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Option Explicit
Dim derlg As Long, plage As Range, tb
Private Sub ComboBox1_Click()
With Sheets("Form")
  derlg = .Range("c" & .Rows.Count).End(xlUp).Row
  Set plage = .Range("C1:C" & derlg)
  'tb = plage.Columns(3)
  'ComboBox1.List = tb
  MsgBox plage.Address
  TextBox1 = ""
  TextBox1.Text = .Range("A" & plage.Find(ComboBox1.Value, .Range("C" & derlg)).Row)
End With
 
End Sub
 
Private Sub CommandButton1_Click()
 
End Sub
 
Private Sub UserForm_Activate()
With Sheets("form")
  derlg = .Range("C" & .Rows.Count).End(xlUp).Row
  Set plage = .Range("C1:C" & derlg)
End With
End Sub

08/04/2012, 17h11
mikadoo57

OK! cela fonctionne. J'ai ôté la référence rowsource et conservé les lignes de code.
Maintenant, quel est le code pour que le bouton "valide" remplace le texte initial par le texte corrigé?

Une méthode entre autres :

Code:

1
2
3
4
5
Private Sub CommandButton1_Click()
With Sheets("Form")
  .Range("A" & plage.Find(ComboBox1.Value, .Range("C" & derlg)).Row) = TextBox1
End With
End Sub

08/04/2012, 17h19
mikadoo57

Je vais essayer.
Concernant ton avant dernier message, les codes ne fonctionnent pas, la combobox ne déroule pas de liste. Je pense que je vais garder ceux de ton premier message.
Merci

Impec! le texte modifié va bien dans la cellule.
Encore un grand merci.:ccool:
Pas trop surpris par ma programmation? :lol:
08/04/2012, 17h22
casefayere

Excuses-moi mais je n'ai pas regardé plus que ça, dès que j'ai 2 minutes, je le ferai et te dirai éventuellement ce que j'en pense
08/04/2012, 17h43
mikadoo57

Merci et @+ :ccool:

Encore un petit souci : la sélection "1" dans la combobox ne me renvoie rien dans la textbox (mais toutes les autres sélections s'affichent). J'ai essayé en modifiant à 1 la propriété "value" de la combobox qui était par défaut à la valeur 2 mais rien n'y fait. :cry:
08/04/2012, 17h59
casefayere
Après avoir jeté un coup d'oeil, j'ai rectifié un seul code dans Userform14
Code:

1 2 3 4 5 6 7 8 Private Sub CommandButton1_Click() Dim x As Integer With Sheets("form") x = .Range("A" & .Rows.Count).End(xlUp).Row .Range("A" & x).Value = TextBox1 Unload UserForm14 End With End Sub
et j'ai remarqué que le code de ton module1 n'était pas utilisé

Sinon tout me parait propre, penses à supprimer les codes vides dans tes USF, du style :
Code:

1 2 3 Private Sub TextBox1_Change() End Sub
Bonnes Pâques !
Ps : je n'ai pas vu ton dernier post et je vais regarder

la plage commence en C2

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Dim derlg As Long, plage As Range, tb
Private Sub ComboBox1_Click()
TextBox1 = ""
TextBox1 = Range("A" & plage.Find(ComboBox1, Range("C" & derlg)).Row)
End Sub
 
Private Sub CommandButton1_Click()
With Sheets("Form")
  .Range("A" & plage.Find(ComboBox1.Value, .Range("C" & derlg)).Row) = TextBox1
End With
End Sub
 
Private Sub UserForm_Activate()
With Sheets("form")
  derlg = .Range("C" & .Rows.Count).End(xlUp).Row
  Set plage = .Range("C2:C" & derlg)
  tb = plage
  ComboBox1.List = tb
End With
End Sub

08/04/2012, 18h17
mikadoo57

Désolé de t'ennuyer avec cela mais le choix "1" n'affiche toujours rien...
("1" correspond à la cellule C3)
08/04/2012, 18h25
casefayere

tu ne m'ennuies pas, commences la plage en C3, je n'avais pas bien regardé

Code:

Set plage = .Range("C3:C" & derlg)

il faut que tu cliques sur la flêche du combo et selectionnes le 1 ou sinon, on prévoit d'alimenter le textbox avec la première tâche à l'ouverture de l'USF
08/04/2012, 18h34
mikadoo57

C'est bon maintenant en corrigeant comme tu le proposes.
Je pense que mon fichier est complet . Je te remercie mais sans pouvoir te rendre la pareil un jour !!!