Probleme declaration variable

Bonsoir à toutes et tous.

Voici mon soucis: dans le code qui suit tout va bien je mets le nom de la cellule [data!PremLigneT_2_1] dans la variable nomcell

et la ligne d'après je l'utilise tout fonctionne très bien.

Sub Cacher_Afficher_T_2_1()
  Dim PremLigneTab As Integer
  Dim NbLig As Integer
  Dim Position As Range

Set fd = Sheets("data")
Set nomcell = [data!PremLigneT_2_1]

PremLigneTab = nomcell.Offset(1, 0).Value
'
'le reste du code est sans intérêt
'
End Sub

Maintenant je voudrai que le "Set nomcell = [data!PremLigneT_2_1]" soit dans une autre macro sauf que là je bloque sur la déclaration de la variable impossible de trouver ce qu'il faut mettre ... dès que j'appelle cette sous macro Def_Cell_T_2 j'ai des erreurs à la ligne PremLigneTab=nomcell.Offset(1, 0).Value qui fonctionnait très bien sur l'exemple au dessus.

Sub Def_Cell_T_2()
  Dim nomcell As ??????????
Set nomcell = [data!PremLigneT_2_1]
End Sub 

Sub Cacher_Afficher_T_2_1()
  Dim PremLigneTab As Integer
  Dim NbLig As Integer
  Dim Position As Range

Set fd = Sheets("data")

Call Def_Cell_T_2

PremLigneTab = nomcell.Offset(1, 0).Value 
'
'le reste du code est sans intérêt
'
End Sub

Un p'tit coup de main svp ?

salut pokypok,

essaie

Dim nomcell

sans le As

sinon

Dim nomcell As Range

Merci pour ton aide mais non aucun des deux cas ne fonctionne pas

pokypok a écrit :

Merci pour ton aide mais non aucun des deux cas ne fonctionne pas

Bonjour,

cà veut dire quoi cette partie ?

Set nomcell = [data!PremLigneT_2_1]

nomcell est égal à quoi exactement ?

Bonjour pokypok, bonjour Xmenpl ,

sorry j'ai pas bien lû le contenu, je pensais que c'est juste un problème de déclaration

essaie comme ca (si j'ai bien compris ce que tu cherche à faire!)

Public Function Def_Cell_T_2() As Range
    Set Def_Cell_T_2 = [PremLigneT_2_1]
End Function
Sub Cacher_Afficher_T_2_1()
  Dim PremLigneTab As Integer
  Dim NbLig As Integer
  Dim Position As Range
  Dim nomcell

Set fd = Sheets("data")

PremLigneTab = Def_Cell_T_2().Offset(1, 0).Value
'
'le reste du code est sans intérêt
'
End Sub

Bonne journée

AU TOOOOOOPPPPP merci beaucoup ça fonctionne