Discussion :

[paqmarc]

Bonjour,
J'ai 2 fichiers distinct que je charge en cellule A et B



Je tente de faire une macro qui copie le résultat (5 dans ce cas-ci) qui sont pas en double dans la colonne A vers la colonne C.
mais il me manque quelque chose. Je n'arrive pas à faire un IF sur le résultat d'une couleur d'un champs:

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
Sub Macro2()
 
Dim DerniereLigne As Integer, i As Integer, j As Integer
 
i = 2
j = 2
DerniereLigne = Range("A" & Rows.Count).End(xlUp).Row  'Passez le curseur sur dernièreLigne pour en lire la valeur
 
Do While i <= DerniereLigne
  If Range("A" & i).Interior.ColorIndex = "1" Then   ' Cette condition ne fonctionne pas.
     Range("C" & j) = Range("A" & i)
     j = j + 1
  End If
  i = i + 1
Loop
 
End Sub

Merci de votre aide

[anasecu]

Bonjour,

Les cellules dont tu testes la couleur, ne seraient-elles pas colorées par une MFC (doubles ?) ?

Si c'est le cas il faut remplacer ton test par celui de la MFC.

[paqmarc]

Bonjour,
Merci pour ta réponse !

Oui, elles sont obtenues par une Mise En Forme Conditionnelle.

Finalement en me creusant un peu la tête, j'ai trouvé cette solution :

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
19
20
21
Sub Macro2()
 
Dim DerniereLigne As Integer, i As Integer, j As Integer
Dim Scan_List As Range
Set Scan_List = Worksheets("Doublons").Range("B1:B300")
 
i = 2
j = 2
DerniereLigne = Range("A" & Rows.Count).End(xlUp).Row  'Passez le curseur sur dernièreLigne pour en lire la valeur
 
With ThisWorkbook.Sheets("Doublons").Range("A1:A300")
Do While i <= DerniereLigne
 If Application.CountIf(Scan_List, .Range("A" & i).Value) = 0 Then
   'Copy valeur cellule manquante de la Envoi!=Ax dans la cellule Envoi!=Cx
   .Range("C" & j) = .Range("A" & i)
   j = j + 1
 End If
  i = i + 1
Loop
 End With
End Sub

Et ça donne le résultat souhaité en colonne C:



Merci quand même !