Re,
Merci pour la photo.
- J'ai reproduit une feuille 2 (MINOS ET SEPA)
- J'alimente mes colonnes G (fichiers reçus) et H (statut) par une RechercheV sur la feuille 2
- J'applique ma macro, chez moi ça fonctionne, (j'ai mis une MFC couleur verte sur la colonne I pour vérifier)
J'applique ce code:
Option Compare Text
Sub Bouton1_Cliquer()
Dim i As Long, derlig As Long
Application.ScreenUpdating = False
With Sheets("CONFIRM CLIENT")
dl = .Range("B" & Rows.Count).End(xlUp).Row 'dernière cellule utilisée de la colonne B
For i = 4 To dl 'boucle de la ligne 2 à la dernière
If Range("G" & i).Value = "Reçus" Then
Select Case .Range("H" & i).Value
Case "VALIDE", "REJETEE", "PARTIELLEMENT REJETEE" 'tes conditions pour la colonne E
.Range("I" & i) = "Correct"
Case Else
.Range("I" & i) = "InCorrect"
End Select
Else
.Range("I" & i) = "InCorrect"
End If
Next i
End With
End Sub
Le fichier test:
Comme je te l'ai dit, sans ton fichier, je ne peux rien de plus,
Remarques:
Pour rappel, pour afficher correct, il faut Reçus en colonne G (si Introuvable où autre: on affiche Incorrect) et soit VALIDE, soit REJETEE, soit PARTIELLEMENT REJETEE en colonne H(si autre: on affiche Incorrect même si Reçus en G); conditions que tu avais définies.
Dans ta photo, les colonnes affichent des #N/A ??!
Pour ne plus les afficher :
=SIERREUR(Ta formule;"")
=SIERREUR(RECHERCHEV(B4;'MINOS ET SEPA'!$A$2:$I$1175;9;FAUX);"")
Cordialement,