Fonction FIND sous VBA
Résolu/Fermé
kurth
Messages postés
21
Date d'inscription
lundi 4 janvier 2010
Statut
Membre
Dernière intervention
24 septembre 2013
-
17 déc. 2010 à 11:45
alex38 - 30 janv. 2013 à 14:51
alex38 - 30 janv. 2013 à 14:51
A voir également:
- Fonction FIND sous VBA
- Fonction si et - Guide
- Fonction moyenne excel - Guide
- Fonction somme excel - Guide
- Vba ouvrir un fichier excel avec chemin ✓ - Forum VB / VBA
- Incompatibilité de type vba ✓ - Forum Programmation
3 réponses
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 744
17 déc. 2010 à 14:09
17 déc. 2010 à 14:09
Bonjour à tous,
Pour une recherche "stricte", vous pouvez utiliser la fonction Match. Exemple de Silkyroad :
Pour une recherche "stricte", vous pouvez utiliser la fonction Match. Exemple de Silkyroad :
Sub test()
Dim Cible As String
Dim x As Long
Cible = "essai"
On Error Resume Next
x = Application.Match(Cible, Worksheets("Feuil1").Columns("A:A"), 0)
If x = 0 Then
MsgBox "Valeur " & Cible & " non trouvée."
Else
MsgBox "Valeur " & Cible & " trouvée dans la ligne: " & x
End If
End Sub
lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 190
17 déc. 2010 à 13:54
17 déc. 2010 à 13:54
Bonjour,
Les données doivent êtres mise par ordre alphabétique.
Et tu peu remplacer ton 2èm Find par..
A+
Les données doivent êtres mise par ordre alphabétique.
Et tu peu remplacer ton 2èm Find par..
Rows(Trouve.Row).Select
A+
kurth
Messages postés
21
Date d'inscription
lundi 4 janvier 2010
Statut
Membre
Dernière intervention
24 septembre 2013
1
17 déc. 2010 à 14:25
17 déc. 2010 à 14:25
merci à tous.
j'ai trouvé une autre solution avec la fonction find! il suffit d'ajouter l'argument suivant dans la syntaxe
With Sheets("feuil1").Columns("A:A")
Set trouve = .Find(CodeArticle, LookIn:=xlValues,LookAt:=xlWhole)
End With
j'ai trouvé une autre solution avec la fonction find! il suffit d'ajouter l'argument suivant dans la syntaxe
With Sheets("feuil1").Columns("A:A")
Set trouve = .Find(CodeArticle, LookIn:=xlValues,LookAt:=xlWhole)
End With
lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 190
Modifié par lermite222 le 17/12/2010 à 14:45
Modifié par lermite222 le 17/12/2010 à 14:45
Bravo et..
Merci, ça nous permet de nous remettre en mémoire certaines solutions qui nous ont échaper.
(Ont peu pas tout mémoriser,(y a tellement de solutions))
A+
Merci, ça nous permet de nous remettre en mémoire certaines solutions qui nous ont échaper.
(Ont peu pas tout mémoriser,(y a tellement de solutions))
A+
kurth
Messages postés
21
Date d'inscription
lundi 4 janvier 2010
Statut
Membre
Dernière intervention
24 septembre 2013
1
17 déc. 2010 à 15:07
17 déc. 2010 à 15:07
le principal c'est de trouver de l'aide et des solutions...
et surtout de les partager !
et surtout de les partager !
Modifié par lermite222 le 17/12/2010 à 14:18
Bien trouver, j'y ai pas pensé...
A+
17 déc. 2010 à 14:19
Je n'y songeais pas non plus... Lorsque j'ai consulté ce message la première fois, tu n'étais pas encore passé... J'ai cherché sur Internet car le "stricte" me turlupinait... Et voilà que je suis retombé sur un "classique" du genre.
Bonne fêtes de fin d'année à toi et tes proches.
A+
30 janv. 2013 à 14:51