Discussion :

[Rico2a]

Bonjour à tous,
Je dois retraiter un tableau de 9500 lignes, j'ai commencé à la main mais... c'est un peu long et en fonction des modifications j'aurai à refaire cette manipulation. Alors j'ai pensé à une macro, mais j'ai un peu de mal à la réaliser.

Lorsque le contenu de la colonne G "date d'archivage" commence par TRIMET (peu importe la suite), il faut insérer une cellule (de façon à décaler tout vers la droite), sinon passer à la ligne suivante, et ce jusqu'à la fin du tableau.

Merci de votre aide

[Daniel.C]

Bonjour,

En supposant qu'il n'y ait pas de cellule vide dans la colonne F :

Code :

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

1
2
3
4
5
6
7
8
Sub Rico2a()
    Dim C As Range
    For Each C In Range([F2], Cells(Rows.Count, 6).End(xlUp)).Offset(, 1)
        If Left(C.Value, 6) = "TRIMET" Then
            C.Insert xlShiftToRight
        End If
    Next C
End Sub

[Rico2a]

Bonjour Daniel,
Merci de ta réponse rapide.
Lorsque je lance la macro, je vois que cela décale vers la droite, mais cela ne s'arrête pas et je suis obligé d'interrompre le processus par un Ctrl Alt Supp ravageur !
(Forcément à un moment le cellule F va être vide du fait que je n'ai plus de ligne remplie).

[Daniel.C]

Mets ton classeur en pièce jointe (sans données confidentielles).

[Rico2a]

En te copiant un fichier de taille réduite, j'ai essayé la macro qui fonctionne parfaitement.
En fait le fichier fait plus de 9900 lignes et j'étais un peu impatient, il faut laisser le temps au traitement de s'accomplir.
Merci beaucoup de ton aide.

Cordialement