Problème compatibilite excel 32/64 bits

Version imprimable

Bonjour,

Mon code qui était fonctionnel il y a quelques mois ne l'est plus aujourd'hui, en raison d'une incompatibilité de version.

Le programme plante à la ligne 17.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub Newprojectbutton_Click()
 
Dim z As Variant
Dim y As String
 
 LastS = Range("c" & Rows.Count).End(xlUp).Row + 1
 
 Range("C" & LastS) = Nameofproject
Active = ActiveSheet.Name
Sheets(Active).Select
With Worksheets(Active)
colour = Int(56 * Rnd)
' Création de l'onglet pour le nouveau projet
For s = 2 To Sheets.Count      ' on masque les feuilles
Sheets(s).Visible = truee
Next s
    Sheets("Draft").Copy After:=Sheets(4)
    Sheets("Draft (2)").Select
 
'Puis fermer le formulaire'
 
    Unload Me

Est ce que quelqu'un pourrait m'orienter SVP ?

20/09/2017, 14h57
Marc-L

Bonjour,

le plantage en ligne 17 n'a aucun rapport avec le titre de cette discussion ‼

Et comme nous ne sommes pas devin quant à la nature du message d'erreur (cf règles du forum) …

___________________________________________________________________________________________________________
Je suis Paris, Barcelone, London, Manchester, Egypte, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …
20/09/2017, 15h02
vincedu74

BOnjour Marc-L,

Je n'ai eu le message d'erreur qu'une fois.

La il ne s'affiche plus, mon programme plante au bout d'une dizaine de minutes de bug.

je vais essayer de faire réapparaître le message d'erreur.
20/09/2017, 15h07
Invité

Bonjour,

https://www.developpez.net/forums/d1...a/#post9598909
20/09/2017, 15h09
Marc-L

Salut Robert et bien vu !

Ma migraine depuis hier doit un peu m'empêcher de tilter, m'étant focalisé sur le titre de cette discussion …

Bonjour,

au passage, corriger la faute de frappe sur la ligne 15, en notant bien que le commentaire de la ligne 14 est l'exact opposé de ce que tu fais (ou plutôt à tenté de faire)

il est également conseillé de ne pas travailler sur les object actifs
et quand on duplique une feuille, la feuille clonée est de facto la feuille active, il n'y a pas besoin de la sélectionner

voici à main levée une suggestion à adapter bien entendu, j'ai été obligé de laisser un ActiveSheet car je ne connais pas la feuille
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 Private Sub Newprojectbutton_Click() Dim z As Variant Dim y As String With ActiveSheet .Cells(.Rows.Count, 3).End(xlUp)(2).Value = Nameofproject End With colour = Int(56 * Rnd) ' Création de l'onglet pour le nouveau projet For s = 2 To Worksheets.Count ' on masque les feuilles Worksheets(s).Visible = True ' ou False si on veut réellement les masquer ! Next s Worksheets("Draft").Copy After:=Worksheets(4) 'Puis fermer le formulaire' Unload Me

20/09/2017, 15h30
vincedu74

Merci Joe.levrai

Je teste et te tiens au courant
20/09/2017, 15h38
vincedu74

J'ai tout codé selon ce que tu m'as indiqué Joe.levrai.

J'ai executé le programme ligne à ligne, à la ligne 17 la page excel bug et indique "Excel ne répond pas"....
20/09/2017, 15h50
joe.levrai

la ligne 17 de ma proposition est vide

et tu n'avais montré qu'une partie de ta procédure, peux-tu nous la montrer maintenant dans son intégralité, et nous indiquer ce qu'est la variable Nameofproject et où elle est instanciée
20/09/2017, 15h58
vincedu74

oui je fais ca de suite

J'ai réussi à capturer le message d'erreur avant qu'il s'efface

Erreur d'execution '-2147417848 (80010108)':
Erreur Automation
L'objet invoqué s'est déconnecté de ses clients.

A moins que ce message n'apparaisse que parce que je force la fermeture de la fenêtre de programmation...
20/09/2017, 16h00
vincedu74

Citation:

Envoyé par joe.levrai

la ligne 17 de ma proposition est vide

Je voulais dire 18 ! deésolé ....:?

Ci après le code complet

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
'Procédure permettant de d'incrémenter les projet et le code du projet sur la "homepage"
Private Sub Newprojectbutton_Click()
 
Dim z As Variant
Dim y As String
 
 
With ActiveSheet
    .Cells(.Rows.Count, 3).End(xlUp)(2).Value = Nameofproject
End With
 
 
 LastS = Range("c" & Rows.Count).End(xlUp).Row + 1
 
colour = Int(56 * Rnd)
' Création de l'onglet pour le nouveau projet
For s = 2 To Sheets.Count      ' on masque les feuilles
Sheets(s).Visible = True
Next s
    'Sheets("Draft").Copy After:=Sheets(4)
    'Sheets("Draft (2)").Select
 
 
 
Worksheets("Draft").Copy After:=Worksheets(4)
 
'Puis fermer le formulaire'
Unload Me
 
Application.DisplayAlerts = False
On Error GoTo errorHandler
 
    Sheets("Draft (2)").Name = Nameofproject
    y = Nameofproject
    [D2] = Nameofproject
    [F2] = ProjectCode
    [F3] = ComboBox1.Value
    [F5] = ComboBox2.Value
    [F7] = ComboBox3.Value
    [F9] = ComboBox4.Value
    [F10] = ComboBox5.Value
 
 
   Exit Sub
errorHandler:  ActiveSheet.Delete
MsgBox ("Name of project already used OR Wrong Name Of Project")
 
On Error Resume Next
Sheets(y).Visible = True
Sheets(y).Activate
End Sub

Nameofproject est le nom d'une textbox

tu as suivis mon conseils?
Code:

1 2 Set NewWs = ThisWorkbook.Sheets.Add Sheets("Draft").Copy NewWs

20/09/2017, 16h09
vincedu74
Citation:
Envoyé par dysorthographie

tu as suivis mon conseils?

Code:

1 2 set NewWs= Sheets("Draft").Copy After:=Sheets(4) NewWs.Select
On m'indique le message d'erreur suivant quand je programme
Attendu : Fin d'instruction

mais concernant les référence?

Code:

1
2
3
4
Sub test()Set NewWs = ThisWorkbook.Sheets.Add
Sheets("Draft").Cells.Copy NewWs.Range("A1")
NewWs.Select
End Sub

21/09/2017, 09h05
vincedu74

Merci pour ton aide mais, si je copie les cellules je ne copie ni les formules ni les differentes formules vba de la feuille.
21/09/2017, 10h29
vincedu74

Le problème venait du fait qu'une partie de la feuille était masqué...

Quelqu'un pourrait il m'indiquer pourquoi cela ne fonctionne pas quand une partie de la feuille est masquée ?

Merci beaucoup à vous pour votre aide !
21/09/2017, 10h36
Marc-L

Certaines fonctionnalités d'Excel tenant compte uniquement du visible …