Insertion colonne

Sub zz_Inser_Col()
Application.ScreenUpdating = False
With ActiveCell
.EntireColumn.Copy
.Range("B:B").Insert Shift:=xlToRight
On Error Resume Next
.Range("B:B").SpecialCells(xlConstants).ClearContents
End With
End Sub

AV

"georges.fauritte@wanadoo.fr" <anonymous@discussions.microsoft.com> a écrit dans
le message news: 062201c3978d$d3804e50$a501280a@phx.gbl...
Bonjour
Sur un site j'avais trouvé cette macro que j'utilise très
souvent .
Elle permet de copier une ligne et de la coller dessous
en ne conservant que les formules .
A ce jour j'ai besoin de la même chose mais avec les
colonnes.
J'ai bidouillé la formule en remplacant les EntireRow par
Entirecolumn
J'arrive à insérer la colonne mais pas à copier les
formules.
Merci pour votre aide


Sub InsererSousAvecFormules()
Application.ScreenUpdating = False
ActiveCell(2).Resize(1).EntireRow.Insert
ActiveCell(1).EntireRow.Copy ActiveCell(2).Resize
(1).EntireRow
On Error Resume Next 'au cas où il n'y ait pas de
constantes
ActiveCell(2).Resize(1).EntireRow. SpecialCells
(xlConstants).ClearContents
End Sub

Re bonjour AV

Ca fonctionne bien mais il faut que je sélectionne la
colonne complètement .
Est-il possible de lancer cette macro en étant par exemple
sur la cellule E13
et que la macro sélectionne d'elle même la colonne E.
Exigeant avec ça !!!!
Merci de ton aide
Georges

-----Message d'origine-----
Sub zz_Inser_Col()
Application.ScreenUpdating = False
With ActiveCell
.EntireColumn.Copy
.Range("B:B").Insert Shift:=xlToRight
On Error Resume Next
.Range("B:B").SpecialCells(xlConstants).ClearContents
End With
End Sub

AV

"georges.fauritte@wanadoo.fr"
<anonymous@discussions.microsoft.com> a écrit dans

le message news: 062201c3978d$d3804e50$a501280a@phx.gbl...
Bonjour
Sur un site j'avais trouvé cette macro que j'utilise très
souvent .
Elle permet de copier une ligne et de la coller dessous
en ne conservant que les formules .
A ce jour j'ai besoin de la même chose mais avec les
colonnes.
J'ai bidouillé la formule en remplacant les EntireRow par
Entirecolumn
J'arrive à insérer la colonne mais pas à copier les
formules.
Merci pour votre aide


Sub InsererSousAvecFormules()
Application.ScreenUpdating = False
ActiveCell(2).Resize(1).EntireRow.Insert
ActiveCell(1).EntireRow.Copy ActiveCell(2).Resize
(1).EntireRow
On Error Resume Next 'au cas où il n'y ait pas de
constantes
ActiveCell(2).Resize(1).EntireRow. SpecialCells
(xlConstants).ClearContents
End Sub




.

Ca fonctionne bien mais il faut que je sélectionne la
colonne complètement .
Est-il possible de lancer cette macro en étant par exemple
sur la cellule E13
et que la macro sélectionne d'elle même la colonne E.

?? Après l'insertion, tu veux sélectionner la colonne de la cellule active ?
A tester si ça correspond....

Sub zz_Inser_Col()
Application.ScreenUpdating = False
With ActiveCell
.EntireColumn.Copy
Columns(.Column + 1).Insert Shift:=xlToRight
On Error Resume Next
Columns(.Column + 1).SpecialCells(xlConstants).ClearContents
.EntireColumn.Select
End With
End Sub

AV

Bonjour AV
C'est parfait !!
Merci et bonne journée
Georges

-----Message d'origine-----

Ca fonctionne bien mais il faut que je sélectionne la
colonne complètement .
Est-il possible de lancer cette macro en étant par
exemple

sur la cellule E13
et que la macro sélectionne d'elle même la colonne E.

?? Après l'insertion, tu veux sélectionner la colonne de
la cellule active ?

A tester si ça correspond....

Sub zz_Inser_Col()
Application.ScreenUpdating = False
With ActiveCell
.EntireColumn.Copy
Columns(.Column + 1).Insert Shift:=xlToRight
On Error Resume Next
Columns(.Column + 1).SpecialCells
(xlConstants).ClearContents

.EntireColumn.Select
End With
End Sub

AV


.