Discussion :

[ABBAN270]

salut a tous
je voulez d'avoir le "Text" dans la case (A2)
mais toujour je rcoit le message d'erreur (1004)
y a-t-il d'explication
Voila le code

Code :

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

1
2
3
4
Public Sub test()
Dim count As Integer
count = 2
End Sub

Code :

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

1
2
3
Sub Image1_Click()
Range("A" & count).Value = "Text"
End Sub

Merci d'avance

[Invité]

Bonjour,

C'est la portée de votre variable qui ne va pas :

Code :

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

1
2
3
4
5
6
7
8
 
Public count As Integer
 
Public Sub test()
 
        count = 2
 
End Sub

Nb : Je changerais le nom de la variable pour éviter toute ambiguïté avec la propriété count.

[ABBAN270]

Merci mais la valeur de variable (count) toujour reste "0"
Normalement il affiche "2" avec ce code

Code :

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

1
2
3
4
5
6
7
8
 
Public count As Integer
 
Public Sub test()
 
        count = 2
 
End Sub

Code :

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

1
2
3
4
 
Sub Image1_Click()
Msgbox (count)
End Sub

[Invité]

Regardez le fichier joint.

[ABBAN270]

Votre code c'est juste un appele direct a la fonction TEST
mais je veut faire juste appel a la variable (Count)
Voila mon fichier

[Invité]

Si la variable est une constante :

Code :

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

1
2
3
4
5
6
 
Public Const count As Integer = 2
 
Sub Bouton1_Cliquer()
   MsgBox (count)
End Sub