Discussion :

[AlexisB.]

Bonjour à tous,

Je reviens à nouveau vers vous pour une nouvelle question.
J'ai une macro qui crée un TCD (j'ai bien galéré, je l'avoue...) qui se place dans un nouvel onglet (pas réussi à placer mon TCD dans une feuille existante). Le nom de cet onglet est variable (Excel génère un "Feuil2", un "Feuil3", ça dépend du nombre de fois où l'on exécute la macro). Je voudrais donc copier le TCD, supprimer l'onglet, pour ensuite coller le TCD dans un des onglets existants.
Vous voyez bien le problème : ma sélection copiée n'est plus en mémoire (puisque l'onglet est supprimé).
Le mini bout de code :

Code :

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

1
2
3
4
5
6
 ActiveSheet.Range("A1:A8").Select 'Sélection de mon TCD
    Selection.Copy
    ActiveSheet.Delete
    Sheets("Import données").Select 'L'onglet où je veux voir apparaître mon TCD
    Range("N1").Select
    Selection.Paste

C'est donc bien évidemment la dernière ligne qui provoque l'erreur et se colorie en jaune.
J'ai testé avec des lignes du style Application.CutCopyMode = Paste mais rien n'y fait...

Pouvez-vous m'éclairer ?

Un énorme merci à vous tous et à ce forum,

Alexis

[Jean-Philippe André]

Salut,

le déroulement de ton code peut simplement etre modifié :

Code :

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

1
2
ActiveSheet.Range("A1:A8").Copy destination:=Sheets("Import données").Range("N1:N8")
ActiveSheet.Delete

A noter que l'on deconseille la plupart du temps de passer par les objects ActiveXXX, la faute aux multiples risques de desactivation =]

[AlexisB.]

Ah oui, effectivement, c'était pas sorcier, mais je pensais qu'il allait garder en tant qu'active sheet mon onglet existant (que je ne veux surtout pas supprimer).
Je crois que je n'ai pas encore saisi la différence entre .Activate et .Select

Merci beaucoup, vous êtes au top,

Alexis