Discussion :

[Leodams]

Bonjour,

Je souhaiterais connaître le code qui permettra de changer la couleur d'une cellule si la valeur est modifiée.
Cela me permettra de voir les corrections appliquées lors de l'exécution de la macro suivante:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Vérif_datacol()
 
 
Dim cell As Range
 
For Each cell In Sheets(" NEO T2.07 SCDM").Range("b1:b" & Sheets(" NEO T2.07 SCDM").Range("b65000").End(xlUp).Row)
 
Set c = Sheets("déploiement").Range("c:c").Find(cell, LookIn:=xlValues, LookAt:=xlWhole)
 If Not c Is Nothing Then
 Sheets("NEO T2.07 SCDM").Cells(cell.Row, 18) = Sheets("Status Report").Cells(c.Row, 10)
End If
Next cell
End Sub

[gFZT82]

Bonjour,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Sub Vérif_datacol()
Dim cell As Range
    For Each cell In Sheets(" NEO T2.07 SCDM").Range("B1:B" & Sheets(" NEO T2.07 SCDM").Range("b65000").End(xlUp).Row)
        Set c = Sheets("déploiement").Range("C:C").Find(cell, LookIn:=xlValues, LookAt:=xlWhole)
        If Not c Is Nothing Then
            Sheets("NEO T2.07 SCDM").Cells(cell.Row, 18) = Sheets("Status Report").Cells(c.Row, 10)
            Sheets("NEO T2.07 SCDM").Cells(cell.Row, 18).Interior.ColorIndex = 3 'Couleur de remplissage rouge
        End If
    Next cell
End Sub

Cordialement.

[Leodams]

Merci à toi pour cette réponse rapide.
Cependant la demande est de mettre en couleur seulement les cellules modifiées. Là, le code permet de mettre en rouge tous les valeurs trouvées.

La difficulté est que je ne peux pas attribuer une valeur précise pour le changement de couleur.
Je creuse mais c'est compliqué.

[gFZT82]

En l’état, ton programme effectue une recherche de valeur puis, si la valeur est trouvée, il remplace systématiquement la valeur de la cellule cible par la valeur de la cellule source (même si c’est par la même valeur).

Si tu souhaites affecter une couleur de remplissage aux cellules cibles qui ont changé de valeur, il suffit que tu fasses une comparaison avant de lui affecter la valeur de la cellule source.

Dis-moi si j’ai bien compris.

Cordialement.

[Leodams]

oui c'est tout fait ça . Il est vrai que le but est de comparer les colonnes entre deux feuille Excel et m'indiquer les valeurs différentes par une couleurs.

dans la deuxième étape, je pourrai appliquer le code que j'ai mentionné plus haut.

[gFZT82]

Tu peux essayer d'appliquer ce code (non testé)

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
18
Sub Vérif_datacol()
Dim cell As Range, C As Range
    With Sheets("NEO T2.07 SCDM")
    For Each cell In .Range("B1:B" & .Range("B65000").End(xlUp).Row)
        Set C = Sheets("déploiement").Range("C:C").Find(cell, LookIn:=xlValues, LookAt:=xlWhole)
        If Not C Is Nothing Then
            'On compare la valeur correspondant à la valeur trouvée avec celle de la cellule cible
            'Si les valeurs sont différentes
            If .Cells(cell.Row, 18) <> Sheets("Status Report").Cells(C.Row, 10) Then
                'On remplace la caleur cible
                .Cells(cell.Row, 18) = Sheets("Status Report").Cells(C.Row, 10)
                'On colorie la cellule cible en rouge
                .Cells(cell.Row, 18).Interior.ColorIndex = 3
            End If
        End If
    Next cell
    End With
End Sub

Cordialement.