Trouver une nom dans un tableau

Résolu
dikold Messages postés 22 Date d'inscription   Statut Membre Dernière intervention   -  
pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   -
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

  1. ccm81 Messages postés 11033 Statut Membre 2 434
     
    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
    1. dikold Messages postés 22 Date d'inscription   Statut Membre Dernière intervention   1
       
      merci, il marche bien celui-ci aussi
      0
      1. pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 773 > dikold Messages postés 22 Date d'inscription   Statut Membre Dernière intervention  
         
        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
  2. dikold Messages postés 22 Date d'inscription   Statut Membre Dernière intervention   1
     
    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