Condition qui ne fonctionne pas

Re:

Voila, j'ai une macro que j'ai adapter en y ajoutant deux condition

Sub remplacement()
Dim Source As Variant

'définition de la source

Source = Sheets("hm2").Range("A1").CurrentRegion

'Boucle défaut par défaut
With Sheets("def.tr")
For Each cell In .Range("A1:A" & .Range("A" & .Cells.Rows.Count).End(xlUp).Row)
cell.Offset(0, 7).ClearContents
    For i = 1 To UBound(Source)
        If cell.Offset(0, 6) = Source(i, 4) And cell >= Source(i, 1) And cell <= Source(i, 2) Then
            cell.Offset(0, 7) = Source(i, 5)
If cell.Offset(0, 7) = "Vid" And cell.Offset(0, 4) = Source(i, 6) Then
            cell.Offset(0, 7) = "ent" 
If cell.Offset(0, 7) = "Vid" And cell.Offset(0, 4) = Source(i, 7) Then
            cell.Offset(0, 7) = "sor"
            Exit For
        End If
        End If
        End If
    Next i
Next cell
End With
Erase Source
End Sub

sur cette macro j'ai rajouté:

If cell.Offset(0, 7) = "Vid" And cell.Offset(0, 4) = Source(i, 6) Then
            cell.Offset(0, 7) = "ent"
        If cell.Offset(0, 7) = "Vid" And cell.Offset(0, 4) = Source(i, 7) Then
            cell.Offset(0, 7) = "sor"

mais sur ces rajouts : le premier "if" fonctionne mais il ne se passe rien pour le deuxieme.

voyez-vous une faute de syntaxe ou autre qui pourrais expliquer cela?

merci

re

suggestion,

Ne serait-ce pas parceque les deux conditions controle la meme cellule?

comment fait pour les fusionner?

Re:

Yes!!! j'ai trouvé ce qui clochais!

il suffisait de rajouter "Else"

If cell.Offset(0, 7) = "Vid" And cell.Offset(0, 4) = Source(i, 6) Then

cell.Offset(0, 7) = "ent"

Else

If cell.Offset(0, 7) = "Vid" And cell.Offset(0, 4) = Source(i, 7) Then

cell.Offset(0, 7) = "sor"

Et la ça fonctionne.

Laurent