VBA copier coller

Version imprimable

03/05/2023, 23h16
Lynn223

VBA copier coller

Bonjour,

Je suis nouvelle et je débute en VBA je souhaite faire un copier-coller sur une nouvelle feuille un tableau de base.
Mon problème est quand je clic sur exécuter la macro, ma nouvelle feuille ce crée mais elle est masquée… pourquoi?
Merci beaucoup!

Je suis nouvelle ici aussi :-) J'espère faire les choses dans les règles.
03/05/2023, 23h24
Philippe Tulliez

Bonjour,
N'étant pas devin, il sera extrêmement difficile de vous aider sans visualiser votre code.
04/05/2023, 01h00
Lynn223

1 pièce(s) jointe(s)

Merci!

Voici les codes.
04/05/2023, 06h56
Philippe Tulliez

1 pièce(s) jointe(s)

Bonjour,
D'après votre code, vous masquer les colonnes C à D et G à X et ensuite vous copiez une fois la feuille entière dans un nouveau classeur et ensuite dans une seconde feuille la colonne A de la feuille nouvellement créée.
Donc en résumé vous avez les mêmes données dans deux feuilles d'un nouveau classeur dont l'une à les colonnes CD et G:X masquée donc pas de feuille masquée pour moi.
Les Select et Selection sont à proscrire

Pour exemple, la ligne ci-dessous masque les colonnes C à D sans Select et Selection

Code:

Columns("C:D").EntireColumn.Hidden = True

Pour votre information, lorsque l'on publie son code, on le place entre les balises prévues à cet effet dans l'éditeur de message (voir illustration ci-dessous)

Pièce jointe 638217

[EDIT]
Je devais être mal réveillé ce matin.
En fait vous copiez bien sur une autre feuille mais avec les colonnes C à D et de de G à X masquées

Que voulez-vous faire exactement ?
04/05/2023, 13h59
Lynn223

Citation:

Envoyé par Philippe Tulliez

Bonjour,
D'après votre code, vous masquer les colonnes C à D et G à X et ensuite vous copiez une fois la feuille entière dans un nouveau classeur et ensuite dans une seconde feuille la colonne A de la feuille nouvellement créée.
Donc en résumé vous avez les mêmes données dans deux feuilles d'un nouveau classeur dont l'une à les colonnes CD et G:X masquée donc pas de feuille masquée pour moi.
Les Select et Selection sont à proscrire

Pour exemple, la ligne ci-dessous masque les colonnes C à D sans Select et Selection

Code:

Columns("C:D").EntireColumn.Hidden = True

Pour votre information, lorsque l'on publie son code, on le place entre les balises prévues à cet effet dans l'éditeur de message (voir illustration ci-dessous)

Pièce jointe 638217

[EDIT]
Je devais être mal réveillé ce matin.
En fait vous copiez bien sur une autre feuille mais avec les colonnes C à D et de de G à X masquées

Que voulez-vous faire exactement ?

Bonjour,

Je pense que la macro est bonne mais dans la nouvelle feuille tout les colonnes sont masqués.

C'est mon problème.. je devrais voir la copie et non une page masqué ? Ce que j'ai c'est la colonne a partir de AC de A à AB sont masquées.
04/05/2023, 14h44
Philippe Tulliez
Bonjour,
Si vous souhaitez copier votre feuille sans masquer les colonnes, il y a alors plusieurs options soit la copie se fait dans le même classeur soit dans un nouveau classeur, soit dans un autre classeur ouvert.

Exemple 1 : Copie la feuille nommée "Data" du classeur où se trouve le code VBA (ThisWorkbook) vers un nouveau classeur
Code:

1 2 3 Sub t() ThisWorkbook.Worksheets("Data").Copy End Sub
Exemple 2 : Copie de la feuille nommée "Data" du classeur où se trouve le code VBA (ThisWorkbook) avant la première feuille du même classeur
Code:

1 2 3 4 5 Sub t() With ThisWorkbook .Worksheets("Data").Copy Before:=.Worksheets(1) End With End Sub
04/05/2023, 16h11
Lynn223
Citation:
Envoyé par Philippe Tulliez

Bonjour,
Si vous souhaitez copier votre feuille sans masquer les colonnes, il y a alors plusieurs options soit la copie se fait dans le même classeur soit dans un nouveau classeur, soit dans un autre classeur ouvert.

Exemple 1 : Copie la feuille nommée "Data" du classeur où se trouve le code VBA (ThisWorkbook) vers un nouveau classeur

Code:

1 2 3 Sub t() ThisWorkbook.Worksheets("Data").Copy End Sub

Exemple 2 : Copie de la feuille nommée "Data" du classeur où se trouve le code VBA (ThisWorkbook) avant la première feuille du même classeur

Code:

1 2 3 4 5 Sub t() With ThisWorkbook .Worksheets("Data").Copy Before:=.Worksheets(1) End With End Sub
Voici les étapes que je voudrais faire

