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