Bonjour à tous en ce beau dimanche matin 😎
Il n'en demeure pas moins que je suis en train de me casser les dents sur une macro de mise en forme conditionnelle. 😕
J'ai tapé un bout de code (je ne suis pas sure que ca va marcher car je pense qu'il y a pleins d'erreurs...) et je bute sur la traduction en VBA de ce que j'ai ecris en bleue.
Le but de ce code est de faire une mise en forme conditionnelle automatique de la colonne BR de ma sheet ORYS.
Cette mise en forme se met en place (remplissage en rouge de la cellule en colonne BR) dès qu'il y a inegalité (arrondi à l'entier pres) entre les valeurs des cellules des colonnes AZ et BR sur une meme ligne...
Mon code brouillon ..
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Intersect(Target, Range("BR3:" & ("BR65536").End(xlUp)) Is Nothing Then
With Target
Select Case Application.RoundUp((Target.Value) ,0)
Case Is <> Application.RoundUp("Au montant de la cellule AZ sur la ligne correspondante " ,0)
.Interior.ColorIndex = 15
Case Is = Application.RoundUp(("montant de la cellule AZ sur la ligne correspondante "),0)
.Interior.ColorIndex = ne rien changer
End Select
End With
End If
End Sub
Si cela inspire quelqu'un , je suis preneuse de toute aide 😛
Merci 😱
Malka
Il n'en demeure pas moins que je suis en train de me casser les dents sur une macro de mise en forme conditionnelle. 😕
J'ai tapé un bout de code (je ne suis pas sure que ca va marcher car je pense qu'il y a pleins d'erreurs...) et je bute sur la traduction en VBA de ce que j'ai ecris en bleue.
Le but de ce code est de faire une mise en forme conditionnelle automatique de la colonne BR de ma sheet ORYS.
Cette mise en forme se met en place (remplissage en rouge de la cellule en colonne BR) dès qu'il y a inegalité (arrondi à l'entier pres) entre les valeurs des cellules des colonnes AZ et BR sur une meme ligne...
Mon code brouillon ..
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Intersect(Target, Range("BR3:" & ("BR65536").End(xlUp)) Is Nothing Then
With Target
Select Case Application.RoundUp((Target.Value) ,0)
Case Is <> Application.RoundUp("Au montant de la cellule AZ sur la ligne correspondante " ,0)
.Interior.ColorIndex = 15
Case Is = Application.RoundUp(("montant de la cellule AZ sur la ligne correspondante "),0)
.Interior.ColorIndex = ne rien changer
End Select
End With
End If
End Sub
Si cela inspire quelqu'un , je suis preneuse de toute aide 😛
Merci 😱
Malka