Masquer des textbox sur une feuille

Bonjour le Forum

j'ai un problème lors d’exécution d'une macro qui a pour fonction de Masquer des textbox qui sont en nombre de 14 renommée en "TxtAj" de 01 a 14 j'ai essayé plusieurs boucles mais rien a faire je les aies exécuter un par un de cette façon Feuil.Txtaj01.visible = false c'est toujours l'erreur 1004 je crois qui me manque une référence ou quelque chose du genre ?????

voici les Boucle que j'ai utilisé :

Code:

---

1 2 3 4 5

For i% = 1 To 14 If Feuil1.Shapes("Rectangle " & Format$(i, "00")).Visible = False Then Feuil1.OLEObjects("TxtAj " & i).Object.Visible = False End If Next

---

Code:

---

1 2 3 4

For Each T In Feuil1.OLEObjects("GR1").GroupName T.Visible = False ' T.Object.Value = False Next

---

Code:

---

1 2 3 4 5 6 7

With Feuil1 For i = 1 To .OLEObjects.Count If Left(.OLEObjects(i).Name, 5) = "TxtAj" Then .OLEObjects(i).Object.Visible = False End If Next End With

---

je galère depuis ce matin mais rien a faire ça coince de bout en bout

Merci de votre aide

Si tes trucs d'appellent TxtAj01-TxtAj14

Code:

---

1 2 3 4 5

For i% = 1 To 14 If Feuil1.Shapes("TxtAj" & Format$(i, "00")).Visible = False Then Feuil1.OLEObjects("TxtAj" & i).Object.Visible = False End If Next

---

Bonjour EngueEngue

erreur d’exécution 5 argument ou appel de procédure incorrect.

ça m’agace je crois que le problème est ailleurs même les code que j'ai utilisé sont juste a mon avis.

merci EngueEngue

Salut

c'est bon j'ai trouvé une solution plus simple mais qui marche l'essentiel

Code:

---

feuil1.Shapes("GR1").Visible = False

---

:ccool:

puisqu'ils sont groupés

Merci mes amis