Textebox avec ligne active

[georgioGD]

Bonjour les EXCELLENTS.

Je soumets à vos neurrones un petit problème qui doit être facile pour vous ,alors que pour moi ???????.

Les explications sont dans le petit fichier joint

Merci à tous et à tout de suite

 

[kjin]

Re : Textebox avec ligne active

Bonsoir,
Pas trouvé la zone jaune alors..
Dans le module de la feuille

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Row > 9 And Target.Row < 21 Then
TextBox1 = Cells(Target.Row, 8)
TextBox2 = Cells(Target.Row, 10)
End If
End Sub

A+
kjin

 

[georgioGD]

Re : Textebox avec ligne active

Merci,
en fait c'est la zone bleu désolé

 

[georgioGD]

Re : Textebox avec ligne active

Bonjour,

A priori c'est plus difficile qu'il n'en parait ou impossible ou Bien c'est trop facile

Merci

 

[kjin]

Re : Textebox avec ligne active

Bonjour,

A priori c'est plus difficile qu'il n'en parait ou impossible ou Bien c'est trop facile

😕 de quoi parles tu ?
Jaune ou bleue, le code fourni fonctionne....à condition de le copier dans ton classeur et au bon endroit
J'ai juste réadapté pour coller exactement à la plage
Suivant le cas adapte le code qui te convient en supprimant celui dont tu ne te serts pas

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

'Si la plage est fixe ("A9:L20")

If Target.Count > 1 Then Exit Sub
TextBox1 = "" 'on vide les Textbox
TextBox2 = ""
If Not Intersect(Target, Range("A9:L20")) Is Nothing Then
TextBox1 = Cells(Target.Row, 8) 'Alim des Textbox
TextBox2 = Cells(Target.Row, 10)
End If

'Si tu rajoutes des lignes (test la dernière cellule colonne B)
' effaces les lignes précédentes et enlèves le quotes(') devant les lignes suivantes

'If Target.Count > 1 Then Exit Sub
'TextBox1 = "" 'on vide les Textbox
'TextBox2 = ""
'Derlign = Range("B65000").End(xlUp).Row
'If Not Intersect(Target, Range("A9:L" & Derlign)) Is Nothing Then
'TextBox1 = Cells(Target.Row, 8) 'Alim des Textbox
'TextBox2 = Cells(Target.Row, 10)
'End If

End Sub

A+
kjin

 

[georgioGD]

Re : Textebox avec ligne active

Merci beaucoup a tous et specialement àKJIN ,

effectivement cela fonctionne , maintenant je vais chercher à comprendre et à l'adapter.


Bonne fin de WE