wachoo31
XLDnaute Occasionnel
Bonjour a toutes et tous
Grace a ce forum , j'avance doucement dans mon programme, néanmoins pour le moment je bloque sur une macro.
Dans la macro si dessous comment programmer l'affichage des textbox 2 à 5
La textbox1 va chercher la bonne valeur, mon souhait est que pour les textbox 2 à 5 la valeur soit celle des cellules suivante ( en ligne)par rapport a la textbox1
macro :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim F As Worksheet
Dim C As Range
Cancel = True
If Not Application.Intersect(Target, Columns(7)) Is Nothing Then
For Each F In Sheets
If Not F Is Sheets("Feuil1") Then
Set C = F.Cells.Find(Target.Value)
If Not C Is Nothing Then
Usf1.TextBox1.Value = F.Range(C.Address)
Usf1.TextBox2.Value = F.Range(C.Address)
Usf1.TextBox3.Value = F.Range(C.Address)
Usf1.TextBox4.Value = F.Range(C.Address)
Usf1.TextBox5.Value = F.Range(C.Address)
Usf1.TextBox6.Value = F.Range(C.Address)
Usf1.Show
End If
End If
Next F
End If
End Sub
En vous remerciant
Grace a ce forum , j'avance doucement dans mon programme, néanmoins pour le moment je bloque sur une macro.
Dans la macro si dessous comment programmer l'affichage des textbox 2 à 5
La textbox1 va chercher la bonne valeur, mon souhait est que pour les textbox 2 à 5 la valeur soit celle des cellules suivante ( en ligne)par rapport a la textbox1
macro :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim F As Worksheet
Dim C As Range
Cancel = True
If Not Application.Intersect(Target, Columns(7)) Is Nothing Then
For Each F In Sheets
If Not F Is Sheets("Feuil1") Then
Set C = F.Cells.Find(Target.Value)
If Not C Is Nothing Then
Usf1.TextBox1.Value = F.Range(C.Address)
Usf1.TextBox2.Value = F.Range(C.Address)
Usf1.TextBox3.Value = F.Range(C.Address)
Usf1.TextBox4.Value = F.Range(C.Address)
Usf1.TextBox5.Value = F.Range(C.Address)
Usf1.TextBox6.Value = F.Range(C.Address)
Usf1.Show
End If
End If
Next F
End If
End Sub
En vous remerciant