Mettre la valeur d'une cellule range() dans une variable

[Carl L.Wyman]

Bonjour à tous,
J'avais un peu abandonné le développement et puis cela me reprends mais je bute sur le plus simple :
CTR = A3 pas de problème
si je fais : Range("J" & ligne-1) = CTR pas de problème mais si je fais :
CTR = Range("J" & ligne) avec ou sans .value, message "incompatibilité de type
Mon code :
' Séparateur de catégorie
'
Dim ligne As Integer
Dim CTR As Integer
Dim Gris As Integer
Gris = 0
CTR = Range("J2").Value
For ligne = 3 To 60 'pour examiner les lignes 2 à xCarton,

If Range("A" & ligne) <> Range("A" & ligne - 1) Then 'IF UN
' On Change de Catégorie
Range("B" & ligne - 1) = CTR 'Sous Total
Range("J" & ligne).Select 'On change de catégorie
CTR = ActiveCell.Value() --> message " incompatibilité de Type"

Merci pour votre aide. JP

 

[Dranreb]

Bonjour.
Je suis fondé à penser que c'est parce que votre cellule vaut autre chose qu'un nombre compris entre -32767 et +32767 ni non plus une donnée convertible en cela.