Récupéré donnée dans textbox

[wachoo31]

Bonjour, le Forum, Bon Dimanche a toutes et tous

Voila ce qui me demande votre aide

J'ai une feuille avec plusieurs ligne de donnée et j'aurai voulu en double click sur B1 (par exemple) appelé un userform dans le quelle apparaîtrai dans des textboxs, les données de la ligne.

Exemple double click en B8, affiche dans le textbox1, B8 dans le textbox2, C8 dans le textbox3, D8 etc......

L'appel de userform, je sais faire, mais dire que textbox1.value= B8 la je plante.

Merci de votre aide

Wachoo31

 

[Eric C]

Bonjour le forum
Bonjour Wachoo31

Toi te lever au petit matin brumeux pour parcourir la vallée encore endormie...lol...
Sérieux :
Private Sub UserForm_Activate()
TextBox1.Value = Range("B8")
End Sub

Bon dimanche à toutes & à tous
@ ++ Eric C

 

[wachoo31]

Bonjour Eric, Le forum

Merci de te pencher sur mon problème mais ta solution marche pas car le double click peu se faire dans n'importe quelle ligne

donc B8 ou B24 ou B543

a plus

 

[Eric C]

Re Bonjour le forum
Re Bonjour Wachoo31

Alors ceci à placer dans le feuille active :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
UserForm1.TextBox1.Value = Target.Value
UserForm1.Show
End Sub

Affichage de la valeur de la cellule double cliquée dans le TextBox de l'USF.

@++ Eric C

 

[wachoo31]

Re Eric
Re le forum

Eric, avec ta soluce, j'avance mais le but est d'afficher des données dans plusieurs textbox

Exemple double click en B8, affiche dans le textbox1, B8 dans le textbox2, C8 dans le textbox3, D8 etc......

a plus

wachoo31

 

[Eric C]

Re le forum
Re Wochoo31

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
With UserForm1
.TextBox1.Value = Range("B8")
.TextBox2.Value = Range("C8")
.TextBox3.Value = Range("D8")
End With
UserForm1.Show
End Sub

Mais là tu cliques sur n'importe cell1 (par ex) et l'USF s'affiche quand même!
Voir aussi avec If

@++ Eric C

 

[Eric C]

Re le forum
Re Wachoo31

Après relecture, j'en déduit que tes données sont toutes sur la ligne 8 (B8,C8,D8) donc new code for you :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("b8:d8")) Is Nothing Then
With UserForm1
.TextBox1.Value = Range("B8")
.TextBox2.Value = Range("C8")
.TextBox3.Value = Range("D8")
End With
UserForm1.Show
End If
End Sub

@ ++ Eric C

 

[wachoo31]

re Eric

Merci de te penchez sur mon problème mais non les données ne sont pas toujour en ligne 8, il y a 50 lignes et a chaque fois que je click sur

Ex: B5, les données concerne la ligne 5
B24, les données concerne la ligne 24

etc....

Bien à toi

Wachoo31