Gestion de plusieurs userform dans un fichier

Résolu/Fermé
mijean94 Messages postés 394 Date d'inscription mercredi 16 décembre 2015 Statut Membre Dernière intervention 8 novembre 2021 - 17 févr. 2016 à 23:08
mijean94 Messages postés 394 Date d'inscription mercredi 16 décembre 2015 Statut Membre Dernière intervention 8 novembre 2021 - 28 févr. 2016 à 21:51
Bonjour,

J’ai deux user form dans mon fichier,

Un sur la feuil3, Userform qui est nommé : Formulaire_clients

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 
If Not Intersect([a1:a65000], Target) Is Nothing And Target.Count = 1 Then
Formulaire_clients.Left = Target.Left + 100
Formulaire_clients.Top = Target.Top + 105 - Cells(ActiveWindow.ScrollRow, 1).Top
Formulaire_clients.Show
End If
End Sub


Un sur la feuil1, Userform qui est nommé :: Formulaire_Devis

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) ' action sur 2 clicks dans la cellule
If Not Intersect([c11:c25], Target) Is Nothing And Target.Count = 1 Then Formulaire_Devis.Left = Target.Left + 100
Formulaire_Devis.Top = Target.Top + 105 - Cells(ActiveWindow.ScrollRow, 1).Top Formulaire_Devis.Show
End If
End Sub



J’utilisais ces userform sur deux fichiers et il n’y avait pas de problème de fonctionnement.

Depuis que j’ai importé l’userform Formulaire_Devis dans le même fichier, le Formulaire_Devis ne fonctionne plus alors que l'autre Formulaire_clients fonctionne bien.

Le problème:

a) Au lancement par F5 (depuis la macro) j’ai l’erreur :

Erreur d’exécution ‘1004’ : La méthode ‘range’ de l’objet_Global a échoué

b) au lancement par un double clic dans la feuille 1, erreur identique à (a) avec arrêt sur la ligne

Formulaire_Devis.Left = Target.Left + 100



Auriez-vous une idée de la cause possible et comment y remédier ?

Cordialement
A voir également:

1 réponse

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
18 févr. 2016 à 09:33
Bonjour,

Essaie cela:

Dans Feuille1:

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) ' action sur 2 clicks dans la cellule
    If Not Application.Intersect(Target, Range("C11:C25")) Is Nothing And Target.Count = 1 Then
    Formulaire_Devis.Left = Target.Left + 100
    Formulaire_Devis.Top = Target.Top + 105 - Cells(ActiveWindow.ScrollRow, 1).Top
    Formulaire_Devis.Show
    End If
End Sub


et dans la feuille3:

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("A1:A65000")) Is Nothing And Target.Count = 1 Then
  Formulaire_clients.Left = Target.Left + 100
  Formulaire_clients.Top = Target.Top + 105 - Cells(ActiveWindow.ScrollRow, 1).Top
  Formulaire_clients.Show
End If
End Sub


0
mijean94 Messages postés 394 Date d'inscription mercredi 16 décembre 2015 Statut Membre Dernière intervention 8 novembre 2021 10
Modifié par mijean94 le 18/02/2016 à 10:16
Bonjour,

Merci d'avoir pris du temps pour regarder mon problème.

J'ai fait les modifications est le problème est identique .
Je suis en Excel 2003

Cordialement
0
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
18 févr. 2016 à 10:21
Chez moi cela fonctionne!

Tu dis:

depuis que j’ai importé l’userform Formulaire_Devis dans le même fichier

Cela provient certainement de là.

Supprime ton UserForm et tu en crées une autre a partir de l'éditeur de ton classeur et non pas par un copier coller
0
mijean94 Messages postés 394 Date d'inscription mercredi 16 décembre 2015 Statut Membre Dernière intervention 8 novembre 2021 10 > cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024
18 févr. 2016 à 11:04
Re,

Je n'est pas fait un copie coller, mais un importé.

Je vais essayer un copier.
Si ça ne marche pas je vais le refaire à partir de l'éditeur.

Merci

Cordialement
0
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728 > mijean94 Messages postés 394 Date d'inscription mercredi 16 décembre 2015 Statut Membre Dernière intervention 8 novembre 2021
18 févr. 2016 à 11:10
Tu as raison c'est importé, je me suis mal exprimé!
Mais cela doit provenir de là.
Je me suis mis dans la même situation et cela fonctionne très bien.
0
mijean94 Messages postés 394 Date d'inscription mercredi 16 décembre 2015 Statut Membre Dernière intervention 8 novembre 2021 10 > cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024
Modifié par mijean94 le 18/02/2016 à 22:16
Bonjour,

j'ai essayé de refaire l'userform mais j'ai le même défaut.
la vie n'est pas simple avec VBA !!!!
Excel 2003 doit-être la cause.
Je vais prendre une semaine de recule car je croix que je vais disjoncter.

Merci encore pour l'aide.

Cordialement
0