impossible d'ouvrir fichier Excell suite a plantage...

[fredh]

Salut a tous

Voila je me suis fait un fichier pour la commande de materielle avec plusieur maccros pecher par ci par la.

Suite a l'insertion du code qui s'execute avec un toggelbouton:
Comment limiter les déplacements possibles pour un utilisateur à la plage B10-C12 d'une feuille ?
Worksheets("Feuil1").ScrollArea = "B10:C12"
changer en :
activesheet.ScrollArea = "B10:C12".

puis le code pour le tooglebouton OFF:
Worksheets("Feuil1").ScrollArea = "A1:C12"

Je ne pouvais plus selectionner les colonnes.
J'ai deproteger ma feuille puis je ne sais plus comment je voulais effacer une colonne.
Plantage puis reboot.
Depuis je ne peut plus ouvrir ce fichier :Excell reste en attente d'ouverture.

Quelque peut il m'aider a decoincer la situation?
je ne peut pas joindre le fichier car il fait 2.4Mo (ca c'est pas normal) et en Zip il fait 390Ko. si quelque'un veut tester je le mets dispo par MP

 

[fredh]

Re : impossible d'ouvrir fichier Excell suite a plantage...

je precise que le fichiers ne contient ni virus connus ni "maccros malicieuse"

ce ne sont que des maccros pecher (je ne me rapelle plus les auteurs, désolé...) et combiner les unes aux autres suivant mes besoins

j'ai trouver comment Limiter la possibilité de déplacement à la plage A1:E50 , dans la feuille active

Sub deplacementDansCellules()
activeSheet.scrollArea = "A1:E50"
End Sub

et pour supprimer la limitation de déplacement

Sub annulerLimitationDeplacement()
activeSheet.scrollArea = ""

 

[ziopizza]

Re : impossible d'ouvrir fichier Excell suite a plantage...

Bonjour fredh le Forum,

Essaye de désactiver les macro dans ton exel ,Menu outils, macro,sécurité coche trés élevé.
Salut Yves

 

[fredh]

Re : impossible d'ouvrir fichier Excell suite a plantage...

Salut yves et merci de participer au poste.

Ton astuce ne donne rien Excell reste toujours bloquer a l'ouverture du fichiers.

je suis sous excell 97.

Il me semble qu'il y a une option pour ouvrir et reparer un fichiers dans Excell ?

@+

 

[fredh]

Re : impossible d'ouvrir fichier Excell suite a plantage...

salut j'ai ouvert le fichier puis desactiver les maccros et j'ai laisser tourner excell et au baut de ~ 30mn messagebox :
Le fichier excell des liens avec d'autres classeurs voulez vous actualisez
--> non
waouw tout est la.....
--> Enregistrer sous puis fermeture et reouverture ......en activant les macros

j'ai l'impression que c'est repartis pour une demei heure.
B....l je me souvient pas avoir des liaisons avec d'autres classeur....
je vais verifier.....

Edit : ca y est ca a mis moins que 30mn....
Il y avait effectivement des liaisons que j'ai suprimez.
J'ai toujours la lenteur a l'ouverture.....si quelqu'un peut m'aider sur ce point la.
D'autres part mon fichier pese "plus que" 1.6Mo, je ne comprend pas cette taille je n'ai que trois feuilles dont deux font references a la premiere sur la moitieé de leur contenu.... le reste n'est que des chiffres.....

 

[ziopizza]

Re : impossible d'ouvrir fichier Excell suite a plantage...

Re bonjour,
Il faut désactiver les macros en ouvrant un fichier vierge,
ensuite tu quitte et tu ouvres le fichier qui ne marche pas.
Salut yves

 

[fredh]

Re : impossible d'ouvrir fichier Excell suite a plantage...

voila le code que j'applique a la deuxieme et troisieme feuille.
Cela active ou desactive le surlignage partielle des lignes et colone si action sur un toggle bouton.
je n'autorise que le coloriage dans une certaine plage.
je desactive la protection de feuille avant le coloriage.
j'active la protection de feuille apres le coloriage puis toutes les celulle devienne sans couleur de fond.
pendant le coloriage il n'y que une partie des celulles (celle non proteger)disponnible puis apres le coloriage toutes les celulles sont disponible (mais une partie est proteger)

Option Explicit
Public Fred As Boolean
Public memoire As Boolean

Private Sub ToggleButton1_Click()

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Cell As Range

If Application.Intersect(Target, Range("B2:AO300")) Is Nothing Then Exit Sub

If Me.ToggleButton1 Then
Application.CutCopyMode = False
ActiveSheet.Unprotect
ActiveSheet.ScrollArea = "H4:AO300"
Rows(1).Interior.ColorIndex = xlNone
Rows(2).Interior.ColorIndex = xlNone
Rows(3).Interior.ColorIndex = xlNone

Columns(1).Interior.ColorIndex = xlNone
Columns(2).Interior.ColorIndex = xlNone
Columns(3).Interior.ColorIndex = xlNone

Cells(1, Target.Column).Interior.ColorIndex = 4
Cells(2, Target.Column).Interior.ColorIndex = 7
Cells(3, Target.Column).Interior.ColorIndex = 6

Cells(Target.Row, 1).Interior.ColorIndex = 4
Cells(Target.Row, 2).Interior.ColorIndex = 7
Cells(Target.Row, 3).Interior.ColorIndex = 6
memoire = True
End If

If Me.ToggleButton1 = False Then
If memoire = True Then

Rows(1).Interior.ColorIndex = xlNone
Rows(2).Interior.ColorIndex = xlNone
Rows(3).Interior.ColorIndex = xlNone

Columns(1).Interior.ColorIndex = xlNone
Columns(2).Interior.ColorIndex = xlNone
Columns(3).Interior.ColorIndex = xlNone

Cells(1, Target.Column).Interior.ColorIndex = 0
Cells(2, Target.Column).Interior.ColorIndex = 0
Cells(3, Target.Column).Interior.ColorIndex = 0

Cells(Target.Row, 1).Interior.ColorIndex = 0
Cells(Target.Row, 2).Interior.ColorIndex = 0
Cells(Target.Row, 3).Interior.ColorIndex = 0
memoire = False
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=False
ActiveSheet.ScrollArea = ""
End If
End If
End Sub

 

[porcinet82]

Re : impossible d'ouvrir fichier Excell suite a plantage...

Bonjour a tous,

En ce qui concerne la taille de ton fichier, ouvre un classeur vierge et copie/colle tes données ainsi que tes macro, ca devrait diminuer la taille du fichier.
Concernant ton code, je me suis amusé a le diminuer un peu, je ne suis pas sur que cela serve beaucoup, mais tu verras comment faire une boucle si tu ne sais pas deja les faire.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Cell As Range, i%, x%
If Application.Intersect(Target, Range("B2:AO300")) Is Nothing Then Exit Sub
If Me.ToggleButton1 Then
    Application.CutCopyMode = False
    ActiveSheet.Unprotect
    ActiveSheet.ScrollArea = "H4:AO300"
    For i = 1 To 3
        Rows(i).Interior.ColorIndex = xlNone
        Columns(i).Interior.ColorIndex = xlNone
        If i = 2 Then x = 2 Else x = 0
        Cells(i, Target.Column).Interior.ColorIndex = i + 3 + x
        Cells(Target.Row, i).Interior.ColorIndex = i + 3 + x
    Next i
    memoire = True
End If
If Me.ToggleButton1 = False And memoire = True Then
    For i = 1 To 3
        Rows(i).Interior.ColorIndex = xlNone
        Columns(i).Interior.ColorIndex = xlNone
        Cells(i, Target.Column).Interior.ColorIndex = 0
        Cells(Target.Row, i).Interior.ColorIndex = 0
    Next i
    memoire = False
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=False
    ActiveSheet.ScrollArea = ""
End If
End Sub

@+

 

[fredh]

Re : impossible d'ouvrir fichier Excell suite a plantage...

Salut porcinet82

Merci de participer.
J'ai tester tes amelioration et ca roule chez moi sur Excell 2003 reste plus qu'a tester au taf sur Excel 97.

Une questions toutefois : on puis je changer les couleur ?
avant j'avais ceci
Cells(1, Target.Column).Interior.ColorIndex = 4
Cells(2, Target.Column).Interior.ColorIndex = 7
Cells(3, Target.Column).Interior.ColorIndex = 6

j'avais aussi songer a ne mettre qu'une seule couleur au lieux des trois...avec aux choix une zone de marquage ou marquage jusqu'au curseur .....
Tout ceci avec une message box qui demande la zone a marquer (exemple de A a D pour colorer les lignes et de 1 a 3 pour colorer les colonne ou aucune entree pour le marquage jusqu'au curseur).

Avis aux surdouer du VBA.....

Ton astuce pour reduire la taile du fichier a marcher. Maintenant je peut joindre le fichier....pour les interesser...

Merci beaucoup pour ton aide tres precieuse



Edit : Explication du fichier joint:
la premier feuille "Preise" me sert de base de données c'est la que je rentre le material, son prix etc....
la deuxiemes feuille me servira pour calculer le cout du material par projet. Elle serat dupliquer pour en avoir autant que de projet.
Dans cette feuille j'ai une zone qui est du texte lier a la premiere feuille et une deuxieme zone ou je rentre le nombre de pieces par page de schema etc...



@+

 

[porcinet82]

Re : impossible d'ouvrir fichier Excell suite a plantage...

Bonsoir Fred,

Tout d'abord pour changer les couleur, il te suffit de modifier le code suivant :
For i = 1 To 3
Rows(i).Interior.ColorIndex = xlNone
Columns(i).Interior.ColorIndex = xlNone
If i = 2 Then x = 2 Else x = 0
Cells(i, Target.Column).Interior.ColorIndex = i + 3 + x
Cells(Target.Row, i).Interior.ColorIndex = i + 3 + x
Next i

avec un truc du genre (tu peux ajouter au i une variable) :
For i = 1 To 3
Rows(i).Interior.ColorIndex = xlNone
Columns(i).Interior.ColorIndex = xlNone
Cells(i, Target.Column).Interior.ColorIndex = i
Cells(Target.Row, i).Interior.ColorIndex = i
Next i

Pour ton autre question, je ne saisis pas tres bien le sens de la phrase suivante

j'avais aussi songer a ne mettre qu'une seule couleur au lieux des trois...avec aux choix une zone de marquage ou marquage jusqu'au curseur .....
Tout ceci avec une message box qui demande la zone a marquer (exemple de A a D pour colorer les lignes et de 1 a 3 pour colorer les colonne ou aucune entree pour le marquage jusqu'au curseur).

Peut etre qu'un exemple sur ton fichier serait plus parlant.

@+

 

[fredh]

Re : impossible d'ouvrir fichier Excell suite a plantage...

Salut Porcinet82
Je pense que tu ne saisi pas la zone de marquage...
* Alors pour la selection de zone A a D pour colorier la ligne du curseur et 1 a 3 pour colorier la colonne du curseur il faut jeter un oeil sur le fichier precedent "Preis Liste" en feuille 2 il y a un bouton pour activer le coloriage (seulement actif dans la zone H4:AD500


* Pour le coloriage jusqu'au curseur voir le fichier "jusquo curseur"

* Un autre exemple "rectangle"

Voila j'espere que je me fait bien comprendre, sinon n'hesiter pas a me "taper sur les doigt"

 

[porcinet82]

Re : impossible d'ouvrir fichier Excell suite a plantage...

Salut Fred,

Ok, j'ai regardé tes exemples, je saisie a present la zone de marquage, par contre je ne sais pas ce que tu veux que je fasse. Je ne capte pas tres bien ton histoire de message box.
Est-ce que tu peux me donner un peu plus d'info ?

En tout cas, je garde tes fichiers préciseusement, cette histoire de marquage ca peut etre tres utilise dans le cadre de gros fichier.

@+

 

[fredh]

Re : impossible d'ouvrir fichier Excell suite a plantage...

Salut porcinet82
J'ai reflechi ce WE, je pense laisser tomber les message box et m'orienté vers une barre d'outol perso. Ca serat plus simple a gerer.
Un bouton pour le 1er type de marquage.
un autre pour le deuxieme type
et un 3em pour le 3em type.
Ca je peut faire avec mes maigres connaisances.

Pour le 1er bouton j'aimerai quand meme que l'utilisateur rentre la zone a "marquer", par exemple avec un message box du genre "rentre les colonne a marquer" puis "rentre les lignes a marquer" et mettre le resultat dans des variables quont utilisera plus tard

Et oui Porcinet ce marquage est tres interessant surtout pour des version comme X97 ou des vielle becane car la signalisation de excell pour les lignes et colonnes est vraiment pas lisble pour des tableaux avec des espace reduit entre ligne et colone.
Cependant quelques restrictions : cela ne marche pas pour les feuille proteger (c'est pour cela que j'enleve la protection et que je limite la zone avec scrollarea).
Les couleur de fond ne peuvent pas etre toutes conserver....

Merci encore