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

Plus de 3 mise en forme conditionnelle

  • Initiateur de la discussion Initiateur de la discussion isa44
  • Date de début Date de début

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 !

Re : Plus de 3 mise en forme conditionnelle

Re,

Dans le code, au lieu de :

Set C = .Find(Cells(i, 2), lookin:=xlValues)

Ecrire :

Set C = .Find(Cells(i, 2), Lookat:=xlWhole)

Pour éviter les bugs des nombres absents dans la feuille "etat"

Cordialement

Bernard
 
Re : Plus de 3 mise en forme conditionnelle

Bonsoir,

En réalité rien n’apparaît sur la feuille car tout vient d’une macro évènementielle :
Code:
Option Explicit
Dim CelluleA As Range, CelluleD As Range
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Count > 1 Then Exit Sub 'permet le changement d'une plage
  If Not Application.Intersect(Target, Range("B4:B12")) Is Nothing Then
    With Sheets("etat")
      For Each CelluleD In .Range("C7:O36")
        If Target.Value = CelluleD Then CelluleD.Copy Target
      Next
    End With
  End If
End Sub

qui fonctionne de la façon suivante :

Un click sur une cellule de la plage B4:B12 provoque la recherche de son contenu dans la plage C7:O36 de la seconde feuille.
S’il est trouvé, l’expression, CelluleD.Copy Target, recopie et le contenu et les formats de la seconde cellule dans la première.

Pour voir cette macro, il suffit de taper sur Alt et F11(en même temps). L’éditeur VB s’ouvre et un doubleclick sur le nom de la feuille, à gauche, permet de lire, à droite, les lignes ci-dessus.

Il faut donc faire attention aux plages désirées.
 
- 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
2
Affichages
240
Réponses
5
Affichages
665
W
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…