Limiter le format conditionnel de A à P

[isa44]

Bonjour , je voudrais que ce code limite le format conditionnel aux colonne de A à P.

'MFC 1ère condition
  .FormatConditions.Add Type:=xlExpression, Formula1[COLOR="red"]:="=CELLULE(""row"")=LIGNE()"[/COLOR]  With .FormatConditions(1)
    .Font.Bold = True
    .Font.Italic = False
    .Font.ColorIndex = 3
    .Interior.ColorIndex = 6
  End With

Est ce possible de modifier cela ?

 

[Robert]

Re : Limiter le format conditionnel de A à P

Bonjour Isa, bonsour le forum,

Ta macro devrai commencer comme ça pour se s'appliquer qu'aux colonnes A à P :

With ActiveSheet.Columns("A:P")
    .FormatConditions.Delete

 

[isa44]

Re : Limiter le format conditionnel de A à P

En fait ,je cherche une formule pour que le format conditionnel s'applique aux lignes de A à P quand une cellule ( de A à P) pour cette ligne est sélectionnée

 

[Pierrot93]

Re : Limiter le format conditionnel de A à P

Bonjour isa, Robert🙂

si tu utilises une procédure événementielle :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Or Target.Column > 16 Then Exit Sub

bon après midi
@+

 

[Pierrot93]

Re : Limiter le format conditionnel de A à P

Re,

A noter dans le post précedent j'ai utiliser l'événement "change", pour détècter les sélections utiliser l"événement "SelectionChange" :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

 

[isa44]

Re : Limiter le format conditionnel de A à P

Cela ne fonctionne pas ; comment modifier cette MFC pour qu'elle s'arrête à la colonne P ?

=CELLULE(""row"")=LIGNE()

 

[Tibo]

Re : Limiter le format conditionnel de A à P

Bonjour isa, salut Pierrot 🙂,

Un essai avec cette formule pour la MFC :

=ET(COLONNE()<=16;CELLULE("row")=LIGNE())

@+