Macro Excel ne fonctionne plus...

Résolu

sanchis81 Messages postés 134 Date d'inscription mardi 17 février 2009 Statut Membre Dernière intervention 2 octobre 2013 - 15 mai 2009 à 08:57
sanchis81 Messages postés 134 Date d'inscription mardi 17 février 2009 Statut Membre Dernière intervention 2 octobre 2013 - 18 mai 2009 à 11:43

Bonjour à tous,

j'ai mis en place une macro qui fonctionnait très bien jusqu'à aujourd'hui....

Lorsque je la lance maintenant, voilà ce qui est affiché:

Erreur d'exécution '1004'

Impossible de définir la propriété ColorIndex de la classe Interior

Je n'ai touché à rien.......

Merci pour votre aide

A voir également:

Macro Excel ne fonctionne plus...
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Liste déroulante excel - Guide
Word et excel gratuit - Guide
Déplacer colonne excel - Guide
Si et excel - Guide

5 réponses

Réponse 1 / 5

qmike Messages postés 1509 Date d'inscription mardi 19 juillet 2005 Statut Membre Dernière intervention 18 juin 2012 594
15 mai 2009 à 09:32

bonjour
Posts le contenu de la macro

sanchis81 Messages postés 134 Date d'inscription mardi 17 février 2009 Statut Membre Dernière intervention 2 octobre 2013 10
15 mai 2009 à 14:51

Bonjour qmike,

ma macro a pour but de couper des données issues d'un tableau d'une feuille Excel et d'aller les copier dans un tableau d'une aute feuille. Une fois ce couper-coller effectué, la couleur de certaines cases du 1er tableau redeviennent "transparentes":

Sub Vider()
'
' Vider Macro
' Macro enregistrée le 24/02/2009 par frederik
'

'
Sheets(2).Unprotect Password:="essai"
ActiveWindow.SmallScroll Down:=-3
Range( _
"A4,A10:A11,B3:C11,E4,E10:E11,F3:G11,I4,I10:I11,J3:K11,M4,M10:M11,N3:O11,Q4,Q10:Q11" _
).Select
Range("Q10").Activate
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 6
Range( _
"A4,A10:A11,B3:C11,E4,E10:E11,F3:G11,I4,I10:I11,J3:K11,M4,M10:M11,N3:O11,Q4,Q10:Q11,R3:S11" _
).Select
Range("R3").Activate
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Range( _
"A4,A10:A11,B3:C11,E4,E10:E11,F3:G11,I4,I10:I11,J3:K11,M4,M10:M11,N3:O11,Q4,Q10:Q11,R3:S11,A19,A25:A26,B18:C26,E19,E25:E26,F18:G26,I19,I25:I26,J18:K26,M19,M25:M26,N18:O26" _
).Select
Range("N18").Activate
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 6
Range( _
"A4,A10:A11,B3:C11,E4,E10:E11,F3:G11,I4,I10:I11,J3:K11,M4,M10:M11,N3:O11,Q4,Q10:Q11,R3:S11,A19,A25:A26,B18:C26,E19,E25:E26,F18:G26,I19,I25:I26,J18:K26,M19,M25:M26,N18:O26,Q19,Q25:Q26,R18:S26" _
).Select
Range("R18").Activate
Selection.ClearContents
Range("V5").Select
ActiveCell.FormulaR1C1 = "FALSE"
Range("V5").Select
Selection.AutoFill Destination:=Range("V5:AE5"), Type:=xlFillDefault
Range("V5:AE5").Select
Selection.Copy
Range("V6").Select
ActiveSheet.Paste
Range("V7").Select
ActiveSheet.Paste
ActiveWindow.ScrollColumn = 13
ActiveWindow.ScrollColumn = 12
ActiveWindow.ScrollColumn = 11
ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollColumn = 14
ActiveWindow.ScrollColumn = 1
ActiveWindow.SmallScroll Down:=-3

ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
ActiveWindow.SmallScroll Down:=-12
Range("B2:C2,F2:G2,J2:K2,N2:O2").Select
Range("N2").Activate
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 6
Range("B2:C2,F2:G2,J2:K2,N2:O2,R2:S2").Select
Range("R2").Activate
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Range("B2:C2,F2:G2,J2:K2,N2:O2,R2:S2,B17:C17,F17:G17,J17:K17,N17:O17").Select
Range("N17").Activate
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 7
Range("B2:C2,F2:G2,J2:K2,N2:O2,R2:S2,B17:C17,F17:G17,J17:K17,N17:O17,R17:S17"). _
Select
Range("R17").Activate
Selection.Interior.ColorIndex = xlNone Arrêt du débogueur
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Sheets(2).Protect Password:="essai", DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

Merci

Réponse 2 / 5

sanchis81 Messages postés 134 Date d'inscription mardi 17 février 2009 Statut Membre Dernière intervention 2 octobre 2013 10
15 mai 2009 à 10:00

Bonjour qmike,

ma macro a pour but de couper des données issues d'un tableau d'une feuille Excel et d'aller les copier dans un tableau d'une aute feuille. Une fois ce couper-coller effectué, la couleur de certaines cases du 1er tableau redeviennent "transparentes":

Sub Vider()
'
' Vider Macro
' Macro enregistrée le 24/02/2009 par frederik
'

