Page 1 of 1
VBA Excel: IF (N'EST PAS DANS...) THEN
Posted: 18 Sep 2007, 19:45
by Amex
Bonjour!
Je suis dans la grosse programmation d'un programme de gestion, et j'aimerais savoir comment je pourrais dire:
Si la valeur recherchée n'est pas dans la sélection, alors, MsgBox("Donnée inconnue")...
::> IF Range("A1").Value n'est pas dans Range("SÉLECTION") THEN...
End if
MERCI TELLEMENT!
Posted: 18 Sep 2007, 21:42
by rikwar
peuetre quellcun peut vous aidée mais ici cest pas un forum de programmation VBA Excel: peuetre attendre une réponse d un membre qui fait de la programmation VBA Excel ou
allez ici
http://www.developpez.net/forums/archiv ... f-664.html
Posted: 18 Sep 2007, 23:43
by skippy
Peut-être
ici mais, il faudrait spécifier si c'est pour des chiffres ou du texte.
Espérant que vous lisez l'anglais.
Bonne chance.
Posted: 18 Sep 2007, 23:47
by Sisko
Essayer aussi le forum comment ca marche.net
J'ai déjà trouvé des réponses pour excel...
http://www.commentcamarche.net/
Posted: 21 Sep 2007, 11:22
by GoHabsGo
Bonjour,
j'ai trouvé ceci sur le site de Microsoft. Ça peut vous donner un très bon point de départ même si ce n'est pas exactement ce que vous recherchez.
http://support.microsoft.com/kb/89794
Dim Count As Integer
Dim Target As String
Dim Cell As Object
Dim N As Integer
Sub Target_Count()
Count = 0
Target = InputBox("character(s) to find?")
If Target = "" Then GoTo Done
For Each Cell In Selection
N = InStr(1, cell.Value, target)
While N <> 0
Count = count + 1
N = InStr(n + 1, cell.Value, target)
Wend
Next Cell
MsgBox count & " Occurrences of " & target
Done:
End Sub