Projet ou bibliothèque introuvable ! [Résolu/Fermé]

Signaler
-
Messages postés
12186
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
15 octobre 2020
-
Bonjour,

j'ai développé une macro pour le boulot.
Tout marchait impec sur mon poste et ce matin, O rage, j'ai un utilisateur qui me dit que ça ne marche pas.
je regarde le fichier et effectivement... j'ai ça :
"erreur de compilation : Projet ou bibliothèque introuvable"
et la macro s'arrête sur un truc tout simple comme :".Address(ReferenceStyle:=R1C1)" sur le R1C1.

Quelqu'un peut-il m'aiguiller ?

merci d'avance

Sub MAJ_ListeNivSup()

'macro : Met à jour la liste du périmètre supérieur en fonction du niveau sélectionné

Sheets("Menu").Select
ActiveSheet.Calculate
Niv = range("Menu_NivX").Value
Sheets("Liens").Select
ActiveSheet.Calculate
Select Case Niv
Case 5, 6
Adresse = "=Liens!" & range("Liens_Niv4_Liste").Address(ReferenceStyle:=R1C1)
Case 9
Adresse = "=Liens!" & range("Liens_Niv7_Liste").Address(ReferenceStyle:=R1C1)
End Select
ActiveWorkbook.Names.Add _
Name:="Liens_NivSupChoix_Liste", _
RefersToR1C1:=Adresse

Sheets("Menu").Select

End Sub

4 réponses

Messages postés
12186
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
15 octobre 2020
2 513
Bonjour,
Est il possible d'avoir toute la ligne, ou tout le code du bloc de lignes qui bloque votre macro?
Sub MAJ_ListeNivSup()

'macro : Met à jour la liste du périmètre supérieur en fonction du niveau sélectionné

Sheets("Menu").Select
ActiveSheet.Calculate
Niv = range("Menu_NivX").Value
Sheets("Liens").Select
ActiveSheet.Calculate
Select Case Niv
Case 5, 6
Adresse = "=Liens!" & range("Liens_Niv4_Liste").Address(ReferenceStyle:=R1C1)
Case 9
Adresse = "=Liens!" & range("Liens_Niv7_Liste").Address(ReferenceStyle:=R1C1)
End Select
ActiveWorkbook.Names.Add _
Name:="Liens_NivSupChoix_Liste", _
RefersToR1C1:=Adresse

Sheets("Menu").Select

End Sub
Messages postés
16303
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
20 novembre 2020
3 073
bonjour

au lieu de R1C1, ne seraitce pas plutôt xlR1C1 ?

extrait de l'aide Microsoft (F1)
Exemple
Cet exemple montre comment afficher quatre représentations différentes de la même adresse de cellule dans la feuille Sheet1. Les commentaires donnés dans l'exemple correspondent aux adresses affichées dans les messages.

Visual Basic pour Applications 
Set mc = Worksheets("Sheet1").Cells(1, 1)
MsgBox mc.Address()                              ' $A$1
MsgBox mc.Address(RowAbsolute:=False)            ' $A1
MsgBox mc.Address(ReferenceStyle:=xlR1C1)   

Messages postés
12186
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
15 octobre 2020
2 513
A priori, selon le site de crocrosoft (voir ce lien), la bonne syntaxe serait :
.Address(ReferenceStyle:=xlR1C1)

Donc ajoutez xl devant R1C1, et testez bien entendu...