Erreur lors du changement de couleur d'une cellule

Fermé

Bob0876 Messages postés 40 Date d'inscription mardi 16 septembre 2014 Statut Membre Dernière intervention 4 décembre 2014 - Modifié par pijaku le 18/09/2014 à 10:36
Bob0876 Messages postés 40 Date d'inscription mardi 16 septembre 2014 Statut Membre Dernière intervention 4 décembre 2014 - 16 sept. 2014 à 21:51

Bonjour,

je recoit une erreur('9' : l'indice n'apartient pas a la selection) lorsque j'execute le programme .

Private Sub Workbook_Open()

Dim pass As String

ThisWorkbook.Worksheets("Donées").Range("A6:A7").font.Color = 3

pass = ActiveSheet.Cells(1, 7).Value

protege

ActiveSheet.Shapes("bouton").Visible = False

motdepasse.Show

couleur

End Sub

Merci

A voir également:

Erreur lors du changement de couleur d'une cellule
Erreur 0x80070643 - Guide
Excel cellule couleur si condition texte - Guide
Piratage facebook changer mot de passe - Guide
Aller à la ligne dans une cellule excel - Guide
Somme si couleur - Guide

2 réponses

Réponse 1 / 2

ccm81 Messages postés 10851 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 16 avril 2024 2 404
Modifié par pijaku le 18/09/2014 à 10:37

Bonjour

Essaies comme ceci

Sheets("Donées").Range("A6:A7").Font.ColorIndex = 3

Cdlmnt

Réponse 2 / 2

Bob0876 Messages postés 40 Date d'inscription mardi 16 septembre 2014 Statut Membre Dernière intervention 4 décembre 2014
Modifié par pijaku le 18/09/2014 à 10:37

Bonjour,

merci mais j'ai trouver l'erreur. Ces que ma feuille est protégé par un mot de pass.

cependant, j'ai un autre problème. j'aimerais deprotege ma feuille sans qui me demande d'entrée le mot de passe. J'ai fais ceci :

Private Sub Workbook_Open()

Dim pass As String

pass = Worksheets("Données").Cells(1, 7).Value

ActiveSheet.Unprotect

Worksheets("Données").Unprotect Password:=pass

Worksheets("Données").Range("F1:G1").Interior.ColorIndex = 2

Worksheets("Données").Protect Password:=pass

ActiveSheet.Protect

protege

ActiveSheet.Shapes("bouton").Visible = False

motdepasse.Show

bouton

End Sub

Mais il me demande quand meme le mot de passe!!!

Discussions similaires

Instagram "Désolé, une erreur s'est produite"

Si couleur, alors...

Erreur de lecture sur iptv smarters

Erreur vidéo inconnue sur le Freebox Player

couleur personnage

Discussions similaires

Newsletters