XL 2016 Ajouter des colonnes avec entetes en VBA

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

lajijax

XLDnaute Nouveau
Bonjour,

J'essaye de developper une macro mais je bloque... J'arrive a inserer une colonne avec une macro mais je ne parviens pas a definir une entete ni a l'inserer la ou je le souhaite

J'aimerais en effet ajouter a l'aide d'une macro deux colonnes en AC et AD ( soit apres mes colonnes existante qui vont de A à AB), avec seulement un entete en AC1 et AD1 et le reste des cellules des colonnes vides, soit la colonne AC avec l'entete " Anti" en AC1 et "PCcol"en AD1.

Si quelqu'un peut m'aider je serais tres reconnassainte 🙂

Merci d'avance et bonne journée.
 
Bonjour
et bienvenue sur XLD
Je te proposes, pour t'aider de poster un petit fichier anonymisé représentant ton pb
Bonjour et merci pour ton message JM27,

J'ai joint un fichier pour que cela soit plus parlant comme conseillé. J'ai modifié l'ensemble des données et nom des entetes afin d'anonymiserle fichier car il est a usage professionel. Ainsi il s'agit d'une extraction qui apparait tel quel , j'aimerais avoir une macro qui me permettent d'ajouter automatiquement 2 colonnes en AC et AD , sous le meme format que la colonne AB, soit une colonne avec un entete seulement et le reste des cellules en dessous non renseigné. J'aimerais nommé la colonne AC1 "Anti" et la colonne AD1 "PCcol". J'espere que c'est plus clair ,

Merci par avance.
 

Pièces jointes

bonjour
Comme Cela?
VB:
Sub Copie()
    Columns("AC:AD").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Columns("AB:AB").Copy
    Columns("AC:AD").PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Range("AC1") = "Anti"
    Range("AD1") = "PCcol"
End Sub
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour