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 ?