Inscrire le contenu d'une variable dans une cellule

Bonjour, J'aimerais pouvoir inscrire le contenu d'une variable (n) dans une cellule (BJ9) dans excel 2003, mais je n'y arrive pas. Voici le code que j'utilise. Tout fonctionne bien, mais la valeur ne s'inscrit pas dans BJ9.

Merci
;)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Private Sub CommandButton1_Click() Dim plage As Range Dim cel As Range Dim n As Long   'On travaille sur la feuille 1 Set plage = Application.Sheets(1).Range("A1:AW45") 'on cherche dans la plage A1:AW45 par exemple n = 0 For Each cel In plage If cel.Value = "OD-LP" Then 'LE MOT OD-LP n = n + 1 'compteur End If Next Range("BJ9") = n ' Cette ligne ne semble pas fonctionner   End Sub

---

bonjour,

as tu vérifié le résultat de ton calcul ? valeur de n en mode debug ?
(II-1-5. Info-bulle automatique )

sinon une règle il faut toujours préciser devant la feuille concernée lorsque tu utilise Range..

Code:

---

Thisworkbook.sheets(1).Range("BJ9") = n '

---

Ok merci. J'avais un problème de formatage tout fonctionne bien:P