Discussion :

[Jeyjey1]

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

Code :

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

1
2
3
4
5
6
7
8
9
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

[ouskel'n'or]

Code :

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

1
2
3
4
5
6
7
8
For each Ligne in Worksheets("feuil1").range("A1:A" &     Cells(Columns(1).Cells.Count, 1).End(xlUp).Row)
    NoLigne = Ligne.row
    If Left(Cells(NoLigne, 3), 5) = Cells(NoLigne - 1, 3) Then
        Range("Y" & NoLigne).Value = "MT en " & Range("H" & NoLigne).Value & " " & _
        Range("D"" & NoLigne).Value & " " & "le " & Range("W" & NoLigne).Value & " " & _
        "par " & Range("M" & NoLigne).Value & " " & Range("V" & NoLigne).Value
    End If
Next

Si la première ligne de ta plage commence à 16, alors tu remplaces 1 par 16 là For each... Range("A16:A" & (la fin restant inchangée)
A+

[Jeyjey1]

Merci ouskel'n'or de ton aide, mais il ne se passe rien, je n'ai aucune erreur, j'ai bien indiqué la bonne colonne et la bonne feuil'
slt

[ouskel'n'or]

Un oubli déclare Ligne as range