Discussion :

[TomiT]

Bonjour,

Mon problème est le suivant, lorsque j'exécute mon bouton contenant le prog ci-dessous mon programme, la colonne se copie correctement sur ma nouvelle feuille mais les règles de mise en forme conditionnelle ne suivent pas et restent en lien avec la feuille source.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub Insérercolonne()
 
'Sélection et copie dans les données de fonctionnement la colonne DD
Sheets("Données_fonctionnement").Columns("D:D").Copy
 
'Copie de la sélection dans la feuille active
ActiveSheet.Select
 
'Sélection de la colonne dans laquelle se trouve la cellule active
ActiveCell.EntireColumn.Select
 
'Insérer la sélection en lieu et place de la colonne ou se trouve la cellule active
Selection.Insert Shift:=xlToLeft
 
End Sub

[eriiic]

Bonjour,

oui, c'est bizarre que ça réagisse différemment.
Insère d'abord ta colonne, fais ton copier-coller ensuite.
eric

[Menhir]

Tout d'abord, une petite correction de ton code.

ActiveSheet.Select est totalement inutile. En gros, ça signifie "sélectionne la feuille qui est déjà sélectionnée".

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
ActiveCell.EntireColumn.Select
Selection.Insert Shift:=xlToLeft

peut être simplifié en :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveCell.EntireColumn.Insert Shift:=xlToLeft

les règles de mise en forme conditionnelle ne suivent pas et restent en lien avec la feuille source.

Que contiennent les règles des MFC source ?

[TomiT]

La MFC me permet tout simplement de colorer plusieurs cellules en fonction de la valeur sélectionné dans une autre cellule(a).

L’inconvénient est que, une fois la colonne recopiée dans une nouvelle feuille les cellules régies par la MFC font référence à la cellule(a) dans la feuille source et non pas à la cellule(a) dans la feuille de destination.

Cdlt
TomiT

[eriiic]

Et le post #2 ?