Afficher la valeur d'une cellule ds TextBox

Créer une discussion
Répondre

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
Trier par date Trier par votes
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:
Code: 
Userform1.TextBox1.value= Sheets("[COLOR="Blue"]ta feuille[/COLOR]").Range("ta cellule").value
 
Vote positif 0 Vote négatif
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!!!!!
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
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
à+
 
Vote positif 0 Vote négatif
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+
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
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])
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

KTM
  • Question Question
XL 2016 Boucle sur plusieurs plages pour les Trier
Réponses
3
Affichages
116
Nicolas JACQUIN
Nicolas JACQUIN
N
  • Question Question
Microsoft 365 Masquer colonnes selon valeur d'une cellule
Réponses
6
Affichages
144
nike780
N
R
  • Question Question
XL 2021 Recherche formule pour compléter une cellule a partir des données d'une autre feuille du classeur (16/03/2026)
2
Réponses
18
Affichages
842
laurent950
laurent950
M
  • Question Question
Microsoft 365 Chercher dernière valeur d'une ligne mais avec une particularité
Réponses
4
Affichages
377
Marie.
M
L
  • Question Question
Microsoft 365 listes des colonnes masquer.
Réponses
7
Affichages
332
LEPATOCHE
L
E
  • Question Question
Microsoft 365 Problème format date
Réponses
7
Affichages
298
Cousinhub
Cousinhub
O
  • Question Question
XL 2010 Formule qui ne s'exécute pas
Réponses
10
Affichages
177
Oscar_Wallace
O
D
  • Résolu(e)
Microsoft 365 VBA - Est-ce que 'D' a une signification spéciale ?
2
Réponses
18
Affichages
385
danielco
D
B
  • Résolu(e)
XL 2021 VBA : activer une feuille dont le nom est la valeur d'une cellule
Réponses
2
Affichages
227
berru76
B
E
  • Résolu(e)
XL 2010 Affichage d'un USF sans module mais avec du code inscrit dans le VBE de la feuille1
2
Réponses
16
Affichages
1 K
ericcool
E
F
  • Question Question
Autres formule date
Réponses
3
Affichages
256
sylvanu
sylvanu
jeff1494
  • Question Question
XL 2021 Détecter un changement dans un des contrôles de formulaire et mettre à jour un TS correspondant.
2
Réponses
15
Affichages
746
jeff1494
jeff1494
D
  • Résolu(e)
XL 2019 plusieurs critères
Réponses
5
Affichages
265
Dand87
D
F
  • Question Question
XL 2019 Demande aide formule afficher montant le plus grand.
Réponses
2
Affichages
163
Fidmo
F
eastwick
  • Question Question
XL 2016 compter le nombre de cellules selon leur valeur
Réponses
4
Affichages
128
ALS35
A
B
  • Question Question
XL 2013 Corriger mes codes
2
Réponses
25
Affichages
966
Valtrase
Valtrase
M
  • Question Question
Autres occurence
2
Réponses
28
Affichages
553
nullosse
N
Raffa
  • Question Question
XL 2019 Recherche d'une cellule avec 2 produits
Réponses
4
Affichages
149
sylvanu
sylvanu
pascal21
  • Question Question
XL 2019 filter en VBA des nombres au format texte
Réponses
1
Affichages
178
sylvanu
sylvanu
P
  • Résolu(e)
Microsoft 365 ajouter une condition dans une formule conditionnelle
Réponses
7
Affichages
171
pat66
P
Retour