Valeur cellule sert à ouvrir feuille

Bonjour à tous

voici mon problème.

sur la feuille 1, B6 peut contenir une trentaine de valeur sous forme de code (lettres + chiffre)

(en réalité c'est le résultat d'une recherche V)

A chaque valeur de B6 correspond une feuille (déjà nommée par le code)

comment

copier une série de données de la feuille 1

en fonction d'une valeur en feuille 1 B6, ouvrir la feuille correspondante

coller les données dans la tableau de la feuille X

Faut-il passer par une déclaration ce variable ?

comme vous pouvez constater, j'ai tenter d'importer, en se déplaçant d'abord dans la feuille de destination

Mais la meilleur solution est peut-être d'exporter à partir de la feuille 1 ?

Merci d'avance de votre aide

Bonjour,

voici une adaptation faite sur ta macro Importe_date_valeurs_appréciations. J'ai défini une variable ws qui contient le nom de la feuille en fonction de B6 de la feuille Ppe centri lubri

Sub Importe_date_valeurs_appréciations()

'traitement et importation des valeurs encodées
'recherche la première ligne vide dans le tableau et insère une nouvelle ligne
ws = Sheets("Ppe centri lubri").Range("B6")
Worksheets(ws).Activate 

    Range("A13").Select
    Selection.End(xlDown).Offset(1, 0).Select
    Selection.EntireRow.Insert

'copie de la date
    Sheets("Ppe centri lubri").Select
    Range("D2").Select
    Application.CutCopyMode = False
        Selection.Copy

'colle la date dans le tableau, 1 ligne sous la dernière valeur
    Sheets(ws).Select
        Range("A13").Select
    Selection.End(xlDown).Offset(1, 0).Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True

'copie des valeurs
    Sheets("Ppe centri lubri").Select
    Range("B9:B16,B33:B40,B42:B43").Select
        Selection.Copy

'colle les valeurs dans le tableau
    Sheets(ws).Select
            Range("a13").Select
    Selection.End(xlDown).Offset(0, 1).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True

'copie des appréciations
    Sheets("Ppe centri lubri").Select
    Range("H29:L29").Select
    Application.CutCopyMode = False
        Selection.Copy

'colle les appréciations dans le tableau
    Sheets(ws).Select
    Range("a13").Select
    Selection.End(xlDown).Offset(0, 19).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

End Sub

Bonsoir H2So4

excuse-moi pour cette réponse tardive, mais je me suis absenté cet après midi

La solution que tu propose fonctionne parfaitement.

=> merci beaucoup

En fait, je suis débutant en Excel VBA.

Je ne connaissais pas encore cette notion "ws"

En fait dans l'aide Excel, je ne trouve pas trace de cette notion.

Je vais me documenter.

Dans mon fichier réel, il y à plusieurs feuilles d'encodage de données ± identique à la feuille "Ppe centri lubri"

Je n'ai plus qu'a adapter le nom de feuille

A+

"ws" est le nom d'une variable, j'aurais pu l'appeler "toto" ou "h2so4". Ce qui est important c'est de savoir ce qu'elle contient.