XL 2016 VBA: Sélectionner un onglet à l'aide d'une variable

[Bono13]

Bonjour à tous,
je souhaiterai analyser des données présentes dans différents onglets en choisissant cet onglet via une liste déroulante. Je veux passer par vba pour ne pas avoir à le faire manuellement ou avec une fonction indirect qui ne me permettrait pas de contrôler correctement la taille de la colonne (parfois trop petite, parfois trop grande... puisque dans un tableau)
Donc en fait je voudrais qu'à chaque fois que j'exécute le code, ça aille me chercher la colonne ("C") (Pour l'instant je copie-colle, mais si quelqu'un a une meilleure idée... je suis preneur) de l'onglet sélectionné dans ma liste déroulante de la case ("D7") de ma feuille d'analyse principale.

Mon niveau vba très modeste fait que je planche dessus depuis quelques temps aujourd'hui, sans parvenir à trouver de solutions.
L'erreur se trouve dans la phrase en rouge ci-dessous. Je précise que c'est une erreur "d'incompatibilité de type".

Quelqu'un aurait une piste de réponse à me fournir pour régler mon code?
Bien à vous,
Bono.


Dim NomOnglet As Variant
Dim DernLigne As Long

Sheets("Port_Oblig_mandats").Select
Set NomOnglet = Cells(4.7)


Sheets(NomOnglet).Select
Range("C3").Select


DernLigne = Range("C" & Rows.Count).End(xlUp).Row

Range(Selection, Selection.End(xlDown)).Select
Selection.Copy

Sheets("Port_Oblig_mandats").Select

Range("D21").Select
ActiveSheet.Paste

 

[mutzik]

bonjour
Set NomOnglet = Cells(4,7).value
NomOnglet.select

ou
NomOnglet = Cells(4,7).value
sheets(NomOnglet).select

 

[Bono13]

Bonjour Bertrand,

merci pour ta réponse rapide, malheureusement ça m'affiche une erreur d'incompatibilité de type sur Set NomOnglet = Cells(4,7).value maintenant...

 

[francoisC]

Bonjour as tu un classeur exemple à fournir / Ça aiderait beaucoup merci

 

[Dranreb]

Bonjour.
Essayez comme ça :

Dim FPOM As Worksheet, FOng As Worksheet
Set FPOM = Worksheets("Port_Oblig_mandats")
Set FOng = Worksheets(FPOM.Cells(4, 7).Value)
FOng.[C3].Resize(FOng.Cells(FOng.Rows.Count, "C").End(xlUp).Row - 2).Copy Destination:=FPOM.[D21]

 

[Bono13]

Bonjour.
Essayez comme ça :

Dim FPOM As Worksheet, FOng As Worksheet
Set FPOM = Worksheets("Port_Oblig_mandats")
Set FOng = Worksheets(FPOM.Cells(4, 7).Value)
FOng.[C3].Resize(FOng.Cells(FOng.Rows.Count, "C").End(xlUp).Row - 2).Copy Destination:=FPOM.[D21]

Merci beaucoup ça marche! J'ai un autre problème maintenant mais je vais créer une autre discussion