Format conditionnel en VBA pour un tableau

[ascal44]

Bonjour ,
je voudrais appliquer des formats conditionnels pour les cellules de A à D d 'un tableau si en cellule A il y à une valeure et ce jusqu'à la dernière ligne non définie du tableau.

Voici mon début de code:

Private Sub Worksheet_Change(ByVal Target As Range)

 '
    
      .Borders.LineStyle = xlContinuous
      '.Interior.ColorIndex = 43
      .HorizontalAlignment = xlLeft 'alignement texte
      .VerticalAlignment = xlCenter
      .Locked = False 'protection cellule
      .FormulaHidden = False
      
      .FormatConditions.Delete
      'MFC 1ère condition
      .FormatConditions.Add Type:=xlExpression, Formula1:="=CELLULE(""row"")=LIGNE()"
      With .FormatConditions(1)
        .Font.Bold = True
        .Font.Italic = False
        .Font.ColorIndex = 3
        .Interior.ColorIndex = 6
      End With
 
      'MFC 2ème condition
      .FormatConditions.Add Type:=xlExpression, Formula1:="=MOD(LIGNE();2)=0"
      .FormatConditions(2).Interior.ColorIndex = 15
  
      'MFC 3ème condition
      .FormatConditions.Add Type:=xlExpression, Formula1:="=MOD(LIGNE();1)=0"
      .FormatConditions(3).Interior.ColorIndex = xlAutomatic
    End With
    
 
End Sub

Merci pour votre aide

 

[gilbert_RGI]

Re : Format conditionnel en VBA pour un tableau

Bonjour

il y a un petit problème dans ce code

il faut lui indiquer pour quelle cellule dans le code suivant c'est par la cellule active

Private Sub Worksheet_Change(ByVal Target As Range)
 
 '
   With ActiveCell
      .Borders.LineStyle = xlContinuous
       '.Interior.ColorIndex = 43
       .HorizontalAlignment = xlLeft 'alignement texte
       .VerticalAlignment = xlCenter
       .Locked = False 'protection cellule
       .FormulaHidden = False
       
      .FormatConditions.Delete
       'MFC 1ère condition
       .FormatConditions.Add Type:=xlExpression, Formula1:="=CELLULE(""row"")=LIGNE()"
       With .FormatConditions(1)
         .Font.Bold = True
         .Font.Italic = False
         .Font.ColorIndex = 3
         .Interior.ColorIndex = 6
       End With
  
       'MFC 2ème condition
       .FormatConditions.Add Type:=xlExpression, Formula1:="=MOD(LIGNE();2)=0"
       .FormatConditions(2).Interior.ColorIndex = 15
   
      'MFC 3ème condition
       .FormatConditions.Add Type:=xlExpression, Formula1:="=MOD(LIGNE();1)=0"
       .FormatConditions(3).Interior.ColorIndex = xlAutomatic
     End With
     
 
 End Sub

 

[ascal44]

Re : Format conditionnel en VBA pour un tableau

Oui , peut on remplacer With ActiveCell par un code qui spécifie la dernière ligne du tableau pour les cellules A.

En fait je veux appliquer le format conditionnel sur les cellules de A à D et sur la dernière ligne du tableau