Discussion :

[Cedric G]

Bonjour,

J'ai une liste créer dans une feuille et je voudrais tester si la variable d'un formulaire existe dans la liste.
si elle n'existe pas je la rajoute.

donc je vois comment le faire en parcourant la liste ligne par ligne.

y aurait-il un moyen de le faire avec un foreach?
Quand j'essaye et que je met le nom de la liste après le In il me dit qu'il attend une variable.

J’espère que c'est clair.

[Marc-L]

Bonjour, bonjour !

Sans le code (entre balises conformément au règles du forum) ni une présentation claire et exhaustive …

Sinon rien qu'en lisant l'aide VBA intégrée, tout y est !

_________________________________________________________________________________________________
Il n'y a pas que les aigles qui atteignent les sommets, les escargots aussi mais ils en bavent !

[Cedric G]

désolé voila mon code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Dim newType As Boolean
        Dim typeResto As String
        Dim s As String
 
        typeResto = Cbox_Type_Resto.Value
        newType = True
        List_De_String = ("liste!Liste_Type_Resto")
        For Each s In List_De_String
 
            If s = typeResto Then
                newType = False
                Exit For
            End If
 
        Next
        If newType Then
            MsgBox "nouveau type"
        End If

et il me dit la :

"la variable de contrôle For Each doit être de type Variant ou Object"

[Marc-L]

Le message est pourtant clair : l'instruction fonctionne uniquement avec une variable de type Object ou Variant !

Via un point d'arrêt, vérifier dans la fenêtre des Variables locales le type et le contenu de la variable …

Ligne n°8 à corriger donc … Qui plus est une variable est inutile, la plage des cellules peut directement être après le In …

[Theze]

Bonjour,

For Each Objet in Objets ... Next où l'élément Objet est un objet de la collection Objets donc, un objet et pas un String !
Donc plutôt :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Sub Test()
 
    Dim newType As Boolean
    Dim typeResto As String
    Dim Plage As Range
    Dim Cel As Range
 
    typeResto = Cbox_Type_Resto.Value
 
    newType = True
 
    Set Plage = Worksheets("liste").Range("Liste_Type_Resto") 'où "Liste_Type_Resto" est une plage nommée
 
    For Each Cel In Plage
 
        If Cel.Value = typeResto Then
 
            newType = False
 
            Exit For
 
        End If
 
    Next Cel
 
    If newType Then
 
        MsgBox "nouveau type"
 
    End If
 
End Sub

Hervé.

[Cedric G]

parfait merci

bonne soirée