Problème avec la condition IF

Bonjour tout le monde))

Je veux faire une condition IF mais ça ne marche pas vraiment (Erreur) :

Code:

---

If " The value of the case A3 in Sheet1 is present in the first column in the sheet 2" Then......

---

J'ai essayé ce code ci dessous:

Code:

---

If Worksheets("Sheet1").Range("A3") = Worksheets("Sheet2").Range("A:A") Then......

---

Solutions ou propositions??;)

Merci)))

Bonjour,

Une solution possible :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Sub TestRechercherValeur()   If RechercherValeur(Sheets(2).Columns(1), Sheets(1).Range("A3")) = True Then   MsgBox "OK"   End If   End Sub     Function RechercherValeur(ByVal AireABalayer As Range, ByVal ValeurATrouver As String) As Boolean   Dim CellRecherchee As Range   RechercherValeur = False Set CellRecherchee = AireABalayer.Find(What:=ValeurATrouver, LookIn:=xlValues) If Not CellRecherchee Is Nothing Then RechercherValeur = True Set CellRecherchee = Nothing   End Function

---

Cordialement.

Bonjour,

Il y a egalement plus simple via une function deja toute faite : countif. Ce qui donne :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

If Application.WorksheetFunction.CountIf(Sheets(2).Columns(1), Range("a3")) >= 1 Then   MsgBox "ok"   Else   MsgBox "erreur" End If   End Sub

---

Escorpion

Bonjour,

Si tu veux juste savoir si ta valeur de départ est présente dans ta colonne d'arrivée, sans compter le nombre de fois où elle est présente, tu n'as pas besoin d'utiliser la fonction CountIf.

Tu peux simplement parcourir les cellules de ta colonne, et dès que tu atteints une égalité (ou non d'ailleurs si ta valeur n'est pas présente) tu sors de la boucle. ça te permet de t’arrêter dès que la valeur est trouvée, ça rend les calculs plus rapides.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub estPresent() Dim nb_lignes As Long nb_lignes = Worksheets("Sheet2").Range("A1").End(xlDown).Row 'ça te donne le nombre de lignes de ta colonne A   For i=1 to nb_lignes If Worksheets("Sheet1").Range("A3").Value = Worksheets("Sheet2").Range("A"& i).Value Then 'égalité trouvée, on s'arrete MsgBox ("La valeur recherchée est présente") Exit Sub End If Next i   End Sub

---

Voilà !

Bonjour, bonjour !

Utiliser des fonctionnalités d'Excel est bien plus efficace qu'une boucle réinventant la roue en VBA ‼
Une fonctionnalité d'Excel étant déjà compilée est donc bien plus rapide et efficace qu'un code interprété en VBA …

Donc avant d'entreprendre ne serait-ce que la première ligne de code, se poser la question
« Existe-t-il une fonctionnalité d'Excel répondant, même partiellement, à mon besoin ? »


__________________________________________________________________________________________________
Je suis Charlie - Je suis Bardo

Citation:

---

Envoyé par Slooby

Code:

---

1 2	nb_lignes = Worksheets("Sheet2").Range("A1").End(xlDown).Row 'ça te donne le nombre de lignes de ta colonne A

---

---

Bonjour,

Je suis totalement d'accord avec Marc-L.
Et ton code suppose sans le dire qu'il n'y a aucune case vide insérée parmi les cases remplies en colonne A. C'est une supposition plutôt risquée.

Bonjour Marc,

Citation:

---

Utiliser des fonctionnalités d'Excel est bien plus efficace qu'une boucle réinventant la roue en VBA ‼
Une fonctionnalité d'Excel étant déjà compilée est donc bien plus rapide et efficace qu'un code interprété en VBA …
Donc avant d'entreprendre ne serait-ce que la première ligne de code, se poser la question
« Existe-t-il une fonctionnalité d'Excel répondant, même partiellement, à mon besoin ? »

---

Je ne peux qu'abonder dans ton sens. :plusser:
Je me fais la même réflexion dès que je dois aborder un problème dans Excel.
Y a-t-il une fonction qui me permette d'obtenir ce résultat ou y a-t-il un outil d'excel ayant sa méthode en VBA, me permettant de réaliser ce que j'attends.

Je suis d'accord avec toi Marc :

Citation:

---

Envoyé par Marc-L

Donc avant d'entreprendre ne serait-ce que la première ligne de code, se poser la question
« Existe-t-il une fonctionnalité d'Excel répondant, même partiellement, à mon besoin ? »

---

Mais même si Excel peut nous faire cette recherche de cellule, on perd l'interaction de la machine avec l'utilisateur.
Je pense que le but premier de "Russian" est de renseigner une valeur, et d'afficher pour l'utilisateur (via un MsgBox) s'il y a existence ou non de cette valeur.

Merci de vos retours !

Philippe, ton excellent tutoriel sur les filtres avancés en est la démonstration !

Slooby, je ne comprends pas ta réflexion car c'est exactement ce que réalise le code d'Escorpion …