Pertes propriétés Active X lorsque copier-coller

Pertes propriétés Active X lorsque copier-coller - VB/VBA/VBS - Programmation

Marsh Posté le 11-04-2013 à 16:51:48    

Bonjour à tous,
 
Je me tourne vers vous pour un problème assez spécial que je n'arrive pas à résoudre bien qu'ayant fait moult recherches sur les forums...
 
Le code suivant me permet de créer une nouvelle feuille excel automatiquement qui copie le contenu d'une autre feuille et initialise les contrôles. La nouvelle feuille prend alors le nom "FP_Ld" & I ; I étant chiffre qui change en fonction du nombre de feuille (première feuille créée = FP_Ld1, 2e feuille crée = FP_Ld2,...).
 

Code :
  1. 'Bouton pour ajouter une feuille
  2. Private Sub CommandButton2_Click()
  4.     Dim I As Integer
  5.         Do
  6.         I = I + 1
  8. ' FeuilleExiste est une fonction créée et présente après ce Sub
  10.         If FeuilleExiste("FP_Ld" & I) = False Then
  11.             Sheets("Feuil8" ).Copy Before:=Sheets("Feuil2" ) 'Feuil8 étant la feuille à copier
  12.             ActiveSheet.Name = "FP_Ld" & I
  13.            
  14.             With Worksheets("FP_Ld" & I) ' Initialisation de paramètres et commandes diverses
  15.             .Activate
  16.            
  17.             .Range("A1" ).Show
  18.             .Label1.Caption = Sheets("Feuil1" ).Label2.Caption
  19.             .Label2.Caption = Sheets("Feuil1" ).Label3.Caption
  20.             .Label3.Caption = Sheets("FP_Ld" & I).Name
  21.            
  22.             .OptionButton1.Value = False
  23.             .OptionButton2.Value = False
  24.             .OptionButton3.Value = False
  25.             .OptionButton4.Value = False
  26.             .OptionButton5.Value = False
  27.             .ComboBox4.Enabled = False
  28.             .ComboBox5.Enabled = False
  29.             .CommandButton16.Enabled = False
  30.             .CommandButton17.Enabled = False
  31.             .TextBox25.Enabled = False
  32.             .TextBox26.Enabled = False
  33.             .TextBox27.Enabled = False
  34.            
  35.             .ComboBox1.ListFillRange = "Feuil6!N93:N162"
  36.             .ComboBox1.ListIndex = -1
  37.            
  38.             L1 = Sheets("Feuil7" ).Range("D1" ).End(xlDown).Row
  39.             .ComboBox2.ListFillRange = "Feuil7!D1:D" & L1
  40.             .ComboBox2.ListIndex = -1
  41.    
  42.             L2 = Sheets("Feuil2" ).Range("A6218" ).End(xlDown).Row
  43.             .ComboBox3.ListFillRange = "Feuil2!A6218:A" & L2
  44.             .ComboBox3.ListIndex = -1
  45.            
  46.             .ComboBox4.ListFillRange = "Feuil3!H2:H3746"
  47.             .ComboBox4.ListIndex = -1
  48.            
  49.             .ComboBox5.ListFillRange = "Feuil2!A36:A6215"
  50.             .ComboBox5.ListIndex = -1
  51.            
  52.             End With
  53.             Exit Do
  54.         End If
  55.         Loop
  57. End Sub
  58. ________________________________________________________________
  60. Function FeuilleExiste(Nom As String) As Boolean
  61.   On Error Resume Next
  62.   FeuilleExiste = Sheets(Nom).Name <> ""
  63.   On Error GoTo 0
  64. End Function


 
Ce code fonctionne très bien pour la première feuille créée. Pour ce qui est de la 2e, le début du script fonctionne bien (copie-colle la feuil8 dans une nouvelle feuille nommée FP_Ld2) mais bug à partir de mon contrôle Optionbutton4 avec comme message d'erreur :  
 

Citation :

Erreur d'exécution '438' :  
Propriété ou méthode d'exécution non gérée par cet objet


 
En me rendant sur FP_Ld2, lorsque je clique droit sur l'Optionbutton en question, je me rends compte que je n'ai plus les onglets "Priorités" et "Visualiser le code" comme dans les contrôles Active X mais bien "Affecter une macro" comme dans les contrôles de formulaires... J'en déduis qu'il y a eu ce changement mais je ne comprends pas pourquoi et cela vaut pour tous les contrôles après cet optionbutton4! Mais ceux d'avant (Label1,2,3 et Optionbutton 1,2,3) restent Active X et fonctionnent à merveille....
 
