Code qui integre des valeurs

Salut a tous,

Je recherche "l'inverse" de ce code, celui ci permet de d'exclure les villes dans l'objectif de filtrer.

Tandis que moi je cherche a les integrer (contraire de ce code). J'ai essayé d'adapter en cherchant le contraire de "is nothing" mais sans trouvé de solutions..

Je sollicite le forum pour éclairer ma lanterne

Voici le code en question:

If desti_vides <> "" Then
    If desti_vides = "Anti_Desti_vides" Then      
        If Sheets(1).Cells(i, 3).Find("VITROLLES") Is Nothing Then
        If Sheets(1).Cells(i, 3).Find("MARSEILLE") Is Nothing Then
        If Sheets(1).Cells(i, 3).Find("TOULON") Is Nothing Then
    Else
        If Not Sheets(1).Cells(i, 3).Find(desti_vides) Is Nothing Then
        Else
        GoTo Option_Vide
        End If
    End If
End If

D'avance, merci

Bonjour,

le contraire de "is nothing" est contenu dans le code présenté : " Not valeur à tester is nothing"

If Not Sheets(1).Cells(i, 3).Find(desti_vides) Is Nothing Then

A+

Re

Merci de ta reponse @AlgoPlus

Milles excuses!... Je me suis rendu compte seulement maintenant que le code que j'ai posté est la version que j'ai essayé de "rafistoler"

Grossièrement ca serait le contraire de "If not ... is Nothing..."

voici ci joint le code dont je souhaite obtenir "le contraire":

If Desti <> "" Then
    If Desti = "Anti-Desti" Then
        If Not Sheets(1).Cells(i, 3).Find("CAVAILLON") Is Nothing Then GoTo Option_Vide
        If Not Sheets(1).Cells(i, 3).Find("MARSEILLE") Is Nothing Then GoTo Option_Vide
        If Not Sheets(1).Cells(i, 3).Find("TOULON") Is Nothing Then GoTo Option_Vide
    Else ' desti, si option coché
        If Not Sheets(1).Cells(i, 3).Find(Desti) Is Nothing Then
        Else
        GoTo Option_Vide
        End If
    End If
End If

Merci D'avance

Si le contraire de "is nothing" est : " Not ... is nothing", il y a des chances pour que le contraire de " Not ... is nothing" soit "is nothing" ... ?

A+

Oui certainement mais le calcul ne se fait pas ainsi dans mon tableau

Merci pour ton aide

on ne peut vous aider qu'à la mesure des infos que vous fournissez !

Expliquez exactement ce que vous voulez faire avec données à l'appuie...

A+

If Sheets(1).Cells(i, 3).Find("VITROLLES") Is Nothing Then

est l'équivalent de

If Sheets(1).Cells(i, 3) <> "VITROLLES" Then

et

If Not Sheets(1).Cells(i, 3).Find("CAVAILLON") Is Nothing Then

est l'équivalent de

If  Sheets(1).Cells(i, 3) = "CAVAILLON" Then

l'utilisation de test avec "=" et "<>" est sans doute moins alambiquée ...