Microsoft 365 modif visual B

[MICHAEL]

bonjour,
Target.EntireRow.Interior.ColorIndex = 7
je souhaiterai appliquer cette mise en forme uniquement de la ligne 5 à la ligne 120
si quelqu'un peut m'aider........

 

[ChTi160]

Bonjour MICHAEL
peut être ainsi(Non testé pas de Fichier)

With Target
  If .Row >=5 and .Row <=120
        .EntireRow.Interior.ColorIndex = 7
  End If
End With

Bonne Journée
Jean marie

 

[MICHAEL]

Bonjour MICHAEL
peut être ainsi(Non testé pas de Fichier)

With Target
  If .Row >=5 and .Row <=120
        .EntireRow.Interior.ColorIndex = 7
  End If
End With

Bonne Journée
Jean marie

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = 0

Target.EntireRow.Interior.ColorIndex = 7

End Sub
voila le code de ma feuille
je ne sais pas integrer le tien...

 

[ChTi160]

Re
Voir ou placer le code

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
     Cells.Interior.ColorIndex = 0
'Ici Le Code
With Target
  If .Row >=5 And .Row <=120
        .EntireRow.Interior.ColorIndex = 7
  End If
End With
End Sub

Jean marie

 

[MICHAEL]

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Cells.Interior.ColorIndex = 0 'Ici Le Code With Target If .Row >=5 And .Row <=120 .EntireRow.Interior.ColorIndex = 7 End If End With End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = 0
With Target
If .Row >=5 And .Row <=120
.EntireRow.Interior.ColorIndex = 7
End If
End With
End Sub
j'ai copié ceci mais cela ne fonctionne pas
il semble qu'il manque un attendu.....

 

[ChTi160]

Effectivement ! il manque le "Then" de If ..... Then

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = 0
With Target
If .Row >=5 And .Row <=120 Then '<---- Ici
   .EntireRow.Interior.ColorIndex = 7
End If
End With
End Sub

Jean marie

 

[MICHAEL]

il manquait le then
merci pour ton aide
bon dimanche
cordialement