Bonjour, j'ai un problème au niveau du lien vers la valeur de cellule d'une autre feuille.
Je suis débutant et c'est pas très clair pour moi. Mon programme ne marche pas
Il ne s'execute pas. il me dit 'Erreur d'execution '424'' Objet requis
 
J'ai un tableau sur une feuille principale, plusieurs feuilles correspondant à MyValue2 et une feuille Feuil1 ou je veux faire apparaitre des informations prises entre la feuille principale et la feuille correspondant à MyValue2.
C'est au niveau de l'instruction Range("B" & 4).Value = MyValue2.Range("B" & 2) que ca marche pas je crois.
Par avance merci de vos conseils.
 
 
Sub formulaire()
 
Message1 = "Entrer le nom de la société recherchée"
Title1 = "Recherche d'une société"
MyValue1 = InputBox(Message1, Title1, Default)
If MyValue1 = "" Then Exit Sub
 
Message2 = "Entrer le nom du produit recherché"
Title2 = "Recherche d'un produit"
MyValue2 = InputBox(Message2, Title2, Default)
If MyValue2 = "" Then Exit Sub
 
Dim i As Integer
    For i = 4 To 50
        If Range("A" & i).Value = MyValue1 Then
        Worksheets("Feuil1" ).Activate
        Range("B" & 2).Value = MyValue1
        Range("B" & 4).Value = MyValue2.Range("B" & 2)
        End If
    Next
End Sub

Derniere version de mon programme sur lequel je suis tjrs en galere...merci de vos réponses
 
Sub formulaire()
 
Message1 = "Entrer le nom de la société recherchée"
Title1 = "Recherche d'une société"
MyValue1 = InputBox(Message1, Title1, Default)
If MyValue1 = "" Then Exit Sub
 
Message2 = "Entrer le nom du produit recherché"
Title2 = "Recherche d'un produit"
MyValue2 = InputBox(Message2, Title2, Default)
If MyValue2 = "" Then Exit Sub
 
Dim i As Integer
    For i = 4 To 50
        If Range("A" & i).Value = MyValue1 Then
        Worksheets("Feuil1" ).Activate
        Range("B" & 2).Value = MyValue1
        Worksheets(MyValue2).Select
        Range("B" & i).Select
        Selection.Copy
        Worksheets("Feuil1" ).Select
        Range("B4" ).Select
        End If
    Next
End Sub

bonjour,
 
Déjà regarde dans la fenêtre de la macro "outils->references". Si tu as une case cochée avec le therme manquant dedans, decoche le et relance le programme
 
Sinon fait bien attention que le termes dans la deuxieme saisie correspond bien au nom d'une feuille du classeur (Myvalue2)