Recuperer date de colonne dans un textbox d'un USF

[yves03]

Bonsoir,
J'ai une macro qui me permet d'ecrire dans des cellules à l'aide d'un USF et de combobox. Jusque la tout fonctionne bien.
Par contre lorsque je clique sur une cellule de la colonne B, E ou H je voudrais pouvoir recuperer la date qui est en tete de colonne dans le Textbox10.
Je ne sais pas si je suis tres clair, mais je vous joint le fichier.
Merci d'avance

 

[alex67800]

Re : Recuperer date de colonne dans un textbox d'un USF

Bonsoir Yves03,

Une solution comme ceci:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("B1:B50")) Is Nothing Then
[COLOR="red"]Saisie.TextBox10.Value = Range("C2").Value[/COLOR]
Saisie.Show
End If
If Not Intersect(Target, Range("E1:E50")) Is Nothing Then
[COLOR="red"]Saisie.TextBox10.Value = Range("F2").Value[/COLOR]
Saisie.Show
End If
If Not Intersect(Target, Range("H1:H50")) Is Nothing Then
[COLOR="Red"]Saisie.TextBox10.Value = Range("I2").Value[/COLOR]
Saisie.Show
End If
End Sub

 

[yves03]

Re : Recuperer date de colonne dans un textbox d'un USF

Merci de ton aide Alex, en fait je cherchais compliqué !!!
Merci encore, a bientot
😉