Prob avec macro private (color cell)

[stefVB_Excel]

Bonjour,

suite au post d'hier, j'ai trouvé qque chose pour colorer mes cell.
lors de copier/coller j'ai un message d'erreur VBA, cela fonctionne quand même
j'ai joint mon fichier pour que vous compreniez mieux de quoi il retourne.

soyez indulgeant pour ce qui peut être une usine à gaz!!!


merci par avance


stef

 

[Compte Supprimé 979]

Re : Prob avec macro private (color cell)

Salut Stef,

Il suffit simplement que tu déplace ta sub dans ThisWorkbook,
en mettant le code suivant :

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
  ' Sort de la procédure si la feuille n'est pas le planning
  If Sh.Name <> "planning" Then Exit Sub
  ' Sinon on applique les couleurs selon
 If Not Intersect([plan], Target) Is Nothing Then
   For i = 1 To [couleur].Count
     lg = Len(sheets("BD").Range("couleur")(i))
     If UCase(Left(Target.Value, lg)) = UCase(sheets("BD").Range("couleur")(i)) Then
       temp = sheets("BD").Range("couleur")(i).Interior.ColorIndex
       Target.Interior.ColorIndex = temp
        Exit For
     End If
   Next i
  End If
End Sub

Comme ça plus de problème, lors de la copie de la feuille dans un autre classeur

A+

 

[stefVB_Excel]

Re : Prob avec macro private (color cell)

Bruno salut,

extra, il ne me reste plus qu'a resoudre mon problème de copier/coller et ce sera parfait

merci en tout cas

stef

 

[James007]

Re : Prob avec macro private (color cell)

Salut Steph,

Dans un premier temps, pour éviter les erreurs, tu peux ajouter
On Error Resume Next
juste après
lg = Len(sheets("BD").Range("couleur")(i))

A +