1. #1
    Membre à l'essai
    Homme Profil pro
    Assistant aux utilisateurs
    Inscrit en
    février 2013
    Messages
    15
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Assistant aux utilisateurs
    Secteur : Enseignement

    Informations forums :
    Inscription : février 2013
    Messages : 15
    Points : 10
    Points
    10

    Par défaut Saisie intuitive (comme dans Google Search) et affichage message d'erreur

    Bonjour à vous,

    J'essaye d'adapter un exemple donné par Jacques Boisgontier. J'ai chargé le fichier "DVIntuitifVilles" (en pièce jointe), ai simplement dupliqué son onglet "Saisie".
    Quand je sélectionne ces 2 onglets et clique dans une cellule, à chaque fois j'ai un message d'erreur = "erreur d'exécution 1004. Impossible de définir la propriété visible de la classe OLEObject".
    Je travaille avec Excel 2013 et ne capte rien/pas grand chose avec Visual Basic.
    J'ai essayé de contacter Monsieur Boisgontier, mais ce souci n'est peut-être pas dû au fichier mais à un paramètre d'Excel. Si, parmi vous certains pouvaient m'éclairer, ce serait une délivrance après des semaines à galérer pour trouver ce qui coince.
    Bonne journée.
    Fichiers attachés Fichiers attachés

  2. #2
    Membre émérite Avatar de QuestVba
    Homme Profil pro
    Enseignant
    Inscrit en
    juillet 2012
    Messages
    1 788
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 47
    Localisation : Belgique

    Informations professionnelles :
    Activité : Enseignant
    Secteur : Service public

    Informations forums :
    Inscription : juillet 2012
    Messages : 1 788
    Points : 2 928
    Points
    2 928

    Par défaut

    Bonjour,
    Déjà, je suppose que le créateur du fichier t'a aimablement répondu pour t'expliquer son fonctionnement. Sinon, là, on n'a vraiment rien comme information pour t'aider. Il nous faudrait au minimum que tu nous expliques ce que tu cherches à faire, le code utilisé, et où il bloque. De plus, il y a un forum VBA.

  3. #3
    Membre à l'essai
    Homme Profil pro
    Assistant aux utilisateurs
    Inscrit en
    février 2013
    Messages
    15
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Assistant aux utilisateurs
    Secteur : Enseignement

    Informations forums :
    Inscription : février 2013
    Messages : 15
    Points : 10
    Points
    10

    Par défaut

    Bonsoir, QuestVba,
    En lisant ta réponse, je viens de voir que je n'avais pas joint le fichier. Je suis une "truffe" et suis vraiment désolé.
    J'ai essayé de joindre l'auteur mais n'ai pas réussi à avoir de réponse.
    J'ai simplement copié son onglet "Saisie" et ai obtenu un onglet "Saisie Copie". Si je sélectionne ces 2 onglets pour modifier la couleur d'une cellule par exemple, j'obtiens le message = "erreur d'exécution 1004. Impossible de définir la propriété visible de la classe OLEObject".

    Je voudrais comprendre et pouvoir corriger cela.
    Merci et bonne soirée

  4. #4
    Responsable
    Office & Excel

    Avatar de Pierre Fauconnier
    Homme Profil pro
    Formateur et développeur informatique indépendant
    Inscrit en
    novembre 2003
    Messages
    10 879
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 50
    Localisation : Belgique

    Informations professionnelles :
    Activité : Formateur et développeur informatique indépendant
    Secteur : Enseignement

    Informations forums :
    Inscription : novembre 2003
    Messages : 10 879
    Points : 27 314
    Points
    27 314
    Billets dans le blog
    5

    Par défaut

    Salut.

    Sur quelle ligne de code l'exécution s'arrête-t-elle? C'est par là qu'il faut commencer.

    Je ne comprends pas pourquoi tu sélectionnes les deux onglets. L'onglet BD ne doit pas être sélectionné.
    "Plus les hommes seront éclairés, plus ils seront libres" (Voltaire)
    ---------------
    Vous souhaitez rédiger pour DVP? Contactez-moi
    VBA pour Excel? Pensez D'ABORD en EXCEL avant de penser en VBA...
    Vous avez apprécié l'intervention => Merci pour le
    ---------------

  5. #5
    Membre à l'essai
    Homme Profil pro
    Assistant aux utilisateurs
    Inscrit en
    février 2013
    Messages
    15
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Assistant aux utilisateurs
    Secteur : Enseignement

    Informations forums :
    Inscription : février 2013
    Messages : 15
    Points : 10
    Points
    10

    Par défaut

    Bonjour Pierre,
    je ne sais comment répondre à cela.
    C'est un fichier venant du site de Jacques Boisgonthier. J'ai essayé de le contacté mas n'ai pas eu de réponse.
    J'ai besoin d'adapter ce fichier. Pour cela, j'ai remplacé la liste des villes par une liste de banques dans la feuille BD. Puis, j'ai modifié en conséquence la feuille Saisie avec les renseignements dont j'ai besoin.
    j'ai copié-collé cette feuille Saisie en "x" exemplaires renommés "OP1, OP2, OP3, ....
    J'ai voulu mettre une couleur dans une cellule sur ces "x" exemplaires et c'est là que j'ai obtenu ce message d'erreur.
    J'ai téléchargé à nouveau le fichier de Jacques Boisgonthier et même avec 2 uniques feuilles, j'obtiens ce message.
    C'est pour cela que j'ai appelé à l'aide.

  6. #6
    Expert éminent

    Homme Profil pro
    Curieux
    Inscrit en
    juillet 2012
    Messages
    4 397
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Curieux
    Secteur : Arts - Culture

    Informations forums :
    Inscription : juillet 2012
    Messages : 4 397
    Points : 8 404
    Points
    8 404
    Billets dans le blog
    5

    Par défaut

    Bonjour,

    quand tu parles de sélectionner deux feuilles, c'est au sens littéral ? Tu fais un groupe de travail avec les deux feuilles ?

    Si tel est le cas, l'erreur pourrait s'expliquer par une macro évènementiel de l'objet Worksheet, placé dans le module des deux feuilles.
    Il y en a ? Car il me semble que sur un groupe de travail l'évènement des deux feuilles va se déclencher, or tu ne peux avoir qu'une seule feuille active à la fois.

    A vérifier, je n'ai pas ouvert le fichier

  7. #7
    Membre à l'essai
    Homme Profil pro
    Assistant aux utilisateurs
    Inscrit en
    février 2013
    Messages
    15
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Assistant aux utilisateurs
    Secteur : Enseignement

    Informations forums :
    Inscription : février 2013
    Messages : 15
    Points : 10
    Points
    10

    Par défaut

    Bonsoir joe.levrai,
    Quand je parle de "sélectionner", je veux dire clic sur la 1ère feuille et "Maj" + clic sur la seconde pur modifier en 1 fois la couleur d'une cellule par exemple.
    Je cherche à régler ce problème car j'aurais à terme environ 50 feuilles similaires se différenciant par le nom.
    Par contre quand tu me parles de "groupe de travail", de "macro évènementiel", "objet Worksheet", j'avoue être largué.
    Je ne connait rien à Vba et c'est bien là le drame.

  8. #8
    Expert éminent

    Homme Profil pro
    Curieux
    Inscrit en
    juillet 2012
    Messages
    4 397
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Curieux
    Secteur : Arts - Culture

    Informations forums :
    Inscription : juillet 2012
    Messages : 4 397
    Points : 8 404
    Points
    8 404
    Billets dans le blog
    5

    Par défaut

    Groupe de travail n'a rien à voir avec VBA, c'est une fonctionnalité Excel.

    L'action que tu décris consiste bien à grouper tes feuilles pour travailler de concert sur ces dernières.
    Donc, il existe des procédures dans ton projet qui ne sont pas compatibles avec un groupe de travail.

    Si tu ne connais rien au VBA, les classeurs un peu avancés de JBoigontiers ne sont vraiment pas pour toi. Son code est épuré, efficace, peu (ou pas) commenté, souvent habile et technique. Le faire évoluer ou l'adapter demande un minimum de connaissances en VBA.
    Ses propositions sont clé en main dans l'exemple qu'il fournit à chaque fois, mais n'est pas universel.

    Ou alors, tu t'obliges à ne jamais grouper tes feuilles

  9. #9
    Membre à l'essai
    Homme Profil pro
    Assistant aux utilisateurs
    Inscrit en
    février 2013
    Messages
    15
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Assistant aux utilisateurs
    Secteur : Enseignement

    Informations forums :
    Inscription : février 2013
    Messages : 15
    Points : 10
    Points
    10

    Par défaut

    Merci pour ta réponse, même si cela ne m'arrange.
    J'ai eu l'occasion de tester ce fichier avec Excel 2007 et n'ai pas obtenu ce message d'erreur.
    Sais-tu ce qui a changé et qui pourrait être la cause de cette erreur ?

  10. #10
    Membre éprouvé
    Homme Profil pro
    Inscrit en
    septembre 2013
    Messages
    516
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : septembre 2013
    Messages : 516
    Points : 1 082
    Points
    1 082

    Par défaut

    Bonsoir,

    Si j'ai bien compris:

    If ActiveWindow.SelectedSheets.Count > 1 Then Exit Sub

    doit éviter le pb si plusieurs feuilles sont sélectionnées (groupe de travail)


    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
     
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
      If ActiveWindow.SelectedSheets.Count > 1 Then Exit Sub
      If Not Intersect([c2:c1000], Target) Is Nothing And Target.Count = 1 Then
        a = Sheets("BD").Range("listeVilles").Value
        Me.ComboBox1.List = a
        Me.ComboBox1.Height = Target.Height + 3
        Me.ComboBox1.Width = Target.Width
        Me.ComboBox1.Top = Target.Top
        Me.ComboBox1.Left = Target.Left
        Me.ComboBox1 = Target
        Me.ComboBox1.Visible = True
        Me.ComboBox1.Activate
      Else
        Me.ComboBox1.Visible = False
      End If
    End Sub
    Boisgontier
    Fichiers attachés Fichiers attachés

  11. #11
    Membre à l'essai
    Homme Profil pro
    Assistant aux utilisateurs
    Inscrit en
    février 2013
    Messages
    15
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Assistant aux utilisateurs
    Secteur : Enseignement

    Informations forums :
    Inscription : février 2013
    Messages : 15
    Points : 10
    Points
    10

    Par défaut

    Bonjour boisgontierjacques,

    Merci pour cette réponse. Je pars au travail maintenant.
    Je teste ce soir en rentrant et vous tiens au courant.

    Bonne journée

  12. #12
    Membre à l'essai
    Homme Profil pro
    Assistant aux utilisateurs
    Inscrit en
    février 2013
    Messages
    15
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Assistant aux utilisateurs
    Secteur : Enseignement

    Informations forums :
    Inscription : février 2013
    Messages : 15
    Points : 10
    Points
    10

    Par défaut

    Bonsoir Jacques Boisgontier,

    A 1ère vue, tout fonctionne correctement. Je vais enfin pouvoir l'adapter à mes besoins. Cela va me faire "économiser" des clics.
    Merci beaucoup et bonne soirée.

    Je mets en "Résolu"

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

Discussions similaires

  1. Réponses: 44
    Dernier message: 10/10/2017, 13h47
  2. Réponses: 36
    Dernier message: 17/03/2016, 18h46
  3. Réponses: 2
    Dernier message: 04/07/2015, 17h11
  4. Affichage message d'erreur sur cellule protégé
    Par djm69 dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 28/01/2008, 12h08
  5. Affichage message d'erreur sur la page courante
    Par mflorisson dans le forum Struts 2
    Réponses: 1
    Dernier message: 18/12/2007, 03h24

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