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
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
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
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
Bonjour à tous,
je n'avais pas cliqué sur répondre.
une autre approche à faire à volonté :
VB:
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