Comment appeler des données contenues dans une feuille autre que la feuille

Le
galva
Bonjour,
Je continue à galérer car je n'arrive pas à appeler des données contenues dans une feuille autre que la feuille active lorsque un formulaire affiché? Ci-dessous la partie du code que je dois appeler dans la feuille BD et que je dois appeler par le formulaire dans la feuille saisie.

1ere partie à l'initialisation: données à récupérer dans la feuille BD.
Me.Saisie.RowSource = "Z13:Z" & [Z65000].End(xlUp).Row
Me.Catégorie.RowSource = "AB13:AB" & [AB65000].End(xlUp).Row
Me.Référence.RowSource = "AC13:AC" & [AC65000].End(xlUp).Row
Me.Cdc.RowSource = "AI13:AI" & [AI65000].End(xlUp).Row
2eme partie: données à récupérer dans la feuille BD.
Private Sub Cdc_Change()
Me.Tests.Clear
For Each c In Range([AD13], [AD6500].End(xlUp))
If c = Me.Cdc Then Me.Tests.AddItem c.Offset(0, 1)
Next c
End Sub
3eme partie:données à récupérer dans la feuille BD.
Private Sub Tests_Click()
Ligne = Columns("AE:AE").Find(What:=Me.Tests, After:=Range("AE13"), LookIn:=xlValues, _
LookAt:=xlWhole, SearchOrder:=xlByRows).Row
Me.Machine = Range("AF" & Ligne)
Me.Opérateur = Range("AG" & Ligne)
Me.Durée = Range("AH" & Ligne)
If Not Me.date_début = "" Then
Me.Date_th = CDate(Me.Durée) + CDate(Me.date_début)
End If
If Not IsDate(Me.date_début) Then
MsgBox "Attention Vous Avez Oublié de Saisir la Date d'Arrivée!"
Me.date_début = ""
Me.date_début.SetFocus
Me.Date_th = CDate(Me.Durée) + CDate(Me.date_début)
End If
End Sub

J'ai utilisé With worksheets end with mais je n'ai pas réussi, a priori je l'ai mal utilisé.

Merci de votre aide et vos propositions.
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Publicité
Poster une réponse
Anonyme