Discussion :

[bapt298]

Bonjour, je ne parviens pas à lire une feuille "services_par_terminal" depuis un commandbutton situé sur une autre feuille, et je ne comprends pas ce qui cloche dans mon code....

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub CommandButton2_Click()
 
    Dim terminal As String
 
    Sheets("services_par_terminal").Select
    service = Range("A3")
    MsgBox (terminal)
 
End Sub

Le message box ne renvoie rien alors qu'il y des données dans ma case A3
Est ce une propriété des MsgBox ?
Encore plus bizarre, quand j'utilise l'appel de la fonction depuis un autre module (Call Module1.afficherterminal ), cela fonctionne.
Si vous pouvez m'aider, ce serait parfait !!

[tedo01]

Bonjour,
J'ai du mal à imaginer que le code puisse fonctionner : la variable terminal affichée par MsgBox n'est jamais initialisée, c'est la variable service est chargée avec la cellule A3...

[fring]

Bonjour,

Essaie simplement ceci :

Code :

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

1
2
3
Private Sub CommandButton2_Click()
    MsgBox Sheets("services_par_terminal").Range("A3")
End Sub

[bapt298]

Bonjour,
J'ai du mal à imaginer que le code puisse fonctionner : la variable terminal affichée par MsgBox n'est jamais initialisée, c'est la variable service est chargée avec la cellule A3...

Oui complètement d'accord, je devais être bien fatigué quand j'ai écrit cela... En fait, ce que j'ai mis ici n'est pas vraiment mon code, mais ça fonctionne sur le même principe.

Cependant, mon problème reste là, j'ai finis par comprendre que ce code ne sélectionnais pas la page "service_par_terminal", mais qu'il restait sur la page dans laquelle est définie mon CommandButton, est ce normal ?

(en fait, il prend ce qui se situe en A3 sur la la feuille1, et je définis les instructions de mon CommandButon dans la page Feuil1("feuille1") situé sous l'onglet Microsoft Excel Objects)


Concernant la réponse de fring,

Bonjour,

Essaie simplement ceci :

Code :

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

1
2
3
Private Sub CommandButton2_Click()
   MsgBox Sheets("services_par_terminal").Range("A3")
End Sub

effectivement cela fonctionne parfaitement, mais dans ce cas j'aurais une autre question. Quelle est la différence entre ces deux code ?

1er code :

Code :

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

1
2
3
Sheets("services_par_terminal").Select
terminal = Range("A3")
MsgBox (terminal)

2nd code

Code :

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

MsgBox Sheets("services_par_terminal").Range("A3")

Merci pour vos réponses !

[fring]

La réponse est qu'il y a plusieurs chemins possibles pour arriver à une même destination mais qu'on essaie d'emprunter généralement le plus court et le plus rapide.
Dans la plupart des cas, il est inutile de passer par des "Select" qui ne font qu’alourdir la procédure, voire même la planter lorsque, par exemple, tu travailles sur des feuilles masquées.
D'autre part tu passes par une variable "terminal" qui, dans ce cas ci ne sert à rien non plus.

[bapt298]

En réalité, j'effectue une boucle dans laquelle je supprime des données situées sur la page services_par_terminal, et c'est pourquoi il me semblait moins lourd de sélectionner seulement une fois la feuille, tu n'es pas d'accord ?

[fring]

tu n'es pas d'accord ?

Non parce qu'il n'est pas nécessaire de sélectionner la feuille mais jusqu'à présent tu n'as rien montré de ton code qui permette de t'aider d'avantage.

[bapt298]

ok ok, merci pour l'aide, je me débrouillerai