Ne pas exécuter le code si la couleur de police est grise

  • 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 !

isa44

XLDnaute Occasionnel
Bonsoir , comment faire pour ne pas exécuter le code si la couleur de police est grise à 50% de la cellule d'à coté (-1) et si cette cellule (-1) est vide ?

le code en question :

Code:
Dim Intérieur As Integer, Couleur As Long, Référence As Integer, i As Integer

If Target.Count > 1 Then Exit Sub

If Not Application.Intersect(Target, Range("C6:C27,H6:H41,M6:M37,R6:R39")) Is Nothing Then

    Référence = Target
   
    With Sheets("PARC")
        For i = 7 To .Range("C65000").End(xlUp).Row
            If .Cells(i, 3) = Référence Then
                GoTo Etiquette
            End If
           
        Next
Etiquette:
    Intérieur = .Cells(i, 3).Interior.Pattern
    Couleur = .Cells(i, 3).Interior.Color
    End With
    Target.Interior.Pattern = Intérieur
    Target.Interior.Color = Couleur
End If
 
Re : Ne pas exécuter le code si la couleur de police est grise

bonsoir,

( si cette cellule (-1) est vide ?)
-1 de la colonne ou de la ligne ?

'si c'est la colonne c'est Target.Offset(0,-1)
If Target.Offset(0, -1).Font.ColorIndex = 16 And Target.Offset(0, -1) = "" Then Exit Sub ' (16=gris 50%)

'si c'est la ligne c'est Target.Offset(-1,0)
If Target.Offset(-1,0).Font.ColorIndex = 16 And Target.Offset(-1,0) = "" Then Exit Sub
 
Dernière édition:
- 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
57
Affichages
5 K
Réponses
3
Affichages
563
Retour