Adresse par Variable

Version imprimable

14/11/2018, 00h45
ABBAN270

Adresse par Variable
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:

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

1 2 3 Sub Image1_Click() Range("A" & count).Value = "Text" End Sub
Merci d'avance
14/11/2018, 03h43
Invité
Citation:

Envoyé par ABBAN270

Bonjour,

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

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.

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

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

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

14/11/2018, 11h00
Invité

Citation:

Envoyé par ABBAN270

Regardez le fichier joint.
14/11/2018, 11h37
ABBAN270

1 pièce(s) jointe(s)

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

Citation:

Envoyé par ABBAN270

Si la variable est une constante :
Code:

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

14/11/2018, 13h37
ABBAN270

La variable (count) est une variable
Je vejt que chaque fois je peut la affecter a une autre valeur

Citation:

Envoyé par ABBAN270

Pas de problème :

Code:

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

14/11/2018, 14h18
ABBAN270

Salut
L'objectif de mon code est de affecter une valeur a mon variable (count) de l'exterieur de ce code.
Cest pour ca que jai ecrit dans mon premier sujet deux code differents
14/11/2018, 14h24
Invité

Citation:

Envoyé par ABBAN270

Voir la solution dans le fichier que je vous ai transmis. Il y a bien un moment où votre variable doit prendre la valeur 2. Dans ma solution, elle prend cette valeur en lançant une procédure qui vous amène sur un userform, mais vous pouvez lancer tout autre procédure.
14/11/2018, 15h13
ABBAN270

Mais cest appel a une fonction d'appel
Esque vous pouvez la faire par forcage d'affectation
Par exemple
Je force (count) par la valeur qui se trouve dans la case A1 par un autre bouton
J'espere que vous m'avez compris
14/11/2018, 15h18
Invité

Citation:

Envoyé par ABBAN270

Avant d'appuyer sur le bouton 1 sur votre onglet, qu'est ce qui s'est passé avant ?
14/11/2018, 15h27
ABBAN270

Je vais te donner le scénario demandé.
Je clique sur bouton1 il me donne (2)
Je vais ajouter une instruction d'incrémentation

Code:

Count=count+1

Quand je clique une autre fois sur bouton1

Code:

Msgbox = 3

Etc.

Maintenant je veux affecter une autre valeur
Par un autre bouton2

Code:

Count=10

Normalement quand j'appuie sur bouton1
Il m'affiche 10
Après 11
Après 12
Etc.

J'espère que vous m'avez compris
14/11/2018, 15h44
Invité
Citation:

Envoyé par ABBAN270

Dans ce cas, j'utiliserais une zone nommée pour définir la valeur de départ, chaque clic incrémenterait sa valeur. Dans votre fichier, j'ai créé la zone nommée ValeurIncrementee en A2.
Le code du bouton
Code:

1 2 3 4 5 6 7 8 9 Sub Bouton1_Cliquer() Count = Sheets("Feuil1").Range("ValeurIncrementee") Count = Count + 1 Sheets("Feuil1").Range("ValeurIncrementee") = Count MsgBox Count End Sub
Si à un moment donné, la valeur de départ doit être 10, vous la changez soit directement manuellement, soit par une autre procédure.

Pièce jointe 426928
14/11/2018, 16h33
ABBAN270

c'est une bonne idée aussi...
Merci pour votre temp Eric

Bonjour,

Une autre solution est de passer par une variable Static.
Exemple avec trois boutons dans la feuille :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Option Explicit
 
Private Sub CommandButton1_Click()
Static Valeur As Long
Const Valeur_Initiale As Long = 10
    If Valeur = 0 Then
        Valeur = Valeur_Initiale
    Else
        Valeur = Valeur + 1
    End If
    MsgBox Valeur
End Sub
 
Private Sub CommandButton2_Click()
Static Valeur As Long
Const Valeur_Initiale As Long = 25
    If Valeur = 0 Then
        Valeur = Valeur_Initiale
    Else
        Valeur = Valeur + 1
    End If
    MsgBox Valeur
End Sub
 
Private Sub CommandButton3_Click()
Static Valeur As Long
Const Valeur_Initiale As Long = 0
    If Valeur = 0 Then
        Valeur = Valeur_Initiale
    Else
        Valeur = Valeur + 1
    End If
    MsgBox Valeur
End Sub

Le problème étant qu'à chaque ouverture du classeur, on repart à zéro...
Si le but est de continuer là ou on était arrivé, il faut stocker la "Constante" dans une cellule, et oublier les variables Static (cf solution d'Eric que je salue au passage)...
Soit :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Option Explicit
 
Private Sub CommandButton1_Click()
Dim Valeur As Long
    Valeur = Range("A1").Value + 1
    Range("A1").Value = Valeur
End Sub
 
Private Sub CommandButton2_Click()
Dim Valeur As Long
    Valeur = Range("A2").Value + 1
    Range("A2").Value = Valeur
End Sub
 
Private Sub CommandButton3_Click()
Dim Valeur As Long
    Valeur = Range("A3").Value + 1
    Range("A3").Value = Valeur
End Sub