> Tous les forums > Forum Bureautique
 colorer en jaune cell actve dans feuille verrouilleeSujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
didiercoca
  Posté le 24/09/2015 @ 07:19 
Aller en bas de la page 
Petit astucien

bonjour a tous

au bureau je travaille avec excel 2010 en anglais et je cherche a colorer en jaune la cellule active d une feuille dans un fichier excel comprenant 2 autres feuilles

j ai fouille un peu partout j ai trouve des possibilites d inscrire un code mais j avais un soucis ... c est qu une cellule sur 2 (+-) est verrouillee pour eviter les modifications

cela empechait la coloration, la premiere celule ca focntionnait impecc mais lorsque je descendais sur la cellule libre suivante j avais un message d erreur

j ai supprime ce code , je voulais tout recommencer a zero ... mais j ai besoin de vos lumieres lol...

donc je mets un fichier ci joint

ce que je desire c est que la cellule active dans l onglet CHF se colore en jaune mais que cette couleur ne se sauvgarde pas lorsque l on ferme le document....

http://www.cjoint.com/c/EIyfsoAW06e

merci d avance et bonne journee a tous

Publicité
gilbert_rgi
 Posté le 24/09/2015 à 09:37 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Bonjour,

je ne vois ni feuille ni cellule verrouillée

seulement des images représentant des cellules (picture 1)

didiercoca
 Posté le 24/09/2015 à 09:54 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

bizarre je vois pas quoi faire

qd je teste je tombe bien sur mon fichier

didiercoca
 Posté le 24/09/2015 à 10:04 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

voici un nouveau lien....

http://www.cjoint.com/c/EIyidMJ6iMe

peut etre... mieux?

gilbert_rgi
 Posté le 24/09/2015 à 10:08 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

ou faut il agir ?

didiercoca
 Posté le 24/09/2015 à 10:15 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

ahhhh ok desole

j ai oublie de rebloquer les cellules

Alt T P P

il faut agir sur sur le cellules de la colonne H qui sont encadrees... (uniquement celles qui sont encadrees)

revoici un ci joint avec le fichier bloqué

http://www.cjoint.com/c/EIyipDrjFRe

desole....et merci

gilbert_rgi
 Posté le 24/09/2015 à 10:43 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

est-ce çà que vous désirez ?

didiercoca
 Posté le 24/09/2015 à 10:56 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

ca ressemble tres fort a cela mais j aimerai que toutes les cellules dispo se colorent en jaune lorsqu elle sont actives et se reblanchissent qd on les quittes avec la souris ou avec les fleches du clavier...

les cellules actives sont :

h2

h4

h6

h8

h12

h14

h16

h18

h20

merci.... deja....

gilbert_rgi
 Posté le 24/09/2015 à 11:08 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

comme ceci?

a mettre dans le module de la feuille

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column <> 8 Then Exit Sub
ActiveSheet.Unprotect
For i = 2 To 20
Cells(i, 8).Interior.ColorIndex = 0
Next
ActiveCell.Interior.ColorIndex = 6
ActiveSheet.Protect
ActiveSheet.Calculate
End Sub

à mettre dans le module du thisworkbook

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveSheet.Unprotect
With Sheets(2)
For i = 2 To 20
Cells(i, 8).Interior.ColorIndex = 0
Next
End With
ActiveSheet.Protect
End Sub

didiercoca
 Posté le 24/09/2015 à 12:04 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

impeccable ... merci....

mais avec quoi tu fais des print screen filmés???

gilbert_rgi
 Posté le 24/09/2015 à 12:31 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

avec

licecap pour les gif animés et pointofix pour les flèches

ici

et

dlxpat
 Posté le 25/09/2015 à 17:07 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Superbe question et superbe réponse ! Mais peut-on par exemple faire de même pour les colonnes H et I ou H et K (soit deux colonnes collées ou deux colonnes séparées. Merci d'avance

gilbert_rgi
 Posté le 25/09/2015 à 18:14 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

oui c'est faisable

voilà pour H&I

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column <> 8 Then Exit Sub
ActiveSheet.Unprotect
For i = 2 To 20
Cells(i, 8).Interior.ColorIndex = 0
Cells(i, 9).Interior.ColorIndex = 0
Next
ActiveCell.Interior.ColorIndex = 6
ActiveCell.Offset(0, 1).Interior.ColorIndex = 6
ActiveSheet.Protect
ActiveSheet.Calculate
End Sub

Pour H & K

modifier le 9 par 11

et dans le offset remplacer 1 par 3

dlxpat
 Posté le 25/09/2015 à 18:39 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Superbe et merci ! j'ai tourné et retourné sans trouver. Mais j'asseyais au niveau du <> 8. Merci beaucoup

gilbert_rgi
 Posté le 25/09/2015 à 20:00 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

pour H&I

on aurait pu mettre

range(cells(i,8);cells(i,9)).interior.colorindex = 0

mais bon !!!!!

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
Les soldes d'hiver 2025
SOLDES -1 -%
Boîtier PC mini tour Aerocool Hexform G v2 à 29,99 €
29,99 € 50 € -40%
@Cdiscount
SSD Crucial P3 Plus 4 To (NVMe, PCIe 4.0, M.2, 5000 Mo/s) à 234,99 €
234,99 € 275 € -15%
@Cdiscount
Ecran 24.5 pouces Titan Army P2510HS (FHD, IPS, 300 Hz, 1 ms, HDR10) à 169,99 €
169,99 € 199 € -15%
@Geekbuying
Lot de 2 étagères de rangement à 5 niveaux réglables (40 x 90 x 180 cm) à 49,99 €
49,99 € 80 € -38%
@Cdiscount
Ecran 23,6 pouces Acer KG241Q (1920x1080, 1ms, FreeSync 180 Hz) à 69,99 €
69,99 € 120 € -42%
@Leclerc

Sujets relatifs
regrouper feuilles dans une feuille
2 pages par feuille dans macro excel
Excel 2007 Copier/Coller d’une feuille à l’autre Dans un même classeur.
Garder la forme d'un texte répété dans une autre feuille
Excel 2007 extraction feuille 1 dans feuille 2 avec mise en forme
Bouton macro dans feuille Excel 2010
Copier feuille 1 dans feuilles 2 et 3 avec mise à jour
Calculette dans une feuille
Renvoi à la ligne dans une cell suivant caractère
Excel 2007 insérer image dans feuille technique
Plus de sujets relatifs à colorer en jaune cell actve dans feuille verrouillee
 > Tous les forums > Forum Bureautique