VBA - Valeur dans une cellule en fonction d'une TextBox
Bonjour à tous
Désolé tout d'abord si ce sujet a été traité par ailleurs mais après des heures de recherche je ne trouve pas de solution.
Merci à Celle, celui ou ceux qui voudront prendre un peu de leur temps pour m'aider.
Mon problème :
j'insère une valeur dans une TextBox
Cette valeur doit être copiée dans une cellule
Cette cellule est en colonne E
La ligne de cette cellule doit être la même que celle de la cellule B
(dont la valeur correspond à celle de la TextBox)
La colonne B est une colonne de référence
J'espère être assez clair
Je joins un fichier d'explication si besoin.
Merci d'avance encore pour votre aide
Bonne journée,
Dominique
Bonjour et bienvenue sur le forum
Joins ton fichier et on te réglera ça !
Bye !
Bonjour et merci pour ta réponse rapide :
J'ai trouvé la solution avec ce code :
Private Sub TextBox1_Change()
Sheets("Epreuve").Range("N°").Value = TextBox1.Value
TextBox2.Text = Sheets("Epreuve").Range("Cheval").Value
TextBox3.Text = Sheets("Epreuve").Range("Cavalier").Value
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim R As Range 'déclare la variable R (Recherche)
Set O = Worksheets("Epreuve") 'définit l'onglet O (à adapter à ton cas)
Set R = O.Columns(2).Find(Me.TextBox1.Value, , xlValues, xlWhole) 'définit la recherche R (recherche la valeur entière de la TextBox1 dans la colonne 2 (=B) de l'onglet O
If Not R Is Nothing Then 'condition : si il existe au moins une occurrence trouvée
Me.TextBox4.ControlSource = "'" & O.Name & "'!" & R.Offset(0, 3).Address 'Lie le TextBox2 à la cellule de la colonne E
Else
Me.TextBox4.ControlSource = "" 'Pas de cellule liée au TextBox2
End If 'fin de la condition
If Not R Is Nothing Then 'condition : si il existe au moins une occurrence trouvée
Me.TextBox5.ControlSource = "'" & O.Name & "'!" & R.Offset(0, 4).Address 'Lie le TextBox2 à la cellule de la colonne F
Else
Me.TextBox5.ControlSource = "" 'Pas de cellule liée au TextBox5
End If 'fin de la condition
If Not R Is Nothing Then 'condition : si il existe au moins une occurrence trouvée
Me.TextBox6.ControlSource = "'" & O.Name & "'!" & R.Offset(0, 6).Address 'Lie le TextBox6 à la cellule de la colonne H
Else
Me.TextBox6.ControlSource = "" 'Pas de cellule liée au TextBox5
End If 'fin de la condition
If Not R Is Nothing Then 'condition : si il existe au moins une occurrence trouvée
Me.TextBox7.ControlSource = "'" & O.Name & "'!" & R.Offset(0, 7).Address 'Lie le TextBox2 à la cellule de la colonne I
Else
Me.TextBox7.ControlSource = "" 'Pas de cellule liée au TextBox5
End If 'fin de la condition
End Sub
Par contre , lorsque je valide ma TextBox7, j'aimerai revenir automatiquement à la TextBox1
Existe-t'il un code pour ça ?
D'avance merci,
Dominique