Insertion de colonne qui ne fonctionne pas ??!!?

Bonjour,

Il m'arrive un truc mystique qui ne devrait pas me poser de problème.

Quand je veux faire une insertion de 2 colonnes dans un fichier excel cela ne fonctionne pas avec le code suivant :

Columns("H:I").Select

Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove

Range("H3").Select

ActiveCell.FormulaR1C1 = "Date Feu Orange"

Range("I3").Select

ActiveCell.FormulaR1C1 = "Date Feur Vert"

Range("A3").Select

Range(Selection, Selection.End(xlToRight)).Select

Selection.AutoFilter

En effet au lieu de d'ajouter les 2 colonnes après la colone G cela ce met au début du fichier et insert X colonnes...

Savez-vous pourquoi ?

Je mets en pj le fichier excel utilisé.

Merci d'avance.

Bonjour,

Ton programme est visiblement codé avec l'enregistreur de macro...

Voici un programme qui fait la même chose:

Sub test()
    Columns("H:I").EntireColumn.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("H3") = "Date Feu Orange"
    Range("I3") = "Date Feur Vert"
    Range("A3", Range("A3").End(xlToRight)).AutoFilter
End Sub

J'ai rajouté ".EntireColumn" pour faire l'action d'insertion sur la colonne entière, c'est visiblement ce qu'il manquait.

Le fichier en retour:

Tu penseras à corriger "date feuR vert" par "date feu vert" si ce n'est pas volontaire

Effectivement c'était avec l'enregistreur de macro. Je pensais que pour un truc simple comme ça, ça fonctionnerai

En tout merci pour l'aide (et pour la faute de frappe).

Bonjour,

L'enregistreur de macro c'est bien pour débuter, mais très vite on se rend compte qu'il ajoute inutilement des lignes comme Range(...).Select

puis Selection..quelquechose

Qui pourrait être écrite Range(...).quelquechose

Mais comme tu fais l'action de sélection de la cellule avant de faire une action dessus, ça l'enregistre...

De rien et bonne journée