IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Masquer des textbox sur une feuille


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé Avatar de BERRACHED SAID
    Inscrit en
    Janvier 2009
    Messages
    192
    Détails du profil
    Informations personnelles :
    Âge : 64

    Informations forums :
    Inscription : Janvier 2009
    Messages : 192
    Par défaut 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 : 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

  2. #2
    Inactif  
    Homme Profil pro
    Inscrit en
    Septembre 2012
    Messages
    1 733
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations forums :
    Inscription : Septembre 2012
    Messages : 1 733
    Par défaut
    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

  3. #3
    Membre confirmé Avatar de BERRACHED SAID
    Inscrit en
    Janvier 2009
    Messages
    192
    Détails du profil
    Informations personnelles :
    Âge : 64

    Informations forums :
    Inscription : Janvier 2009
    Messages : 192
    Par défaut
    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

  4. #4
    Membre confirmé Avatar de BERRACHED SAID
    Inscrit en
    Janvier 2009
    Messages
    192
    Détails du profil
    Informations personnelles :
    Âge : 64

    Informations forums :
    Inscription : Janvier 2009
    Messages : 192
    Par défaut
    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

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [XL-2003] extraire des donnees sur une feuille
    Par louis10 dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 18/03/2010, 21h05
  2. [XL-2003] Enregistrer les données des textbox dans une feuille excel
    Par monichou86 dans le forum Macros et VBA Excel
    Réponses: 16
    Dernier message: 06/01/2010, 15h24
  3. [XL-2003] localiser des objets sur une feuille excel
    Par Roms un dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 18/11/2009, 14h45
  4. comment créer des boutons sur une feuille en utilisant eclipse
    Par ratamahatta dans le forum Eclipse Java
    Réponses: 1
    Dernier message: 09/06/2006, 19h17

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo