récupérer valeur cellule dans un textbox via un textbox Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Avatar du membre
titouan
Membre habitué
Membre habitué
Messages : 102
Inscrit le : 6 mars 2013
Version d'Excel : 2007 FR

Message par titouan » 17 janvier 2014, 23:14

Bonsoir le forum,

J'ai un code pour récuperer la valeur d'une cellule d'une feuille excel dans un textbox grâce à un combobox. Je souhaiterai connaître l'équivalent pour un textbox.
Pour info voici le code :
Private Sub CommandButton25_Click()
Me.TextBox109 = Sheets("feuil1")[surligner].Cells(Me.ComboBox10.ListIndex + 13, 56).Value[/surligner]
UserForm3.MultiPage1.Value = 0 'page 1
UserForm3.MultiPage1.Pages(0).Enabled = True 'page 0 acessible
UserForm3.MultiPage1.Pages(1).Enabled = False 'page 2 inacessible
UserForm3.MultiPage1.Pages(2).Enabled = False 'page 3 inacessible
UserForm3.MultiPage1.Pages(3).Enabled = False 'page 4 inacessible
UserForm3.MultiPage1.Pages(4).Enabled = False 'page 5 inacessible
UserForm3.CheckBox58.Value = False
End Sub
Merci d'avance .

T.
Avatar du membre
Banzai64
Fanatique d'Excel
Fanatique d'Excel
Messages : 16'726
Appréciations reçues : 3
Inscrit le : 21 novembre 2010
Version d'Excel : 2003 FR (learning 2010 - 2013)

Message par Banzai64 » 18 janvier 2014, 01:28

Bonjour

Tout simplement
Private Sub CommandButton25_Click()
'Me.TextBox109 = Sheets("feuil1").Cells(Me.ComboBox10.ListIndex + 13, 56).Value
Me.TextBox109 = Sheets("feuil1").Cells(Me.TextBox200, 56).Value
UserForm3.MultiPage1.Value = 0 'page 1
UserForm3.MultiPage1.Pages(0).Enabled = True 'page 0 acessible
UserForm3.MultiPage1.Pages(1).Enabled = False 'page 2 inacessible
UserForm3.MultiPage1.Pages(2).Enabled = False 'page 3 inacessible
UserForm3.MultiPage1.Pages(3).Enabled = False 'page 4 inacessible
UserForm3.MultiPage1.Pages(4).Enabled = False 'page 5 inacessible
UserForm3.CheckBox58.Value = False
End Sub
A toi de remplacer TextBox200 par le bon TextBox
Image
Avatar du membre
titouan
Membre habitué
Membre habitué
Messages : 102
Inscrit le : 6 mars 2013
Version d'Excel : 2007 FR

Message par titouan » 18 janvier 2014, 10:15

Bonjour Banzaï64,

Merci pour ta réponse à une heure aussi tardive.

Parcontre à l'initialization du userform le code avec un combobox est celui ci :
Private Sub UserForm_Initialize()
UserForm1.Frame2.Visible = False 'frame invisible
UserForm1.Frame1.BackColor = &H80000004
 Dim Plage As String
   With Sheets("feuil1")
  Plage = .Range("a13:a" & .Cells(Rows.Count, 2).End(xlUp).Offset(-25, 0).Row).Address
  End With
  ComboBox11.RowSource = "feuil1!" & Plage
End Sub
J'ai essayé de remplacer combobox11.rowsource par textbox53 mais aucun résultat.

Merci pour ton aide.

T.
Avatar du membre
Banzai64
Fanatique d'Excel
Fanatique d'Excel
Messages : 16'726
Appréciations reçues : 3
Inscrit le : 21 novembre 2010
Version d'Excel : 2003 FR (learning 2010 - 2013)

Message par Banzai64 » 18 janvier 2014, 13:24

Bonjour

Je ne sais pas ce que tu cherches à faire

mais une TextBox est complétement différente d'une ComboBox
Ces 2 contrôles n'ont pas la même utilité ni les mêmes propriétés

Quelle est la raison de remplacer la ComboBox par une TextBox ?
Image
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message