Afficher la valeur d'une cellule ds TextBox

Re : Afficher la valeur d'une cellule ds TextBox

Bonsoir Provence Vintage


avec ceci

Re : Afficher la valeur d'une cellule ds TextBox

Salut phlaurent55,

ça ne fonctionne pas!
Comment tu lui indiques la page!
ps: l'usf est lancé via un autre usf, il faut donc peut-être lui indiquer le chemin où pêcher les valeurs cellules!

Re : Afficher la valeur d'une cellule ds TextBox

Re,

Ma boule de cristal est en panne et ne devine pas le nom de ton userform , de ta feuille et de ta cellule 😉


pour être un peu plus sérieux, avec ceci:

Re : Afficher la valeur d'une cellule ds TextBox

Re phlaurent55,

Voici comment ça se configure:
J'ai un 1er USF, sur lequel le commandbutton me renvoi sur le deuxième usf:

Private Sub CommandButton1_Click()
CréationFicheFournisseur.Hide
NouvelleFicheSuite.Show
End Sub

Puis sur le 2ème USF, une textbox pour laquel je veux afficher sur la feuille"DomaineActivité", la valeur cellule B1:

Private Sub TextBox12_Change()
NouvelleFicheSuite.TextBox12.Value = Sheets("DomaineActivité").Range("B1").Value
End Sub

Mais rien ne se passe!!!!!

Re : Afficher la valeur d'une cellule ds TextBox

Re,

Private Sub TextBox12_Change()
NouvelleFicheSuite.TextBox12.Value = Sheets("DomaineActivité").Range("B1").Value
End Sub

Mais rien ne se passe!!!!!

Cliquez pour agrandir...

si ta cellule B1 de ta feuille "Domaine Activité" ne contient rien, tu n'auras rien dans ta TextBox12

Vérifie le contenu de cette "B1" avant de lancer ta macro

Re : Afficher la valeur d'une cellule ds TextBox

Re,

y a qq chose de pas logique dans ceci:

Private Sub TextBox12_Change()
NouvelleFicheSuite.TextBox12.Value = Sheets("DomaineActivité").Range("B1").Value
End Sub

Mais rien ne se passe!!!!!

Cliquez pour agrandir...

tu veux donc que quand ta textbox change de valeur, elle reprenne la valeur de la cellule B1 de la feuille Dom........ c'est là que se trouve le problème


je reviens sur le fil demain le devoir m'appelle
à+

Re : Afficher la valeur d'une cellule ds TextBox

bonsoir phlaurent, provence vintage,

PHL a raison c'est dans l'initialisation du 2ème usf (userform_initialize) que tu dois mettre l'instruction donnée par PHlaurent.

Une procédure textbox_change() ne s'active par définition (et comme son nom l'indique) quand la valeur du textbox change (puissante ma remarque 🙂)

A+

Re : Afficher la valeur d'une cellule ds TextBox

phlaurent55, ledzepfred, le Fil

ok ,merci, j'essaye!
pendant que j'y suis ledzepfred, peux tu regarder un autre fil si tu as un moment;
https://www.excel-downloads.com/threads/userform-selection-de-mots-cles-via-listbox.116121/
merci à toi!
bonne soirée!

Re : Afficher la valeur d'une cellule ds TextBox

Hello le Fil

ça ne fonctionne pas pour une ListBox par contre!?
Voici le code que j'ai mis:
Dans USF_Initialize
NouvelleFiche1.ListBox6.Value = Sheets("Liste1").Range("I2:I4").Value

Mais tjrs rien, suis une buze!!!
Qui peux m'aider!
Merci

Re : Afficher la valeur d'une cellule ds TextBox

Hello le Fil,
y a t'il quelqu'un qui veux bien me filer un coup de main, je patine depuis 3 jours....
merci d'avance aux bénévoles!
a tchao!

Re : Afficher la valeur d'une cellule ds TextBox

