Discussion :

[Malfudan]

Bonjour,

Je souhaiterais faire une modification de texte de contenu de cellule excel via macro, en gros je doit insérer un Titre 2.1 entre le "2 titre" et le "2.1 titre test" et décaller tous les titre en conséquence :
2.1 titre Test -> 2.2 titre test
...


J'ai un code pour faire un concaténer de cellule d'un autre tableau ligne à ligne mais je ne vois pas trop comment faire le décalage de titre :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
For I = LineDebalf To LineFinalf                                                'pour chaque ligne entre début et fin coller à la suite si non vide
   If Sheets(WSALFAN).Cells(I, 2).Value <> "" Then
 
            If Sheets(WSALFAN).Cells(I, 2).Value Like "-*" Then
                 Sheets("PUBLIPOSTAGE - IMPORT MSG").Cells(2, 11) = Sheets("PUBLIPOSTAGE - IMPORT MSG").Cells(2, 11) & Chr(10) & Sheets(WSALFAN).Cells(I, 2) & Chr(10) & Chr(10) & Chr(10)
            Else
                 Sheets("PUBLIPOSTAGE - IMPORT MSG").Cells(2, 11) = Sheets("PUBLIPOSTAGE - IMPORT MSG").Cells(2, 11) & Chr(10) & Sheets(WSALFAN).Cells(I, 2)
            End If
 
   End If
Next

Si vous avez solution simple à intégrer je suis preneur :-)