Discussion :

[FrancisZheng]

Bonjour :

Je voulais faire des opérations si la longueur du contenu d'une cellule à la colonne B > 3

Code :

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

1
2
3
4
5
6
7
8
9
10
For k = 3 To Workbooks("data.xlsm").Sheets("Sabacane Lien").Cells(Rows.Count, "A").End(xlUp).Row - 1
    If Len(Cells(k, "B").Value) > 3 Then
    MsgBox k
    Cells(k, "A").Value = Cells(k, "A").Value & "," & Cells(k, "B").Value
    Cells(k, "B") = Cells(k, "C")
    Cells(k, "C") = Cells(k, "D")
    Cells(k, "D") = Cells(k, "E")
    Cells(k, "E") = ""
    End If
Next k

Mais il ne fonctionne pas. Comment faire?
Merci d'avance.

[FrancisZheng]

Il faut préciser le classeur et la feuille. C'est bon.