Ce n'est pas tout, lorsque je crée tout de même une 3e feuille ("FP_Ld3" ), le même bug apparait mais à partir de Label1... Donc tous mes contrôles sont passés de Active X à formulaires...
 
Dans ma feuille8 ce sont pourtant bien des contrôles active X qui doivent être copier-coller (et ça marche dans le premier copier-coller...).
 
Ce problème me perturbe fortement car il est à la base du formulaire que je veux créer...
 
Je vous remercie d'avance pour votre aide, quelle qu’elle soit!

Reply

Marsh Posté le 11-04-2013 à 16:51:48   

Reply

Marsh Posté le 11-04-2013 à 22:33:02    

 
 
 
           Tu as déjà posé cette question sur un autre forum, donc inutile de répondre ici …

Reply

Marsh Posté le 12-04-2013 à 09:02:01    

Bonjour Marc L,
 
Sauf si la réponse est différente ou si tu sais répondre au bug qui se produit quand j'exécute le code proposé sur l'autre forum?
 
Code proposé :
 

Code :
  1. 'Bouton pour ajouter une feuille
  2. Private Sub CommandButton2_Click()
  3. Dim NewSheet As Worksheet
  4.     Dim I As Integer
  5.         Do
  6.         I = I + 1
  8. ' FeuilleExiste est une fonction créée et présente après ce Sub
  10.         If FeuilleExiste("FP_Ld" & I) = False Then
  11.             Sheets("Feuil8" ).Copy Before:=Sheets("Feuil2" ) 'Feuil8 étant la feuille à copier
  12.             Set NewSheet = Sheets(Sheets("Feuil2" ).Index - 1)
  13.             NewSheet.Name = "FP_Ld" & I
  15.             With NewSheet ' Initialisation de paramètres et commandes diverses
  16.             .Activate
  18.             .Range("A1" ).Show
  19.             .Label1.Caption = Sheets("Feuil1" ).Label2.Caption
  20.             .Label2.Caption = Sheets("Feuil1" ).Label3.Caption
  21.             .Label3.Caption = NewSheet.Name
  23.             .OptionButton1.Value = False
  24.             .OptionButton2.Value = False
  25.             .OptionButton3.Value = False
  26.             .OptionButton4.Value = False
  27.             .OptionButton5.Value = False
  28.             .ComboBox4.Enabled = False
  29.             .ComboBox5.Enabled = False
  30.             .CommandButton16.Enabled = False
  31.             .CommandButton17.Enabled = False
  32.             .TextBox25.Enabled = False
  33.             .TextBox26.Enabled = False
  34.             .TextBox27.Enabled = False
  36.             .ComboBox1.ListFillRange = "Feuil6!N93:N162"
  37.             .ComboBox1.ListIndex = -1
  39.             L1 = Sheets("Feuil7" ).Range("D1" ).End(xlDown).Row
  40.             .ComboBox2.ListFillRange = "Feuil7!D1:D" & L1
  41.             .ComboBox2.ListIndex = -1
  43.             L2 = Sheets("Feuil2" ).Range("A6218" ).End(xlDown).Row
  44.             .ComboBox3.ListFillRange = "Feuil2!A6218:A" & L2
  45.             .ComboBox3.ListIndex = -1
  47.             .ComboBox4.ListFillRange = "Feuil3!H2:H3746"
  48.             .ComboBox4.ListIndex = -1
  50.             .ComboBox5.ListFillRange = "Feuil2!A36:A6215"
  51.             .ComboBox5.ListIndex = -1
  53.             End With
  54.             Exit Do
  55.         End If
  56.         Loop
  58. End Sub


 
Bug lors de l'exécution :
 

Citation :

Erreur de compilation:
Membre de méthode ou de données introuvable


 
Et dans le code il me surligne  
 

Code :
  1. .Label1.Caption = Sheets("Feuil1" ).Label2.Caption


 
Merci!

Reply

