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

mise en forme conditionnelle

Créer une discussion

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 !

S'inscrire
S

sfconstant

XLDnaute Occasionnel
Bonjour à tous,
Faisant mes premier pas en VBA, j'aimerai faire une mise en forme conditionnelle de 3 cellules côte à côte suivant la valeur de la première formule.
J'ai essayé d'écrire la macro suivante mais ça ne fonctione pas !! Pourquoi ?

Sub Macro2()
'
' Macro2 Macro
' Macro enregistrée le 02/02/2008

Dim x As Integer

ActiveCell.Offset(0, 0) = x

If x = 10 Then
ActiveCell.Offset(0, 0).Select
ActiveCell.Offset(0, 1).Select
ActiveCell.Offset(0, 2).Select

Interior.ColorIndex = 36

If x = 8 Then
ActiveCell.Offset(0, 0).Select
ActiveCell.Offset(0, 1).Select
ActiveCell.Offset(0, 2).Select

Interior.ColorIndex = 35

If x = 2 Then
ActiveCell.Offset(0, 0).Select
ActiveCell.Offset(0, 1).Select
ActiveCell.Offset(0, 2).Select

Interior.ColorIndex = 40

End If
End If
End If

End Sub

Merci pour le coup de main.
Bonne soirée à tous.
 
Trier par date Trier par votes
Re : mise en forme conditionnelle

bonjour à tous

Code: 
If x = 10 Then
     with range(ActiveCell.address & ":" & activecell.offset(0,2).address)
     .Interior.ColorIndex = 36
     exit sub
end if
If x = 8 Then
     with range(ActiveCell.address & ":" & activecell.offset(0,2).address)
     .Interior.ColorIndex = 35
     exit sub
end if
If x = 2 Then
     with range(ActiveCell.address & ":" & activecell.offset(0,2).address)
     .Interior.ColorIndex = 40
     exit sub
end if
 
Vote positif 0 Vote négatif
Re : mise en forme conditionnelle

re:

il ne faut pas confondre cellule active et cellule cible (Target)

Quand tu fait une saisie dans une cellule et que tu fais Entrée ou Tab, ta cellule active devient la nouvelle cellule, et das la nouvelle celllule, plus de donné à tester

un fichier joint, le code est dans module Feuil1 (Interruption d'evennement sur saisie de cellule)
 

Pièces jointes

Vote positif 0 Vote négatif
Re : mise en forme conditionnelle


Merci ça marche bien
Je vais encore me renseigner sur la cellule cible car j'ai un peu de mal avec cette notion
Merci beaucoup pour le code (que je vais étudier)
Bonne soirée
A +
sfconstant
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

  • Question Question
XL 2016 intégrer une macro sur les nouvelles feuilles crées
Réponses
6
Affichages
235
pascal21
U
  • Question Question
Autres [RÉSOLU] macro à modifier
Réponses
1
Affichages
617
un internaute
U
N
  • Question Question
XL 2013 Utilisé deux CommandButton_Click dans la même feuil
Réponses
4
Affichages
430
patricktoulon
  • Question Question
Autres résultats differents entre formule et macro (excel 2007)
2
Réponses
18
Affichages
504
dysorthographie
N
  • Question Question
XL 2010 fichier généré par IA ne fonctionne pas ( RESOLU )
2
Réponses
16
Affichages
894
n_turf
N
  • Résolu(e)
XL 2019 colorer les différents aliments avec un code VB pour macro de ce genre ?
2
Réponses
16
Affichages
618
anthoYS
C
  • Résolu(e)
XL 2021 Macro pour mise en page
Réponses
11
Affichages
889
candido57
C
C
  • Résolu(e)
XL 2021 Mise en forme MsgBox
2 3
Réponses
43
Affichages
1 K
Constantin
C
A
  • Question Question
VBA qui fonctionnait avant, mais ne fonctionne plus avec le 64 bits
Réponses
2
Affichages
745
patricktoulon
  • Question Question
Microsoft 365 VBA : copier les adresses
Réponses
7
Affichages
1 K
VBA_dev_Anne_Marie
P
  • Résolu(e)
Microsoft 365 Dateur Patricktoulon
2 3
Réponses
41
Affichages
1 K
Piment
P
  • Question Question
XL 2016 Gestion des erreurs avec la fonction RechercheV
Réponses
5
Affichages
418
KTM
S
  • Résolu(e)
XL 2019 Problème de remplissage cellule en vba
Réponses
5
Affichages
606
snoopy07
S
A
  • Question Question
XL 2010 Filtrer un Combobox en VBA excel
2 3
Réponses
43
Affichages
3 K
Dranreb
A
  • Question Question
XL 2016 Mise en forme conditionnelle et valeur égale à 0...
Réponses
5
Affichages
468
sylvanu
  • Question Question
Microsoft 365 datepicker dynamique intra userform ou dans feuille 2 versions(frame dynamique)(toute version d'excel )
6 7 8
Réponses
105
Affichages
5 K
Usine à gaz
F
  • Question Question
Microsoft 365 Problème mémoire insuffisante
Réponses
5
Affichages
910
TooFatBoy
J
  • Question Question
Microsoft 365 Probléme VBA
Réponses
8
Affichages
588
jalaba
J
F
  • Question Question
XL 2021 probleme dans la macro
Réponses
4
Affichages
733
kiki29
L
  • Question Question
XL 2021 RechercheX et Mise en forme conditionnelle
2
Réponses
17
Affichages
402
Lucie85
L
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…