Bonjour,

remplace Value par List:

NouvelleFiche1.ListBox6.List = Sheets("Liste1").Range("I2:I4").Value

Re : Afficher la valeur d'une cellule ds TextBox

Salut skoobi, le fil;

Je désespère: ça ne fonctionne toujours pas!!!
Voici le code entier de l'USF, si tu as un peu de temps pour le décoder...
Merci encore, c sympa.

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False

For i = 1 To 4
If Me.Controls("Listbox" & i).ListIndex = -1 Then
MsgBox ("Choisir un mot clé dans chaque liste"): Exit Sub
End If
Next
NouvelleFicheSuite.TextBox12.Value = ListBox1.List(ListBox1.ListIndex)
NouvelleFicheSuite.TextBox13.Value = ListBox3.List(ListBox3.ListIndex)
NouvelleFicheSuite.TextBox14.Value = ListBox5.List(ListBox5.ListIndex)
NouvelleFicheSuite.TextBox15.Value = ListBox2.List(ListBox2.ListIndex)
NouvelleFicheSuite.TextBox16.Value = ListBox4.List(ListBox4.ListIndex)
NouvelleFicheSuite.TextBox17.Value = ListBox6.List(ListBox6.ListIndex)

Sheets("basefournisseurs").Select
Application.ScreenUpdating = False
NouvelleFicheSuite.Show
End Sub

Private Sub ListBox1_Click()

Sheets("Liste1").Select

Select Case ListBox1.ListIndex

Case 0
ListBox2.Clear
ListBox3.Clear
ListBox4.Clear
ListBox5.Clear
Range("C2").Activate
Do While ActiveCell <> ""
ActiveCell.Offset(1, 0).Activate
choix = Me.ListBox1.ListIndex
Me.ListBox2.List = [choix2].Offset(, choix).Resize(Application.CountA([choix2].Offset(, choix))).Value
Me.ListBox3.List = [choix2].Offset(, choix).Resize(Application.CountA([choix2].Offset(, choix))).Value
Me.ListBox4.List = [choix2].Offset(, choix).Resize(Application.CountA([choix2].Offset(, choix))).Value
Me.ListBox5.List = [choix2].Offset(, choix).Resize(Application.CountA([choix2].Offset(, choix))).Value


Loop


Case 1
ListBox2.Clear
ListBox3.Clear
ListBox4.Clear
ListBox5.Clear
Range("D2").Activate
Do While ActiveCell <> ""
ActiveCell.Offset(1, 0).Activate
choix = Me.ListBox1.ListIndex
Me.ListBox2.List = [choix2].Offset(, choix).Resize(Application.CountA([choix2].Offset(, choix))).Value
Me.ListBox3.List = [choix2].Offset(, choix).Resize(Application.CountA([choix2].Offset(, choix))).Value
Me.ListBox4.List = [choix2].Offset(, choix).Resize(Application.CountA([choix2].Offset(, choix))).Value
Me.ListBox5.List = [choix2].Offset(, choix).Resize(Application.CountA([choix2].Offset(, choix))).Value


Loop


Case 2
ListBox2.Clear
ListBox3.Clear
ListBox4.Clear
ListBox5.Clear
Range("E2").Activate
Do While ActiveCell <> ""
ActiveCell.Offset(1, 0).Activate
choix = Me.ListBox1.ListIndex
Me.ListBox2.List = [choix2].Offset(, choix).Resize(Application.CountA([choix2].Offset(, choix))).Value
Me.ListBox3.List = [choix2].Offset(, choix).Resize(Application.CountA([choix2].Offset(, choix))).Value
Me.ListBox4.List = [choix2].Offset(, choix).Resize(Application.CountA([choix2].Offset(, choix))).Value
Me.ListBox5.List = [choix2].Offset(, choix).Resize(Application.CountA([choix2].Offset(, choix))).Value


Loop

