Discussion :

[Longines84]

Bonjour

Je vous soumets un problème que je n'arrive pas à résoudre.
Dans mon code j'attribue un format conditionnel à une cellule Cells(y,x) suivant la valeur contenue dans Cells(y, x - nombreObjet - 2).
Je compare 2 tableaux qui peuvent avoir des dimensions variables et dont les valeurs peuvent changer.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 For y = numeroLigne + 1 To numeroLigne + nombreElement
 
        For x = numeroColonne + nombreObjet + 2 To numeroColonne + 2 * nombreObjet + 1
 
            Cells(y, x).Select
            Selection.FormatConditions.Delete
 
            Set oRange = Cells(y, x)
 
            Set oFc = oRange.FormatConditions.Add(xlCellValue, xlNotEqual, Cells(y, x - nombreObjet - 2).Value)
            oFc.Interior.ColorIndex = 15
            oFc.Font.ColorIndex = 3
            oFc.Font.Bold = True
 
        Next x
 
    Next y

Cependant, j'aimerais que cette valeur soit dynamique.
C'est à dire que si la valeur change dans la Cells(y, x - nombreObjet - 2) la valeur du format conditionnel change.
Voilà j'espère avoir été assez clair dans les explications.
Merci d'avance pour votre aide.

[ptitcool]

Salut Longines,

Si tu veux qu'une modification soit faite si la valeur d'une cellule change, une des solutions c'est d'utiliser l'évènement Worksheet_Change dans la feuille où se trouve tes tableaux.
Si j'ai bien compris ton problème, il faut que tu ailles dans l'éditeur vba, tu vas dans le code de la feuille et tu mets ton code. Je pense que ça devrait ressembler à ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub Worksheet_Change(ByVal Target As Range)
    dim ligne as integer
    dim colonne as integer
 
    ligne = target.row
    colonne = traget.column + nombreObjet + 2
    'Modifier le format conditionnel de la cellule Cells(ligne, colonne)
End Sub

Ca correspond à ce que tu voulais ?