For each et classe personnel

bonjour,

j'ai un souci avec la boucle for each soit je l'utilise pas bien (pourtant elle a pas l'air compliqué ) soit y a autre chose mais bon ça ne marche pas

je vais m'expliquer

j'ai créé une classe "étiquette" avec ça dedans

Public nom As String
Public modele As String
Public qantite As Integer
Public duplication As Integer

ensuite je l'ai utilisé dans mon code de cette façon :

    For i = 1 To Range("a65536").End(xlUp).Row
        With New etiquette
            .nom = Sheets("filtrage").Range("a" & i).Value
            .qantite = Sheets("filtrage").Range("b" & i).Value
            .duplication = Sheets("filtrage").Range("c" & i).Value
            .modele = Sheets("Index format").Range("c" & Sheets("filtrage").Range("d" & i).Value + 1).Value
        End With
    Next i

et ensuite je voulais faire un for each sur les étiquettes normalement créé avec le code au dessus mais quand j'arrive sur la ligne du for each j'ai l'erreur 13 : incompatibilité de type et mon "etiquette" est vide quand je passe la souris dessus pour voir l’état de la variable

For Each etiquet In etiquette

es que quelqu'un aurait une solution ?

Bonjour,

bonjour Raja,

je vous joint le fichier comme vous demandez

8test1.xlsm (14.95 Ko)

C'est bon j'ai trouvé c'est juste que for each recherche dans une collection pas tout les objet de la classe comme je le pensais

donc en mettant mes "étiquette" dans une collection ça fonctionne

Rechercher des sujets similaires à "each classe personnel"