Marsh Posté le 12-04-2013 à 10:24:49    

 
           Le message est clair …   Et puis tu as indiqué avoir la solution sur l'autre forum …

Reply

Marsh Posté le 12-04-2013 à 11:34:50    

Oui, cela semble fonctionner
 

Code :
  1. 'Bouton pour ajouter une feuille
  2. Private Sub CommandButton2_Click()
  3. Dim NewSheet As Worksheet
  4.     Dim I As Integer
  5.         Do
  6.         I = I + 1
  8. ' FeuilleExiste est une fonction créée et présente après ce Sub
  10.         If FeuilleExiste("FP_Ld" & I) = False Then
  11.             Sheets("Feuil8" ).Copy Before:=Sheets("Feuil2" ) 'Feuil8 étant la feuille à copier
  12.             Set NewSheet = Sheets(Sheets("Feuil2" ).Index - 1)
  13.             NewSheet.Name = "FP_Ld" & I
  14.             NewSheet.Activate
  16.             With Worksheets("FP_Ld" & I) ' Initialisation de paramètres et commandes diverses
  18.             .Range("A1" ).Show
  19.             .Label1.Caption = Sheets("Feuil1" ).Label2.Caption
  20.             .Label2.Caption = Sheets("Feuil1" ).Label3.Caption
  21.             .Label3.Caption = NewSheet.Name
  23.             .OptionButton1.Value = False
  24.             .OptionButton2.Value = False
  25.             .OptionButton3.Value = False
  26.             .OptionButton4.Value = False
  27.             .OptionButton5.Value = False
  28.             .ComboBox4.Enabled = False
  29.             .ComboBox5.Enabled = False
  30.             .CommandButton16.Enabled = False
  31.             .CommandButton17.Enabled = False
  32.             .TextBox25.Enabled = False
  33.             .TextBox26.Enabled = False
  34.             .TextBox27.Enabled = False
  36.             .ComboBox1.ListFillRange = "Feuil6!N93:N162"
  37.             .ComboBox1.ListIndex = -1
  39.             L1 = Sheets("Feuil7" ).Range("D1" ).End(xlDown).Row
  40.             .ComboBox2.ListFillRange = "Feuil7!D1:D" & L1
  41.             .ComboBox2.ListIndex = -1
  43.             L2 = Sheets("Feuil2" ).Range("A6218" ).End(xlDown).Row
  44.             .ComboBox3.ListFillRange = "Feuil2!A6218:A" & L2
  45.             .ComboBox3.ListIndex = -1
  47.             .ComboBox4.ListFillRange = "Feuil3!H2:H3746"
  48.             .ComboBox4.ListIndex = -1
  50.             .ComboBox5.ListFillRange = "Feuil2!A36:A6215"
  51.             .ComboBox5.ListIndex = -1
  53.             End With
  54.             Exit Do
  55.         End If
  56.         Loop
  58. End Sub


 
Mais l'erreur survient tout de même de temps en temps (bug d'excel?). Embêtant, peut-être qu'excel est poussé trop loin et il serait mieux de passer sur Access...

Reply

Marsh Posté le 12-04-2013 à 11:57:51    

 
           Disons qu'il y a une confusion de genre …
 
           En fait au moment de l'erreur, il faut vérifier à quoi correspond chaque variable / objet …
 
           Peut-être qu'en précédant chaque référence de feuille avec le classeur la contenant, …
 
           Si c'est le classeur conteneur de la macro :  ThisWorkbook.Worksheets( …
 
           Sinon en terme de conception, un UserForm commun aurait été moins consommateur de ressources, non ?
 

Reply

Marsh Posté le 12-04-2013 à 12:08:32    

 
           Même si cela ne change rien au problème, quand une feuille est copiée, elle est automatiquement activée
           (en tout cas sur ma version) …
 
           Donc la ligne 12 peut se réduire ainsi :     Set NewSheet = ActiveSheet
 
           Et donc la ligne 14 ne sert à rien …
 
           Dès le départ, après la copie, j'essaierai donc avec un   With ActiveSheet   …
 
           Ce qui n'empêche pas de qualifier le classeur de chaque référence à une feuille, juste pour blinder.
 
           Mais pour ce genre de problème, il faut être devant l'ordinateur pour comprendre ce qu'il se passe …


Message édité par Marc L le 12-04-2013 à 12:12:32
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed