Insertion d'une colonne à droite d'une cellule

[Leskwal]

Bonjour le forum,

une question, malgré mes recherches sur le forum, je n'ai pas trouvé ce que je désirais.

En fait, tout est dans le titre
J'aimerais, à l'aide d'une macro affectée à un bouton, insérer une colonne à droite d'une cellule sélectionnée.

J'ai enregistré une macro de manière manuelle en essayant de remplacer ensuite certains éléments par, par exemple la commande "ActiveCell" ... etc

Mais j'ai échoué ..

Quelqu'un pourrait-il m'aider ?

Un grand MERCI d'avance

Pascal

 

[mutzik]

Re : Insertion d'une colonne à droite d'une cellule

bonjour,

et le fichier exemple ou ce que tu as fait et qui ne fonctionne pas ...
on progresse aussi en corrigeant et en comprenant ses erreurs

 

[phlaurent55]

Re : Insertion d'une colonne à droite d'une cellule

Bonjour à tous,

J'aimerais, à l'aide d'une macro affectée à un bouton, insérer une colonne à droite d'une cellule sélectionnée.

avec ce code:

    Columns(ActiveCell.Column + 1).Select
    Selection.Insert Shift:=xlToRight

ou

Sub Bouton1_Clic()
    Columns(ActiveCell.Column + 1).Select
    Selection.Insert Shift:=xlToRight
End Sub

à+
Philippe

 

[Leskwal]

Re : Insertion d'une colonne à droite d'une cellule

Bonsoir

Un très grand merci à vous.

J'ai tout à fait compris le code

    Columns(ActiveCell.Column + 1).Select
    Selection.Insert Shift:=

que je vais insérer dans le code de mon bouton.

C'est l'expression " Columns(ActiveCell.Column + 1).Select" que je ne trouvais pas.

Manque de pratique ...

Encore un très grand MERCI.

Pascal