Discussion :

[Walt51]

Bonjour,

J'utilise la macro ci dessous sur mon poste sans problème, mais rencontre une Erreur de compilation "projet ou bibliothèque introuvable" sur les autres postes.
L'erreur est au niveau de [Etat]
Etat correspondant au nom des cellules nommées.

Code: (permet de colorer les cellules de 1 à 15 suivant la couleur liée à la cellule 15)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub Worksheet_Change(ByVal Target As Range)
 
  If Target.Column = 15 Then
     On Error Resume Next
    Cells(Target.Row, 1).Resize(, 15).Interior.ColorIndex = [Etat].Find(Target, LookAt:=xlWhole).Interior.ColorIndex
 
  End If
End Sub

Je pense que c'est un problème de déclaration de variables????
Pouvez-vous m'aider?
Merci.

[Marc-L]

Bonjour, bonjour

merci de mettre le code entre balises via l'icône dédiée # ‼


Le nom Etat apparait-il dans la liste des noms définis sur les autres ordinateurs ?

Si oui, remplacer alors [Etat] par Range("Etat") …

[Walt51]

Bonjour,

Le fichier Excel en question est disponible sur le réseau, mes collègues utilisent donc le même fichier que moi. Par conséquent les cellules nommées "Etat" sont les autres postes.
J'ai essayé le code ci dessous.
Plus d"erreur mais la macro ne fonctionne plus, pas de changement des couleurs....

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub Worksheet_Change(ByVal Target As Range)
 
 
 
  If Target.Column = 15 Then
     On Error Resume Next
 
    Cells(Target.Row, 1).Resize(, 15).Interior.ColorIndex = Range("Etat").Find(Target, LookAt:=xlWhole).Interior.ColorIndex
  End If
End Sub

[Marc-L]

Déjà avec la présence de la ligne n°4, on ne peut pas savoir s'il y a une erreur, à supprimer donc !

Edit : la ligne n°7 dans le second code maintenant entre balises …

[Walt51]

J'ai essayé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
 Private Sub Worksheet_Change(ByVal Target As Range)
 
Dim Etat As String
Etat = Range("etat").Value
 
  If Target.Column = 15 Then
     'On Error Resume Next
    'Cells(Target.Row, 1).Resize(, 15).Interior.ColorIndex = [Etat].Find(Target, LookAt:=xlWhole).Interior.ColorIndex
    Cells(Target.Row, 1).Resize(, 15).Interior.ColorIndex = Etat.Find(Target, LookAt:=xlWhole).Interior.ColorIndex
  End If
End Sub

Mais cela provoque Erreur de compilation, qualificateur incorrect. Etat est surligné.

[Marc-L]

Etat est surligné.

Bien, mais c'est utile aussi de préciser le numéro de la ligne ‼

Je suppose que c'est la n° 10 et dans ce cas je dirais : normal ! Grossière boulette ‼

En fait c'était ma première réponse mais je l'ai effacée croyant faire fausse route …


Tout d'abord, la base : à quoi la méthode Find doit-elle être rattachée ?

Consulter son aide et son exemple (cela m'évite un roman et comme c'est bien expliqué et c'est la base)
car certainement pas à une valeur …


Ma première idée est les autres postes ne sont pas en cause, le code ne fonctionnant pas dès l'origine ‼

Ce serait bien aussi d'expliquer littéralement ce qu'est censé effectuer cette procédure …