Afficher une feuille à partir d'une cellule qui contient son nom

Résolu
Jeremie -  
Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

Je ne m'y connais vraiment pas beaucoup en VBA,

J'ai trouvée une macro qui génère une feuille (dans mon cas un contrat) à partir d'une autre feuille (intitulé "poste") en copiant certaines informations et dont le nom est un numéro (par ex: 5050) et qui en plus copie son nom dans une cellule (le cellule "F8" qui fait parti d'un tableau, colonne n° de contrat), et j'aimerais utilisé une macro qui me permettrais d'afficher cette feuille (contrat "5050") depuis la cellule "F8".

Voilà ce que j'ai essayé mais ça ne marche pas :
Sub Archivage()
Worksheets("Poste").Range("F8").Texte.Activate
End Sub

Merci d'avance pour tout aide !

3 réponses

JCB40 Messages postés 3013 Date d'inscription   Statut Membre Dernière intervention   463
 
Bonjour
A tester

Sub Archivage()
Worksheets("Poste")= ActiveSheet.Range("F8").Value
End Sub
0
Jeremie
 
Merci de ton aide mais ça ne fonctionne toujours pas ça m'indique un message d'erreur :

Erreur d’exécution '438'
Propriété ou méthode non gérée par cette objet

Et la ligne du milieu apparaît en jaune...
0
Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 135
 
Comment ça ne fonctionne pas, télécharge l'exemple à partir de ce lien et clic sur le bouton de la Feuil1

https://www.cjoint.com/c/KGbiBdejnYF
0
Jeremie
 
En effet ton exemple marche parfaitement, mais quand je copie la macro et que je l'intègre a mon fichier le message d'erreur apparaît toujours, je vais voir ce que je peux faire de mon coté, merci beaucoup déjà pour ton aide !!!
0
Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 135
 
Contrôle le nom de ton onglet et la saisie en F8, voir si tu n'as pas un espace qui traine, la moindre différence de donnée entre la cellule cible F8 et le nom de l'onglet fait planté le code ce qui est normal

0