Trouver une nom dans un tableau

Résolu/Fermé
dikold Messages postés 22 Date d'inscription mardi 19 mai 2015 Statut Membre Dernière intervention 14 novembre 2016 - Modifié par pijaku le 19/05/2015 à 14:50
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 19 mai 2015 à 14:51
Bonjour,

Je voudrais que mon code trouve le mot "Italy" dans une ligne d'un tableau mais quand je le lance, il me dit "rien" alors que le mot y est.



Voici mon code :

Dim trouve As String

trouve = ActiveSheet.UsedRange.Rows(5).Select
    If trouve = "Italy" Then
        MsgBox "cool"
    Else:
        MsgBox "rien"
    End If


Merci de votre aide par avance

2 réponses

ccm81 Messages postés 10851 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 16 avril 2024 2 404
Modifié par ccm81 le 19/05/2015 à 11:37
Bonjour

un exemple pour chercher dans une ligne
Dim obj As Object
Dim li As Long
li = 5
Set obj = Rows(li).Find("Italy", , , xlWhole)
If obj Is Nothing Then
  MsgBox "rien"
Else
  MsgBox "trouvé en colonne " & obj.Column
End If

Cdlmnt
2
dikold Messages postés 22 Date d'inscription mardi 19 mai 2015 Statut Membre Dernière intervention 14 novembre 2016 1
19 mai 2015 à 14:33
merci, il marche bien celui-ci aussi
0
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 743 > dikold Messages postés 22 Date d'inscription mardi 19 mai 2015 Statut Membre Dernière intervention 14 novembre 2016
Modifié par pijaku le 19/05/2015 à 14:52
Bonjour,

il marche bien celui-ci aussi
Oui et il te permet de savoir dans qu'elle colonne... Ce qui est encore mieux n'est-il pas?

Salut ccm81 ;-)
0
dikold Messages postés 22 Date d'inscription mardi 19 mai 2015 Statut Membre Dernière intervention 14 novembre 2016 1
Modifié par pijaku le 19/05/2015 à 14:50
nn c'est bon j'ai trouvé avec ça :
Dim valeur As Long
valeur = Application.WorksheetFunction.CountIf(Range("5:5"), "Italy")
If valeur = 1 Then
    MsgBox ("Il y a Italy ")
Else:
    MsgBox ("Il n'y a pas Italy ")
End If
1