Marco Excel ne fonctionne plus en version 2016 [Résolu]
Phil541101
Messages postés lundi 13 novembre 2017Date d'inscription
13 novembre 2017
Dernière intervention
-
13 nov. 2017 à 09:21 - Dernière réponse : phil54110
- 15 déc. 2017 à 12:14
Je suis un utilisateur excel qui ne fait pas de programmation et viens d'acheter la version 2016.
La macro ci-dessous ne fonctionne plus le 'c' de 'For Each c In Selection' est en surbrillance et j'obtiens le message '' Projet ou bibliothèque introuvable...
For Each c In Selection
Select Case (c)
Case 1: c.Interior.ColorIndex = 3 '"1"
If c.Value = "01" Then c.Font.ColorIndex = 2
Case 2: c.Interior.ColorIndex = 10 '"2"
If c.Value = "02" Then c.Font.ColorIndex = 2
Case 3: c.Interior.ColorIndex = 45 '"3"
If c.Value = "03" Then c.Font.ColorIndex = 1
Case 4: c.Interior.ColorIndex = 41 '"4"
If c.Value = "04" Then c.Font.ColorIndex = 2
Case 7: c.Interior.ColorIndex = 28 '"07"
If c.Value = "07" Then c.Font.ColorIndex = 1
'Case " A": c.Interior.ColorIndex = 33 '"a"
'If c.Value = " A" Then c.Font.ColorIndex = 1
'Case " B": c.Interior.ColorIndex = 33 '"b"
'If c.Value = " B" Then c.Font.ColorIndex = 1
'Case " C": c.Interior.ColorIndex = 26 '"c"
'If c.Value = " C" Then c.Font.ColorIndex = 1
End Select
EDIT : Mise en forme du code en utilisant correctement les balises de code (la coloration syntaxique).
jordane4521437
Messages postés mercredi 22 octobre 2003Date d'inscriptionModérateurStatut
20 juin 2018
Dernière intervention -13 nov. 2017 à 11:33
0
Merci
Bonjour,
For Each c In Selection
' A lire : http://excel-malin.com/tutoriels/vba-tutoriels/vba-select-case-mode-d-emploi/
Select Case (c.Value)
Case 1:
c.Interior.ColorIndex = 3 '"1"
c.Font.ColorIndex = 2
Case 2:
c.Interior.ColorIndex = 10 '"2"
c.Font.ColorIndex = 2
Case 3:
c.Interior.ColorIndex = 45 '"3"
c.Font.ColorIndex = 1
Case 4:
c.Interior.ColorIndex = 41 '"4"
c.Font.ColorIndex = 2
Case 7:
c.Interior.ColorIndex = 28 '"07"
c.Font.ColorIndex = 1
End Select
Next
Bonjour Jordane45,
J'ai pu constaté combien tu ma déjà sauvé. J reviens donc vers toi car une autre macro me pose problème.
On m'a fait cette macro pour créer des pdf avec le nom qui change autant de fois qu'il n'y a d’occurrences. Elle fonctionnait bien sur Excel 2010 par contre j'ai achté MS Office 2016 et rien ne va plus. Quand j'active la macro, s'affiche le message suivant : Erreur de compilation : Projet ou Bibliothèque introuvable.
PS: avant d'activer la macro, je dois :
1 Modifier l'imprimante et choisir AcrobatPDF
2 Dans le panneau propriété de l'imprimante Décocher se limiter aux polices système
Dans l'éditeur Macro
1 Aller dans l'onglet outil>Références
2 cocher Acrobat Distiller
Je te remercie par avance
Public Sub PrintToPDF_sens1()
Dim i As Integer
Dim myPDF As PdfDistiller
Dim PSFileName As String
Dim PDFFileName As String
Dim Dossier As String
For i = 1 To Range("AQ1").Value
Range("A1").Select
ActiveCell.FormulaR1C1 = i
Tri_sens_1
Bonjour
Une sélection est un objet range
l'expression :
For Each c In Selection
implique donc que chaque c est également un objet Range (une cellule)
Dès lors :
Select Case (c) Case 1 ... case 2
n'ont aucun sens, 1 , 2, etc ... étant des valeurs.
Et même en cas de (trop) grande tolérance de VBA, il y a paradoxe entre un c, qui serait une valeur, et un c.interior ... qui invoquerait un objet !
La macro ci-dessous ne fonctionne plus
"plus", dis-tu ? Ainsi écrite, elle ne risque pas d'avoir un jour fonctionné !
________________________
Nul ne saurait valablement coder ce qu'il ne saurait exposer clairement.
Bonjour,
Je peux vous confirmer qu'elle fonctionne sur Excel 2010.
Bien que je ne sois pas plus avancé, je vous remercie du temps que vous m'avez accorder.
Faute de mieux je vais acheter une version 2010.
Bonne journée
Bonjour Jordan54,
Merci de ton aide par contre, j'ai recopié ta macro et je rencontre toujours le même problème.
La macro ne démarre pas. elle surligne le "c" de "For Each c In Selection" et Une invite apparaît avec le message Erreur de compilation Projet ou bibliothèque introuvable.
Merci quand même
Je suis un simple utilisateur. Je viens de passer à Excel 2016.
Cette macro donne une couleur spécifique à certaines cellules
Jusqu'à lors elle fonctionnait mais depuis Excel 2016 j'obtiens une boîte d'erreur avec le massage ''Erreur de compilation : Projet ou bibliothèque introuvable.
Un grand merci à celui qui me sortira de cette panade.
La macro
Sub couleur_cellules()
'
' couleur_cellules Macro
' Macro enregistrée le 16/06/2008 par philippe.belleville
' Raffraichissement de couleur
For Each C In Selection Select Case C.Value Case 1: C.Interior.ColorIndex = 3 C.Font.ColorIndex = 2 Case 2: C.Interior.ColorIndex = 10 C.Font.ColorIndex = 2 Case 3: C.Interior.ColorIndex = 45 C.Font.ColorIndex = 1 Case 4: C.Interior.ColorIndex = 41 C.Font.ColorIndex = 2 Case 7: C.Interior.ColorIndex = 28 C.Font.ColorIndex = 1 End Select Next End Sub
Je vois que tu vérifies si C = "01" et autres
Est-ce que c'est le format du texte que tu vérifies ?
Si oui, utilise C.Text plutôt que .Value
J'ai pu constaté combien tu ma déjà sauvé. J reviens donc vers toi car une autre macro me pose problème.
On m'a fait cette macro pour créer des pdf avec le nom qui change autant de fois qu'il n'y a d’occurrences. Elle fonctionnait bien sur Excel 2010 par contre j'ai achté MS Office 2016 et rien ne va plus. Quand j'active la macro, s'affiche le message suivant : Erreur de compilation : Projet ou Bibliothèque introuvable.
PS: avant d'activer la macro, je dois :
1 Modifier l'imprimante et choisir AcrobatPDF
2 Dans le panneau propriété de l'imprimante Décocher se limiter aux polices système
Dans l'éditeur Macro
1 Aller dans l'onglet outil>Références
2 cocher Acrobat Distiller
Je te remercie par avance
Public Sub PrintToPDF_sens1()
Dim i As Integer
Dim myPDF As PdfDistiller
Dim PSFileName As String
Dim PDFFileName As String
Dim Dossier As String
For i = 1 To Range("AQ1").Value
Range("A1").Select
ActiveCell.FormulaR1C1 = i
Tri_sens_1
Dossier = "D:\REGION\Horaires à l'arrêt\Briey\Val de Briey Sens 1 -"
PSFileName = Dossier & Range("A12").Value & ".ps"
PDFFileName = Dossier & Range("A12").Value & ".pdf"
LOGFileName = Dossier & Range("A12").Value & ".log"
ActiveWindow.SelectedSheets.PrintOut copies:=1, Collate:=True, PrintToFile:=True, PrToFileName:=PSFileName
Set myPDF = New PdfDistiller
myPDF.FileToPDF PSFileName, PDFFileName, ""
Set myPDF = Nothing
Kill PSFileName
Kill LOGFileName
Next i
End Sub