Case 3
ListBox2.Clear
ListBox3.Clear
ListBox4.Clear
ListBox5.Clear
Range("F2").Activate
Do While ActiveCell <> ""
ActiveCell.Offset(1, 0).Activate
choix = Me.ListBox1.ListIndex
Me.ListBox2.List = [choix2].Offset(, choix).Resize(Application.CountA([choix2].Offset(, choix))).Value
Me.ListBox3.List = [choix2].Offset(, choix).Resize(Application.CountA([choix2].Offset(, choix))).Value
Me.ListBox4.List = [choix2].Offset(, choix).Resize(Application.CountA([choix2].Offset(, choix))).Value
Me.ListBox5.List = [choix2].Offset(, choix).Resize(Application.CountA([choix2].Offset(, choix))).Value

Loop



Case 4
ListBox2.Clear
ListBox3.Clear
ListBox4.Clear
ListBox5.Clear
Range("G2").Activate
Do While ActiveCell <> ""
ActiveCell.Offset(1, 0).Activate
choix = Me.ListBox1.ListIndex
Me.ListBox2.List = [choix2].Offset(, choix).Resize(Application.CountA([choix2].Offset(, choix))).Value
Me.ListBox3.List = [choix2].Offset(, choix).Resize(Application.CountA([choix2].Offset(, choix))).Value
Me.ListBox4.List = [choix2].Offset(, choix).Resize(Application.CountA([choix2].Offset(, choix))).Value
Me.ListBox5.List = [choix2].Offset(, choix).Resize(Application.CountA([choix2].Offset(, choix))).Value


Loop



Case 5
ListBox2.Clear
ListBox3.Clear
ListBox4.Clear
ListBox5.Clear
Range("H2").Activate
Do While ActiveCell <> ""
ActiveCell.Offset(1, 0).Activate
choix = Me.ListBox1.ListIndex
Me.ListBox2.List = [choix2].Offset(, choix).Resize(Application.CountA([choix2].Offset(, choix))).Value
Me.ListBox3.List = [choix2].Offset(, choix).Resize(Application.CountA([choix2].Offset(, choix))).Value
Me.ListBox4.List = [choix2].Offset(, choix).Resize(Application.CountA([choix2].Offset(, choix))).Value
Me.ListBox5.List = [choix2].Offset(, choix).Resize(Application.CountA([choix2].Offset(, choix))).Value

Loop



End Select

End Sub







Private Sub UserForm_Activate()
Dim activite As String

Application.ScreenUpdating = False

ListBox2.Clear
ListBox3.Clear
ListBox4.Clear
ListBox5.Clear


ListBox1.ListIndex = -1
Sheets("Liste1").Select
Range("B2").Activate

Do While ActiveCell <> ""
ListBox1.AddItem ActiveCell.Value
ActiveCell.Offset(1, 0).Activate


Loop
Sheets("basefournisseurs").Select
Range("A1").Select
End Sub

Private Sub NouvelleFiche1_Initialize()
NouvelleFiche1.ListBox6.List = Sheets("Liste1").Range("I2:I4").Value

End Sub

Re : Afficher la valeur d'une cellule ds TextBox

Salut le Fil,
J'ai éssayé tous ces codes là;
ça doit certainement merder autre part, c pas possible!


NouvelleFiche1.ListBox6.ListValue = Sheets("Liste1").Range("I2:I4").Value

NouvelleFiche1.ListBox6.List = Sheets("Liste1").Range("I2:I4").Value

ListBox6.List = Range("Liste1!I2:I4").Value

ListBox6.List = Sheets("Liste1").Range("I2:I4").Value

ListBox6.Value = Range("Liste1!I2:I4").Value

ListBox6.Value = Sheets("Liste1").(Range("I2:I4").Value

ListBox6.List = CStr([I2:I4])

Re : Afficher la valeur d'une cellule ds TextBox

y a ti quelqu'un pour un coup de main!
c la galère!
merci