Discussion :

[Claude_B]

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

[SfJ5Rpw8]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Claude_B]

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