Cellule contient retour à la ligne

Bonjour à tous,

J'ai fait une boucle if qui permet de vérifier plusieurs conditions et d'afficher le msg d'erreur correspondant si besoin. Une des conditions que je souhaite vérifier est si la cellule contient un saut à la ligne. Pour le moment, même s'il y a un retour à la ligne la macro ne le repère pas.

'Check if traductions are ok

With Sheets("CREA - Traduction")

'Set last cell source products

Dim last_cell_2 As Integer

last_cell_2 = Sheets("CREA - Traduction").Range("A65536").End(xlUp).Row

Dim i As Integer

For i = 1 To last_cell_2

If Cells(i, 4).Value Like vbCr Then MsgBox "Il y a un saut à la ligne dans la traduction suivante : " & Cells(i, 4): Exit Sub

If Len(Cells(i, 4)) > 59 Then MsgBox "La traduction suivante fait plus de 60 caractères : " & Cells(i, 4): Exit Sub

If Cells(i, 4) = "" Then MsgBox "Il manque la traduction de l'article n°" & Cells(i, 1): Exit Sub

Next i

Merci beaucoup par avance de votre aide !

Clara

Bonjour,

Une piste à explorer.

Cdlt.

Public Sub XXX()
Dim last_cell_2 As Long, i As Long
    With Sheets("CREA - Traduction")
        last_cell_2 = .Cells(.Rows.Count, 1).End(xlUp).Row
        For i = 1 To last_cell_2
            Select Case True
                Case InStr(1, .Cells(i, 4).Value, Chr(10)) > 0:
                    MsgBox "Il y a un saut à la ligne dans la traduction suivante : " & .Cells(i, 4).Value
                    Exit Sub
                Case Len(Cells(i, 4)) > 60
                    MsgBox "La traduction suivante fait plus de 60 caractères : " & Cells(i, 4).Value
                    Exit Sub
                Case IsEmpty(Cells(i, 4)):
                    MsgBox "Il manque la traduction de l'article n°" & Cells(i, 1).Value
                    Exit Sub
                Case Else:
            End Select
        Next i
    End With
End Sub

Bonjour Jean-Eric,

Merci pour votre retour, je vais essayer !

Merci Jean-Eric, votre solution fonctionne !

Bonjour,

Merci de ce retour.

Pense à clore le sujet.

Bonne journée.

J'ai "marqué ce sujet comme résolu", j'espère que cela suffit

Merci !