Copier une colonne à partir de Worksheet_BeforeDoubleClick

[Mar]

Bonsoir,
J'ai mis en place une macro qui me permet de créer des feuilles automatiquement à partir d'un tableau en feuille un grace à un double clique dans une cellule sur la colonne B ou la ligne 2 en recopiant les cellules liées à la colonne B et sur la ligne 2 je ne parviens pas à définir convenablement l'instruction de copie pour que la colonne liée à la cellule en ligne 2 qui est cliquer soit copiée

J'ai l'instruction qui ne fonctionne pas avec des guillemets dans le code de la page 1.

Merci pour votre aide

 

[Yaloo]

Re : Copier une colonne à partir de Worksheet_BeforeDoubleClick

Bonsoir Mar,

Si tu mets Target.Column cela te renvoie un N°



Dans

Range(Target.Column & "2" & ":c32").Copy

Dans Range il est attendu une lettre et non un N°

Si tu remplaces par le code ci-dessous, ça devrait fonctionner : (je n'ai pas testé, mais ça devrait le faire)

Range(Cells(2, Target.Column), Cells(32, 3)).Copy

A te relire

Martial

 

[Yaloo]

Re : Copier une colonne à partir de Worksheet_BeforeDoubleClick

Re,

Tu devrais essayer de supprimer tes .Select et Selection, tu gagnerai en temps et en lisibilité.

Plutôt que d'écrire

.Range("B2").Select
Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
, SkipBlanks:=False, Transpose:=True

Il vaut mieux mettre

.Range("B2").PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
, SkipBlanks:=False, Transpose:=True

A+

 

[Mar]

Re : Copier une colonne à partir de Worksheet_BeforeDoubleClick

Merci beaucoup, cela fonctionne comme je le souhaitais et selon vos conseils j'ai nettoyé le code.
Je laisse le fichier corrigé pour ceux qui en aurait besoin.