recuperation colonne

[GHISLAIN]

Bonjour a tous ,

j'utilise un code pour récupérer des colonnes utiliser avant impression .

Worksheets("initiale").UsedRange.Copy
Worksheets("copie").Activate
[a1].Select
ActiveSheet.Paste

toutefois , ce code me copie toute les colonnes même celles qui sont vides

ce que je souhaiterai
1 - ne copier que les colonnes utilisées , et exclure les colonnes vide
2 - lors de la copie supprimer les couleurs des lignes
3 - cette copie sera utilisée uniquement pour une impression donc , est il possible d effectuer la meme chose
sans passer par une copie du style :

Worksheets("initiale").UsedRange.Print

et enfin j'utilise dans mon dossier final un menu avec un bouton impression , ce code ne doit donc s activer que lorsque la feuille :"initiale" est affichée a l écran donc active


donc dans l’idée :
if Worksheets("initiale").activate then
Worksheets("initiale").UsedRange.Print
end if

merci a tous de vos suggestions et aide apportée

cordialement

ghislain

 

[Staple1600]

Re : recuperation colonne

Bonjour à tous


Code VBA issu en grande partie de l'enregistreur de macros ... 😉

Sub Macro1()
    Sheets("Initiale").Select
    Sheets("Initiale").Copy After:=Sheets(1)
    Rows("1:1").SpecialCells(xlCellTypeBlanks).EntireColumn.Delete
    Rows("1:1").SpecialCells(xlCellTypeBlanks).EntireColumn.Select
    Selection.ClearFormats
    ActiveSheet.UsedRange.Cells.Interior.ColorIndex = xlNone
End Sub

Sous réserve que j'ai bien compris la question.

 

[Misange]

Re : recuperation colonne

Bonjour

pour faire la copie :

Set monrange = Sheets("initiale").UsedRange
monrange.Copy Destination:=Sheets("feuil3").Range("A1")

pour masquer les colonnes vides avant impression et les réafficher ensuite :

 For c = ActiveSheet.UsedRange.Columns.Count To 1 Step -1
  If IsEmpty(Cells(1, c)) Then Columns(c).Hidden = True
 Next c
 ActiveSheet.PrintOut
 Columns().Hidden = False

(en partant du principe que toutes les colonnes à conserver ont la ligne 1 remplie)

 

[Staple1600]

Re : recuperation colonne

Bonjour Misange

2 - lors de la copie supprimer les couleurs des lignes

Pour supprimer la couleur (en repartant sur le code de Misange 😉)

Sub a()
Set monrange = Sheets("initiale").UsedRange
monrange.Copy
Sheets("Feuil3").Range("A1").PasteSpecial xlPasteValues
Sheets("Feuil3").UsedRange.Borders.LineStyle = xlContinuous
Application.CutCopyMode = False
End Sub

 

[Misange]

Re : recuperation colonne

Salut Staples
Ah oui j'avais zappé le formatage 🙂

 

[GHISLAIN]

Re : recuperation colonne

bonjour a tous ,
dsl de n'etre passé avant , travail sur d'autre facette de mon projet ....
je vous remercie a tous de vos propositions et d avoir résolu mon probleme

tres cordialement

merci a tous

ghislain