VBA rechercher une valeur dans une feuille précise

Flav -  
cs_Le Pivert Messages postés 8437 Statut Contributeur -
Bonjour,

Je voudrais que la date (valeur)dans la feuille 1 soit recherchée dans une feuille 2. Lorsqu'elle est trouvée on rentre une donnée "Y" de la feuille 3, 2 colonnes en dessous de la feuille 2.

->Problème viens de la ligne "If Cells".

Merci d'avance :) 

sub testlogique
For D = 2 To 366
 Sheets("feuil6").Select
If Cells(1, D) = Sheets("Feuil5").Range("M2").Value Then Range(3, D).Value = Feuil4("Q24")
Exit For
Next D
End Sub

1 réponse

  1.
    cs_Le Pivert Messages postés 8437 Statut Contributeur 730
     
    Bonjour,

    Peut-être en changeant: 

    Feuil4("Q24")


    par 

    Sheets("Feuil4").Range("Q24")


    là, il faut indiquer la feuille 

    Range(3, D).Value


    0
    1. Flav
       
      J'ai toujours l'erreur qui s'affiche. "Erreur d'exécution 9" 

      sub testlogique
For D = 2 To 366
Sheets("feuil6").Select
If Cells(1, D) = Sheets("Feuil5").Range("M2").Value Then Sheets("feuil6").Range(3, D).Value = Sheets("feuil4").Range("Q24")
Exit For
Next D

End Sub


      apparemment l'erreur serait ici 
      If Cells(1, D) = Sheets("Feuil5").Range("M2").Value
      0
      1. cs_Le Pivert Messages postés 8437 Statut Contributeur 730 > Flav
         
        essaie cela: 

        sub testlogique
For D = 2 To 366
If Sheets("feuil6").Cells(1, D) = Sheets("Feuil5").Range("M2").Value Then Sheets("feuil6").Cells(3, D).Value = Sheets("feuil4").Range("Q24")
Exit For
Next D
End Sub


        @+
        0

Discussions similaires

RETROUVER VENDEUR Sur le bon coin
PTM_026 -
Didi64_549 -

4 réponses
Le bon coin, comment retrouver un pseudonyme ?
HYPERSENSIBLE -
Robin -

8 réponses
recherche à partir de la barre d'adresse
Sylviane -
Lulin -

11 réponses