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 : Sélectionner tout - Visualiser dans une fenêtre à part
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