VBA rechercher une valeur dans une feuille précise
Flav
-
cs_Le Pivert Messages postés 7904 Date d'inscription Statut Contributeur Dernière intervention -
cs_Le Pivert Messages postés 7904 Date d'inscription Statut Contributeur Dernière intervention -
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 :)
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
A voir également:
- VBA rechercher une valeur dans une feuille précise
- Rechercher ou saisir une url - Guide
- Bruler une feuille de laurier - Guide
- Rechercher une chanson - Guide
- Comment supprimer une feuille sur word - Guide
- Comment imprimer en a5 sur une feuille a4 - Guide
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 Subapparemment l'erreur serait ici
If Cells(1, D) = Sheets("Feuil5").Range("M2").Valuesub 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@+