VBA rechercher une valeur dans une feuille précise

Fermé

Flav - Modifié le 21 avril 2022 à 12:01
cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 - 21 avril 2022 à 21:50

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

A voir également:

VBA rechercher une valeur dans une feuille précise
Rechercher ou entrer l'adresse - Guide
Comment supprimer une feuille sur word - Guide
Rechercher une adresse - Guide
Rechercher une chanson - Guide
Feuille de pointage excel - Télécharger - Tableur

1 réponse

Réponse 1 / 1

cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
21 avril 2022 à 12:14

Bonjour,

Peut-être en changeant:

Feuil4("Q24")

par

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

là, il faut indiquer la feuille

Range(3, D).Value

Flav
21 avril 2022 à 20:18

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

cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729 > Flav
21 avril 2022 à 21:50

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

Discussions similaires

recherche à partir de la barre d'adresse

Excel VBA : Récupérer la valeur d'une cellule

Reporter valeur sur autre feuille avec critere

Feuille de score belote

[Excel] Vérifier existence cellules colonne A dans colonne C