Insertion colonne VBA

[Florian53]

Bonjour à tous,

Je voudrais en VBA insérer une colonne sous condition :

Sur la ligne 1 j'ai des valeurs de "C1: dernière colonne & 1"
la largeur du tableau est variable, c'est pour cela que j'ai indiqué " dernière colonne".

Si 2 cellules l'une à coté sont identiques sur la portion "AAA BBB 00X" alors insérer une colonne après la 2eme.

j'ai essayé de faire un code avec le code ci dessous, mais je n'arrive pas à intégrer la variable après le 1er 0.

cells(1,x).value like"AAA BBB 00" & "n"

Pouvez m'indiquer la démarche svp ?
Merci

 

[pierrejean]

Re

Une proposition:

Sub test()
For n = Cells(1, Columns.Count).End(xlToLeft).Column To 3 Step -1
   If Left(Cells(1, n), 10) Like "AAA BB* 00" And Left(Cells(1, n - 1), 10) Like "AAA BB* 00" And Left(Cells(1, n), 11) = Left(Cells(1, n - 1), 11) Then
        Columns(n + 1).Insert Shift:=xlShiftToRight
   End If
Next
End Sub

 

[Florian53]

Nickel Pierrejean, comme d'habitude vous êtes trop fort

Merci