Petit code boucle VBA qui ne fonctionne pas

Elle se trouve dans Project->Microsoft Word Objets->ThisDocument et elle s'intitule "Private Sub essai(). Je la teste donc il n'y a que ce code.

Et tout ça dans un doc Word 2007.

Est ce cela qu'il te fallait?

Merci pour le coup de main ;)

et en remplaçant Me par le nom réel du formulaire ?
En haut, le pingou a posé une question interessante aussi...

eric

rien y fait, par contre petite remarque qui pourrait aider. Dans les exemples de boucles similaire, au niveau de "Me.controls" le "Me" est en bleu comme "Dim" ou "As". Par contre, sur ma macro il reste en noir...A vous de voir si c'est significatif.

Il n'est sans doute pas reconnu comme mot clé.
Pour confirmer tu peux l'écrire en minuscule. S'il reste en minuscule c'est sûr qu'il ne le reconnait pas.
Il faudrait compléter le chemin du formulaire pour que vba le retrouve car ta procédure n'est pas dans le code du formulaire.
Je ne connais pas suffisamment vba word pour t'aider plus.
Sur excel ça donnerait :

Sub test() 
    Dim ctl As Control 
    'Pour chaque contrôle du formulaire 
    For Each ctl In UserForm1.Controls 
        ' On verifie que le contrôle soit bien une zone de texte 
        If TypeOf ctl Is MSForms.TextBox Then 
            ctl.Locked = True 
        End If 
    Next ctl 
End Sub

Tu devrais déposer un fichier exemple sur cjoint.com et coller ici le lien fourni, ça permettra de travailler sur du concret

eric

PS : testé sur word 2003, pas d'erreur

Alors, après l'avoir écrit en minuscule, les premières lettres reviennent en majuscules.

Concernant ton code il me met erreur "424 objet requis"

Et voici le lien de mon fichier :

http://cjoint.com/?0CDkEk0MKBq

Relis tranquillement mon dernier post...
eric

Oui je l'ai bien relu ;), j'avais déjà été sur ce lien.
Apparemment mon problème vient du fait qu'il me faut réaliser des boucles sur des "inlineshapes"...il va falloir que je me renseigne...je vous tiens au courant ou si vous avez des conseils n'hésitez pas!!

Bonjour santadrix,
C'est très bien, j'espère seulement que mon code va vous servir ...!
Pas trop sympa votre répnse à eriiic.
Salutations.

Pardon pour ma réponse vis à vis d'Eric, ce n'était en rien négatif ou ironique ou tout effet de style similaire...je suis un peu pressé par le tps donc j'écris mes messages rapidement sans me relire. Je ferai attention les prochaines fois.
Merci de me l'avoir fait remarquer, toutes mes excuses Eric.

Bonjour,
Désolé il faut lire :

MsgBox mesctl.OLEFormat.Object.Name

Salutations

Salut,

Oui il marche très bien!Merci

Mais je ne suis pas encore un habitué donc je ne trouve pas la condition, j'étais en train de la chercher.

Bonjour,
Eh bien, la condition c'est le [If .... Else ... Then] que vous devez introduire à la place de la [Msgbox....]
Salutations.

Oui il me manque juste la bonne façon de le dire, je vais chercher et si je rame trop je reviendrait sûrement essayer d'avoir un peu d'aide ;)

Bonjour,
Dommage, pourquoi ne pas préciser ce que vous voulez dire ?
Salutations.

Et bien je cherche la condition :

If le mesctl Is une TextBox then
Mettre le statut "Locked = True"

Et bien monsieur un grand merci!!!

J'avais utilisé le code à ceci près que j'avais comme chiffre "8" au lieu du "7"...j'avais repris ceci d'un exemple. Juste histoire de m'endormir moins con, a quoi correspond le 8 ou le 7??

Bonjour,
La fonction [Left] renvoie une valeur contenant le nombre indiqué de caractères d'une chaîne en partant de la gauche.
Comme la chaine est : TextBox1, les 7 premiers donnent : TextBox
Note : un petit regard sur l'aide (dans le code, sélectionner la fonction et ensuite [F1] et.... !
A une prochaine.
Salutations.
Le Pingou

tout s'explique!! Tu as raison pour l'aide mais ce problème a bcp duré et je ne faisais plus l'effort de la rubrique aide. De plus, pour certains cas elle n'est pas efficace mais dans ce cas, oui!

Merci à toi bon Week end!