F.Range(C.Address)

[wachoo31]

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

 

[wilfried_42]

Re : F.Range(C.Address)

Bonjour,

pas sur d'avoir compris, à essayer je n'ai pas testé

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
     Dim F As Worksheet
     Dim C As Range, i as integer
     Cancel = True
     If Not Application.Intersect(Target, Columns(7)) Is Nothing Then
         For Each F In Sheets
              If Not F Is Sheets("Feuil1") Then
                   i = 0
                   Set C = F.Cells.Find(Target.Value)
                   If Not C Is Nothing Then
                        Usf1.Controls("TextBox" & i).Value = C.value
                   End If
              End If
         Next F
         usf1.show
     End If
End Sub

 

[wachoo31]

Re : F.Range(C.Address)

Bonjour wilfried_42 ,

Merci a toi de te pencher sur mon problème mais je viens d'essayé ta solution et cela ne marche pas, j'ai une erreur

 

[wilfried_42]

Re : F.Range(C.Address)

re:

je viens de faire un essai avec la logique utilisée, chez moi ça marche !

alors à vérifier :

Combien de feuilles passes tu en revue
Tes textbox s'appellent bien TextBox1 à 5 ?
chacune de ces textbox correspondent elles à une feuille chacune ?

je ne vois qu'un probleme sur la textbox le nom associé à i qui progresse à chaque feuille