Microsoft 365 VBA Ajouter une colonne à droite avec mise en forme

[Wiil85]

Bonjour,
Je cherche à enregistrer une macro me permettant d'ajouter une colonne à droite de la colonne sélectionnée (ou mieux encore, après la dernière colonne complétée = si case de la ligne 1 complétée) avec reprise de la mise en forme des colonnes précédentes (dont les listes) et en-tête "Nom collectivité" dans la case de la ligne 1. ça paraît simple mais je ne trouve pas la bonne solution sur le forum...
Ci-joint le modèle de fichier.
Merci d'avance

 

[Phil69970]

Bonjour @Wiil85

Je te propose ce fichier avec 2 exemples en fonction de ce que j'ai compris
Si ce n'est pas ce que tu veux reprécise ta demande
J'ai commenté le code

Merci de ton retour

 

[job75]

Bonjour Wiil85, Phil69970,

Exécutez :

Sub Ajout_Colonne()
With Cells(1, Columns.Count).End(xlToLeft).EntireColumn
    .Insert
    .Offset(, -1).Cut
    .Offset(, 1).Insert
    .Cells(1, 2) = "Nom collectivité"
End With
End Sub

A+

 

[Wiil85]

Bonjour Wiil85, Phil69970,

Exécutez :

Sub Ajout_Colonne()
With Cells(1, Columns.Count).End(xlToLeft).EntireColumn
    .Insert
    .Offset(, -1).Cut
    .Offset(, 1).Insert
    .Cells(1, 2) = "Nom collectivité"
End With
End Sub

A+

Merci beaucoup c'est parfait!

 

[Wiil85]

Bonjour @Wiil85

Je te propose ce fichier avec 2 exemples en fonction de ce que j'ai compris
Si ce n'est pas ce que tu veux reprécise ta demande
J'ai commenté le code

Merci de ton retour

Ca marchait presque, il me manquait l'entête de colonne.
Mais un grand merci quand même

 

[Phil69970]

@Wiil85

Je l'ai rajouté dans le fichier car je n'avais pas compris comme cela ta demande

 

[fanch55]

Bonjour à tous,
je n'avais pas cliqué sur répondre.
une autre approche à faire à volonté :

Option Compare Text
Sub AddCol()
    With Columns(Cells(1, Columns.Count).End(xlToLeft).Column + 1)
        If .Cells(1, -1) <> "Nom Collectivité" Then
            .Offset(, -1).Copy .Cells(1)
            .ClearContents
            .Cells(1) = "Nom Collectivité"
        End If
    End With
End Sub