'
Sheets(2).Unprotect Password:="essai"
ActiveWindow.SmallScroll Down:=-3
Range( _
"A4,A10:A11,B3:C11,E4,E10:E11,F3:G11,I4,I10:I11,J3:K11,M4,M10:M11,N3:O11,Q4,Q10:Q11" _
).Select
Range("Q10").Activate
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 6
Range( _
"A4,A10:A11,B3:C11,E4,E10:E11,F3:G11,I4,I10:I11,J3:K11,M4,M10:M11,N3:O11,Q4,Q10:Q11,R3:S11" _
).Select
Range("R3").Activate
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Range( _
"A4,A10:A11,B3:C11,E4,E10:E11,F3:G11,I4,I10:I11,J3:K11,M4,M10:M11,N3:O11,Q4,Q10:Q11,R3:S11,A19,A25:A26,B18:C26,E19,E25:E26,F18:G26,I19,I25:I26,J18:K26,M19,M25:M26,N18:O26" _
).Select
Range("N18").Activate
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 6
Range( _
"A4,A10:A11,B3:C11,E4,E10:E11,F3:G11,I4,I10:I11,J3:K11,M4,M10:M11,N3:O11,Q4,Q10:Q11,R3:S11,A19,A25:A26,B18:C26,E19,E25:E26,F18:G26,I19,I25:I26,J18:K26,M19,M25:M26,N18:O26,Q19,Q25:Q26,R18:S26" _
).Select
Range("R18").Activate
Selection.ClearContents
Range("V5").Select
ActiveCell.FormulaR1C1 = "FALSE"
Range("V5").Select
Selection.AutoFill Destination:=Range("V5:AE5"), Type:=xlFillDefault
Range("V5:AE5").Select
Selection.Copy
Range("V6").Select
ActiveSheet.Paste
Range("V7").Select
ActiveSheet.Paste
ActiveWindow.ScrollColumn = 13
ActiveWindow.ScrollColumn = 12
ActiveWindow.ScrollColumn = 11
ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollColumn = 14
ActiveWindow.ScrollColumn = 1
ActiveWindow.SmallScroll Down:=-3

ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
ActiveWindow.SmallScroll Down:=-12
Range("B2:C2,F2:G2,J2:K2,N2:O2").Select
Range("N2").Activate
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 6
Range("B2:C2,F2:G2,J2:K2,N2:O2,R2:S2").Select
Range("R2").Activate
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Range("B2:C2,F2:G2,J2:K2,N2:O2,R2:S2,B17:C17,F17:G17,J17:K17,N17:O17").Select
Range("N17").Activate
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 7
Range("B2:C2,F2:G2,J2:K2,N2:O2,R2:S2,B17:C17,F17:G17,J17:K17,N17:O17,R17:S17"). _
Select
Range("R17").Activate
Selection.Interior.ColorIndex = xlNone Arrêt du débogueur
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Sheets(2).Protect Password:="essai", DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

Merci

Le Pingou Messages postés 12242 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 16 mars 2025 1 458
15 mai 2009 à 22:03

Bonjour,
Juste au passage, votre maco ne fait que remplir la plage "V5:AE7" avec la valeur "FAUX".
Alors ou est le problème ?

Réponse 3 / 5

Mike-31 Messages postés 18393 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 5 mai 2025 5 129
15 mai 2009 à 22:48

Salut tous,

J'ai testé le code et aucun problème de fonctionnement, il pourrait simplement être simplifié parce qu'il fait un peu usine à gaz, et sans connaitre les attentes de sanchis81, je pense que bon nombre de lignes sont inutiles

A+
Mike-31

Un problème sans solution est un problème mal posé (Einstein)

Réponse 4 / 5

pilas31 Messages postés 1825 Date d'inscription vendredi 5 septembre 2008 Statut Contributeur Dernière intervention 24 avril 2020 645
16 mai 2009 à 16:32

Bonjour tout le monde,

Juste un avis : supposons que la feuille active ne soit pas la feuille sheets(2) . Alors ce message peut être tout simplement parce qu'on travaille sur des cellules non déprotégées.

J'ai fais un test si on lance la macro en en étant positionnée sur un feuille protégée qui ne soit pas la sheet(2) avec par exemple uniquement la cellule "S17" verrouillée. On obtient bien la même erreur au même endroit.

Sanchis81 devrait donc vérifier que les deux feuilles sur lesquelles il travaille sont toutes les deux déverrouillées.

Ceci étant dit, d'accord avec vous, cette macro ne semble pas faire ce qu'il annonce

A+

Mike-31 Messages postés 18393 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 5 mai 2025 5 129
16 mai 2009 à 22:05

Salut,

Tout à fait possible et d'accord avec toi, lorsque j'ai testé le code, j'avais neutralisé la protection et déprotection, par contre si tu protéges les feuilles il y a erreur.

Bien vu

Bon Dimanche

A+
Mike-31

Un problème sans solution est un problème mal posé (Einstein)

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 5

sanchis81 Messages postés 134 Date d'inscription mardi 17 février 2009 Statut Membre Dernière intervention 2 octobre 2013 10
18 mai 2009 à 11:43

Merci ça fonctionne!

Discussions similaires

Transformer un chiffre en lettres dans excel sans macro

Votre réponse

Discussions similaires