Discussion :

[Mairequimby]

Bonjour,

Je désire insérer un retrait de texte dans une cellule sous condition. Mais la Macro plante à la ligne Selection.InsetIndent 1

voici mon code

Code :

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

1
2
3
4
5
6
7
 Dim K As Long
   Dim L As Long
    For K = Range("A1000").End(xlUp).Row To 4 Step -1
    For L = 2 To 3
    If Cells(K, 1) = Cells(K - 1, 1) Then Range(Cells(K, 2), Cells(K, 3)).Select
    Selection.InsertIndent 1
   Next L: Next K

merci de m'aider

[Mairequimby]

J'ai trouvé.

Il fallait simplement utiliser la commande IndentLevel au lieu de InsertIndent

Code :

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

Selection.IndentLevel = 1