comparer une valeur donné avec une liste de valeur

Question

Bonjour, 

je souhaiterais créer une macro sur Excel pour pouvoir comparer une valeur donné avec une liste de valeur contenue dans un tableau (une colonne) et savoir à travers un msgBox si cette valeur est dans le tableau ou pas .
si quelqu'un pouvait m'aider merci beaucoup

f894009 · Answer

Bonjour,

Deux exemples:

Sub test_1()
  Dim Nbr As Integer
  'Peut-etre une cellule ou autre
  MaValeur = 11
  'Feuille a adapter
  With Worksheets("feuil1")
    'Recherche nombre de fois MaValeur dans la colonneB (a adapter)
    Nbr = Application.CountIf(.Columns("B"), MaValeur)
    If Nbr > 0 Then
      MsgBox "Trouvé: " & MaValeur & " --> " & Nbr & " fois"
    Else
      MsgBox "Pas trouvé: " & MaValeur, vbInformation
    End If
  End With
End Sub

Sub test_2()
  Dim MaValeur
  'Peut-etre une cellule ou autre
  MaValeur = 1111
  'Feuille a adapter
  'Recherche si MaValeur est dans la colonneB (a adapter)
  Set Ligne = Worksheets("feuil1").Range("B:B").Find(MaValeur)
  If Not Ligne Is Nothing Then
    MsgBox "Trouvé: " & MaValeur & " a la ligne: " & Ligne.Row
  Else
    MsgBox "Pas trouvé: " & MaValeur, vbInformation
  End If
End Sub

Comparer une valeur donné avec une liste de valeur

1 réponse

Discussions similaires

Newsletters