Discussion :

[p3x66]

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.

[QuestVba]

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.

[p3x66]

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

[Pierre Fauconnier]

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é.

[p3x66]

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.

[joe.levrai]

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

[p3x66]

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.

[joe.levrai]

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

[p3x66]

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 ?

[boisgontierjacques]

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

[p3x66]

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

[p3x66]

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"