Insertion colonne VBA

Florian53 · 16 Octobre 2017

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.

VB:

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

Pouvez m'indiquer la démarche svp ?
Merci

pierrejean · 16 Octobre 2017

Re

Une proposition:

Code:

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 · 16 Octobre 2017

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

Merci

Insertion colonne VBA

Florian53

XLDnaute Impliqué

Pièces jointes

pierrejean

XLDnaute Barbatruc

Florian53

XLDnaute Impliqué

Discussions similaires

Insertion colonne VBA

Florian53

XLDnaute Impliqué

Pièces jointes

pierrejean

XLDnaute Barbatruc

Florian53

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency