Discussion :

[BERRACHED SAID]

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 :

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

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 :

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

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

Code :

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

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

[EngueEngue]

Si tes trucs d'appellent TxtAj01-TxtAj14

Code :

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

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

[BERRACHED SAID]

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

[BERRACHED SAID]

Salut

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

Code :

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

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

puisqu'ils sont groupés

Merci mes amis