Boucle for each....

[Résolu]
Signaler
Messages postés
351
Date d'inscription
samedi 7 février 2004
Statut
Membre
Dernière intervention
6 octobre 2010
-
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
-
Bonjour à tous, si quelqu'un peu m'aider ce serai cool

pourquoi cette boucle ne fonctionne pas ?

Dim frameX As frame

For Each FrameX In Me
With FrameX
    .Top = 105
    .Left = 105
    .Width = 9045
    .Height = 4635
    .BackColor = vbBlack
    .ForeColor = vbWhite
End With
Next

il bloque sur next

et me met l'erreur suivante : Type incompatible....

Merci pour votre attention... et pour vos réponses.

:)Sator :)

ps: si il ni avait pas de faute d'orthographe dans ce texte, il y a fort à parier que ce texte ne serait pas de moi...

3 réponses

Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
46
salut,

il ne suffit pas de nommer ou de typer "frame" pour lister une frame à coup sûr..

tu observes la collection de ME, pas celle des FRAMES

il faut vérifier le type dans la boucle
et ton code te remontait l'erreur de type, si tu avais juste passé la souris sur FRAMEX, tu aurais vu que l'objet était = NOTHING





    Dim frameX As Control 'Frame
    
    For Each frameX In Me
        If TypeOf frameX Is Frame Then
            With frameX
                .Top = 105
                .Left = 105
                .Width = 9045
                .Height = 4635
                .BackColor = vbBlack
                .ForeColor = vbWhite
            End With
        End If
    Next frameX





<small>
[../code.aspx?ID=39466 Coloration VB6, VBA,
VBS]
</small>



++
<hr size="2" width="100%" />Prenez un instant pour répondre à [forum/sujet-SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp 
Messages postés
351
Date d'inscription
samedi 7 février 2004
Statut
Membre
Dernière intervention
6 octobre 2010

Merci infiniment pour ta réponse,

@+

:)Sator :)

ps: si il ni avait pas de faute d'orthographe dans ce texte, il y a fort à parier que ce texte ne serait pas de moi...
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
46
merci pour le MP pour la signature
normalement le lien fonctionne, suspens.... ^^

<hr size="2" width="100%" />
Prenez un instant pour répondre à [sujet-SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp