Discussion :

[angefou225]

Bonjour à tous,

Pouvez-vous m'aider résoudre mon problème qui est le suivant :

J'ai créer un userform avec trois textbox, et je souhaite que lorsque la valeur de ma première textbox est égale à celle
de ma cellule A1, il soit afficher la valeur de la cellule B1 dans la textbox2 sans que j'ai a entrer quoi que ce soit dans cette
textbox2 manuellement. j'ai essayer la fonction find ça n'as pas marcher j'ai donc essayer ce codage :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub UserForm_Initialize()
 
If TextBox1.Value = shest("Stock du Mois").Range("B2") Then
TextBox2 = Sheets("Stock du Mois").Range("A1")
 End If
 
End Sub

sa ne marche toujours pas, même lorsque je le met en userform_activate().

Pouvez-vous me dire ou est mon erreur et m'aider a coorriger et comprendre s'il vous plait.
Je vous remercie d'avance.

[geogeo70]

bonjour,

Pour lier un textbox à une cellule en initialisation il est facile de remplir la propriété "Rowsource" et vous pouvez ainsi être en interaction comme dans un formulaire


ce qui donne :



C'est aussi possible de réaffecter le "rowsource" dans le code

Bonne journée

Geogeo

[angefou225]

Bonjour geogeo,

Merci pour votre reponse. comme vous pouvez le voir dans la capture ecran de mon tableau

lorsque une des valeurs se trouvant dans la colonne B de mon tableau est ecrite dans la textbox1 automatiquement l'a designation correspondant apparaisse dans la textbox2. j'essaie de faire un codage pour chaque ligne pour que lorsque la valeur en B1 par exemple est entrer dans la trextbox1, le fichier aille chercher la valeur de la cellule en A1.

[Minise]

essaie de le mettre en

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Private Sub TextBox1_Change()

Le Userform_Initialize() c'est quand tu charges le formulaire a priori il est vide au chargement il pourra jamais t'afficher ton truc

[geogeo70]

bonsoir
Il vaut mieux utiliser un combobox qui cible les valeurs de "Symbole" et un textbox pour les valeurs correspondantes "Désignation".

un exemple de code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub ComboBox1_Change()
Dim dest As Range
 
Application.EnableEvents = False
Set dest = Range("A2:A6")
If ComboBox1.ListIndex = -1 Then
       TextBox2.Text = ""
   Else
       TextBox2.Text = dest.Cells(ComboBox1.ListIndex + 1, 1) 'listindex commence à zéro donc ligne+1
End If
Application.EnableEvents = True
End Sub
 
Private Sub UserForm_Initialize()
Dim dest As Range
 
 
ComboBox1.ListIndex = 0 'initialise à la première ligne
Set dest = Range("A2:A6")
TextBox2.Text = dest.Cells(ComboBox1.ListIndex + 1, 1)
End Sub

Bonne soirée

geogeo