Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel garder en memoire le nom de la feuille

garder en memoire le nom de la feuille

3 réponses
Avatar
magic-dd
bonjour

je souhaite faire une macro qui sera dans le thisworkbook afin
d'eviter de la recopier sur mes 50 onglets

elle consiste lorsqu'on est sur la feuille active de mettre une
commande qui se souvienne de la feuille active.

cela car apres je dois recuperer une matrice sur une autre feuille et
la recopier sur ma premiere feuille qui =E9tait "active"

voici ce que j'ai fais mais il me mets une erreur

merci de votre aide

Sub testons()
Dim nom As String
nom =3D ActiveSheet.Name

Sheets("Feuil2").Select
Range("A10:D10").Select
Selection.Copy

sheets("nom").Select

Range("A19").Select
ActiveSheet.Paste
Range("E15").Select

End Sub
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
DanielCo
Bonjour,
Si tu mets nom entre guillemets, il considère qu'il s'aggît du nom de
la feuille et non d'une variable; mets :
sheets(nom).Select
Cordialement.
Daniel


bonjour

je souhaite faire une macro qui sera dans le thisworkbook afin
d'eviter de la recopier sur mes 50 onglets

elle consiste lorsqu'on est sur la feuille active de mettre une
commande qui se souvienne de la feuille active.

cela car apres je dois recuperer une matrice sur une autre feuille et
la recopier sur ma premiere feuille qui était "active"

voici ce que j'ai fais mais il me mets une erreur

merci de votre aide

Sub testons()
Dim nom As String
nom = ActiveSheet.Name

Sheets("Feuil2").Select
Range("A10:D10").Select
Selection.Copy



Range("A19").Select
ActiveSheet.Paste
Range("E15").Select

End Sub
Avatar
Charabeuh
Bonsoir,

le code suivant devrait le faire:

Sub testez()
With ActiveSheet
Sheets("Feuil2").Range("A10:D10").Copy _
Destination:=.Range("A19")
.Range("E15").Select
End With
End Sub



magic-dd avait écrit le 01/03/2011 :
bonjour

je souhaite faire une macro qui sera dans le thisworkbook afin
d'eviter de la recopier sur mes 50 onglets

elle consiste lorsqu'on est sur la feuille active de mettre une
commande qui se souvienne de la feuille active.

cela car apres je dois recuperer une matrice sur une autre feuille et
la recopier sur ma premiere feuille qui était "active"

voici ce que j'ai fais mais il me mets une erreur

merci de votre aide

Sub testons()
Dim nom As String
nom = ActiveSheet.Name

Sheets("Feuil2").Select
Range("A10:D10").Select
Selection.Copy

sheets("nom").Select

Range("A19").Select
ActiveSheet.Paste
Range("E15").Select

End Sub
Avatar
magic-dd
Re bonsoir

encore une fois les fidèles ont répondu

merci beaucoup

c'est nickel

bonne soiree