Discussion :

[Russian]

Bonjour tout le monde))

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Solutions ou propositions??

Merci)))

[Invité]

Bonjour,

Une solution possible :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Escorpion]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Slooby]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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à !

[Marc-L]

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

[Promethee25]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Philippe Tulliez]

Bonjour Marc,

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.
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.

[Slooby]

Je suis d'accord avec toi Marc :

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.

[Marc-L]

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 …