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

  1. JCB40 Messages postés 3060 Date d'inscription   Statut Membre Dernière intervention   479
     
    Bonjour
    A tester

    Sub Archivage()
    Worksheets("Poste")= ActiveSheet.Range("F8").Value
    End Sub
    0
    1. 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
  2. Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 147
     
    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
    1. 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
  3. Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 147
     
    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