Bonjour amis excelleur !
Lorsque j'essaie de lancer ma macro j'obtient une "Erreur d’exécution 13: Incompatibilité de type" sur la dernière ligne de mon code
En fait j'ai les limites d'un tableaux qui sont susceptible de changer lorsque je change de lieu dans la liste déroulante, je les ai donc rangée dans des variables, malheureusement, je ne vois pas comment exploiter ces variables lors d'une instruction "Range"
Ce lien n'existe plus
Voici mon bout de code :
( La suite n'est pas importante, c'est simplement la mise en forme du tableau)
Donc mon but est d'arriver a sélectionner mon range avec les variables "col" et "lig",merci de votre aide
Lorsque j'essaie de lancer ma macro j'obtient une "Erreur d’exécution 13: Incompatibilité de type" sur la dernière ligne de mon code
En fait j'ai les limites d'un tableaux qui sont susceptible de changer lorsque je change de lieu dans la liste déroulante, je les ai donc rangée dans des variables, malheureusement, je ne vois pas comment exploiter ces variables lors d'une instruction "Range"
Ce lien n'existe plus
Voici mon bout de code :
Code:
Sub MiseFormeTab()
Dim lig As Long
Dim col As Integer
lig = 7
Do While Not IsEmpty(Range("B" & lig))
lig = lig + 1
Loop
lig = lig - 7
col = Cells(6, Columns.Count).End(xlToLeft).Column
Range(Range("C7"), Columns(col) & lig).Select( La suite n'est pas importante, c'est simplement la mise en forme du tableau)
Donc mon but est d'arriver a sélectionner mon range avec les variables "col" et "lig",merci de votre aide