Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Changement de couleur de la cellule active. Bloquage du code VBA

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

rounil09

XLDnaute Occasionnel
Bonjour le forum,

Le code suivant change la couleur de la cellule active par clic, la cellule précédente revenant à sa couleur d'origine.

Il ne fonctionne pas dans mon application : j'ai un message 'Erreur d'exécution 94 - Utilisation incorrecte de Null'
Il bloque sur la ligne : OldColor = Target.Interior.ColorIndex

Quelqu'un pourrait-il m'en donner la raison ?

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, _
ByVal Target As Excel.Range)

Static OldCell As Range
Static OldColor As Integer

If Not OldCell Is Nothing Then
OldCell.Interior.ColorIndex = OldColor
End If

OldColor = Target.Interior.ColorIndex
Target.Interior.ColorIndex = 36
Set OldCell = Target

End Sub
 
Re : Changement de couleur de la cellule active. Bloquage du code VBA

bonjour le forum,y a t-il une possibilité de faire fonctionner ce code dans une boucle for
et avec conditions,exemple
if combobox1.text="janvier " then
for i= 1 to 10
les cellules de la plage[a1:a10] sont les concernées par le code
next i
else
if combobox1.text="février" then
les cellules de la plage[b1:b10] sont les concernées par le code
next i
end if
end if
aidez-moi et merci
 
Re : Changement de couleur de la cellule active. Bloquage du code VBA

bonjour Mr Pierre Jean
Comment faire pour l'enregestrer en xlsm parceque je suis debutant dans ce domain
 
Re : Changement de couleur de la cellule active. Bloquage du code VBA

Salut à tous,

wahid, tu dois cliquer sur le menu office (en haut à gauche) puis sur "enregistrer sous" et enfin sur "classeur Excel prenant en charge les macros".
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
14
Affichages
484
Réponses
4
Affichages
521
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…