a partir de ma feuille modèle
masquer les colonnes que je ne désir pas sur ma nouvelle feuille
copier ma feuille modèle sur une nouvelle feuille dans le même classeur

Je ne sais pas pourquoi quand j'exécute la macro toute les colonnes sont masqués même celle que je n'ai pas masquée au début.

Je dois en demander trop loll

Merci de m'aider vous êtes très patient avec moi.
04/05/2023, 18h18
Philippe Tulliez

Bonjour,

Citation:

Je ne sais pas pourquoi quand j'exécute la macro toute les colonnes sont masqués même celle que je n'ai pas masquée au début.

C'est pourtant ce qui se passe dans le code que vous avez publié.

Bonjour,

Citation:

Voici les étapes que je voudrais faire
a partir de ma feuille modèle
masquer les colonnes que je ne désir pas sur ma nouvelle feuille
copier ma feuille modèle sur une nouvelle feuille dans le même classeur

Si vous partez d'une feuille modèle, il faut d'abord la copier et ensuite masquer les colonnes dans la nouvelle feuille sinon votre modèle n'en est plus un.

Exemple de la copie d'une feuille nommée "Modèle"
Code:

1 2 3 4 5 6 7 8 Sub t() With ThisWorkbook ' Copie la feuille modèle avant la première feuille .Worksheets("Modèle").Copy Before:=.Worksheets(1) ' Ligne à ajouter si la feuille modèle était masquée .Worksheets(1).Visible = xlSheetVisible End With End Sub
Il y a plusieurs syntaxes pour masquer des colonnes.

Une colonne

Columns("B:B").Hidden = True
Columns(2).Hidden = True
Range("B:B").EntireColumn.Hidden = True

Plusieurs colonnes contiguës

Columns("B:E").Hidden = True
Range("B:E").EntireColumn.Hidden = True

Plusieurs colonnes non contiguës : Range("B:C,E:E,G:H").EntireColumn.Hidden = True
Dans l'exemple ci-dessous

La feuille "Modèle" est masquée (propriété Visible de la feuille xlSheetHidden
On copie la feuille précitée avant la première feuille de calcul du classeur
On la rend visible (propriété Visible avec comme valeur xlSheetVisible
On masque les colonnes G à X de cette nouvelle feuille
Code:

1 2 3 4 5 6 7 8 9 10 Sub t() With ThisWorkbook ' Copie la feuille modèle avant la première feuille .Worksheets("Modèle").Copy Before:=.Worksheets(1) With .Worksheets(1) .Visible = xlSheetVisible .Columns("G:X").Hidden = True End With End With End Sub
Il faudra évidemment renommer la nouvelle feuille en veillant à ne pas lui attribuer un nom existant.

Citation:
Envoyé par Philippe Tulliez
Bonjour,

Si vous partez d'une feuille modèle, il faut d'abord la copier et ensuite masquer les colonnes dans la nouvelle feuille sinon votre modèle n'en est plus un.

Exemple de la copie d'une feuille nommée "Modèle"
Code:

1 2 3 4 5 6 7 8 Sub t() With ThisWorkbook ' Copie la feuille modèle avant la première feuille .Worksheets("Modèle").Copy Before:=.Worksheets(1) ' Ligne à ajouter si la feuille modèle était masquée .Worksheets(1).Visible = xlSheetVisible End With End Sub
Il y a plusieurs syntaxes pour masquer des colonnes.

Une colonne

Columns("B:B").Hidden = True
Columns(2).Hidden = True
Range("B:B").EntireColumn.Hidden = True

Plusieurs colonnes contiguës

Columns("B:E").Hidden = True
Range("B:E").EntireColumn.Hidden = True

Plusieurs colonnes non contiguës : Range("B:C,E:E,G:H").EntireColumn.Hidden = True
Dans l'exemple ci-dessous

La feuille "Modèle" est masquée (propriété Visible de la feuille xlSheetHidden
On copie la feuille précitée avant la première feuille de calcul du classeur
On la rend visible (propriété Visible avec comme valeur xlSheetVisible
On masque les colonnes G à X de cette nouvelle feuille
Code:

1 2 3 4 5 6 7 8 9 10 Sub t() With ThisWorkbook ' Copie la feuille modèle avant la première feuille .Worksheets("Modèle").Copy Before:=.Worksheets(1) With .Worksheets(1) .Visible = xlSheetVisible .Columns("G:X").Hidden = True End With End With End Sub
Il faudra évidemment renommer la nouvelle feuille en veillant à ne pas lui attribuer un nom existant.
Merci pour tout :-)
Problème résolu

Bonne journée!

08/05/2023, 18h46
Philippe Tulliez

Bonjour,

Citation:

Merci pour tout :-)
Problème résolu

Merci pour votre retour

Si vous devez renommer votre feuille copiée, la lecture de mon nouveau billet titré VBA Excel - Comment incrémenter le nom d’une feuille Excel lorsqu’il existe déjà ? vous aidera peut-être.