VBA Excel: IF (N'EST PAS DANS...) THEN

Amex · Post by **Amex** » 18 Sep 2007, 19:45

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!

rikwar · Post by **rikwar** » 18 Sep 2007, 21:42

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

skippy · Post by **skippy** » 18 Sep 2007, 23:43

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.

Sisko · Post by **Sisko** » 18 Sep 2007, 23:47

Essayer aussi le forum comment ca marche.net

J'ai déjà trouvé des réponses pour excel...

http://www.commentcamarche.net/

GoHabsGo · Post by **GoHabsGo** » 21 Sep 2007, 11:22

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