Bonjour,

J'ai créer le code ci dessous qui me permet suivant que les 4 premiers caracteres d'une cellule soient egaux aux 4 autres de la cellule du dessus, si c'est le cas des informations s'affichent dans une cellule vide
Le problème c'est que ça fonctionne pour qu'une ligne.Pourriez vous me dire comment boucler le code sur toutes les lignes
Merci

Sub MarqueLesDoublons()

 
If Left(C16, 5) = C15 Then
Range("Y16").Value = "MT en " & Range("H16").Value & " " & Range("D16").Value & " " & "le " & Range("W16").Value & " " & "par " & Range("M16").Value & " " & Range("V16").Value

End If
End Sub

A+
Exploreur

 Linux a un noyau, Windows un pépin

j'ai monté ça, mais je bloque a la ligne 4, j'arrive pas a lui dire comment inscrire dans la colonne Y tous les informations suite a la condition

1- For i = 3 To 700
2- For j = 3 To 700
3- If Cells(i, j) = Cells(i, j - 1) Then

4- Cells("Y16").Value = "MT en " & Range("H16").Value & " " & Range("D16").Value & " " & "le " & Range("W16").Value & " " & "par " & Range("M16").Value & " " & Range("V16").Value

5- End If
6 -Next j
7 - Next i

jeyjey1