Comparer une valeur donné avec une liste de valeur
Fermé
miranda
-
18 oct. 2012 à 01:53
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 - 18 oct. 2012 à 09:01
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 - 18 oct. 2012 à 09:01
A voir également:
- Comparer une valeur donné avec une liste de valeur
- Liste déroulante excel - Guide
- Logiciel gratuit calcul valeur nutritionnelle - Télécharger - Santé & Bien-être
- Le fichier contient une liste de prénoms. triez ce tableau par ordre alphabétique des prénoms. quel mot est formé par les 6 premières lettres de la colonne code ? - Forum Bureautique
- Excel si valeur dans liste alors ✓ - Forum Excel
- Faites afficher avec un fond coloré les cellules qui contiennent une valeur comprise entre 250 et 350. quel nombre est dessiné en surbrillance ? - Forum VB / VBA
1 réponse
f894009
Messages postés
17185
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
15 avril 2024
1 701
18 oct. 2012 à 09:01
18 oct. 2012 à 09:01
Bonjour,
Deux exemples:
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
