Re : Recherche et report
Bonjour,
J'ai essaye et j'ai pris l'option VBA qui correspond mieux a mon fichier final. Merci a DoubleZero et a MaPomme pour la contribution.
J'ai ajoute une 2eme partie de code pour gerer un user form.
Un double click sur une cellule de la feuille Table ouvre un usf avec diverses information.
Le 2 fonctions tournent tres bien separement, par contre, si je lance l'usf, je me retrouve avec l'erreur "Date non insrcite dans table".
Je ne peux pas envoyer le fichier car j'ai des infos confidentielles, par contre les differentes lignes de codes sont ci dessous:
'Sur feuille Rapport
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo fin
If Target.Address = "$B$1" Then Sheets("Table").Rows("1:1").Find(what:=Sheets("Rapport"). _
[b1]).Offset(1, 0).Resize(348, 1).Copy Destination:=Sheets("Rapport").[b3]
Target.Select
Exit Sub
fin:
MsgBox ("Date non inscrite dans l'onglet ""Table"".")
Target = ""
End Sub
'Sur feuille table
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("B2:BP349")) Is Nothing Then
Cancel = True
UserForm1.Show
End If
End Sub
'Sur l'Userform
Option Explicit
Private Sub CommandButton1_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize()
Me.TextBox1.Text = ActiveCell.Value
End Sub
Private Sub TextBox1_Change()
Dim Cel As Range
Dim Ligne As Long
Dim I As Integer
For I = 2 To 7
Me.Controls("TextBox" & I) = ""
Next I
With Sheets("BDD")
Set Cel = .Columns("A").Find(what:=Me.TextBox1, LookIn:=xlValues, lookat:=xlWhole)
If Not Cel Is Nothing Then
For I = 2 To 7
Me.Controls("TextBox" & I) = .Cells(Cel.Row, I)
Next I
End If
End With
End Sub
Merci de votre aide pour debusquer l'erreur.
A plus
Zefirstfan