Problème Typage VBA

[testation]

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 :

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

 

[Pierrot93]

Re : Problème Typage VBA

Bonjour,

non testé, mais modifie peut ^tre comme suit :

Range(Range("C7"), Cells(lig ,col) ).Select

bon après midi
@+

 

[testation]

Re : Problème Typage VBA

Nickel ! au top Pierrot merci bien

Bonne soirée