Discussion :

[lionel62620]

Bonjour,
J'ai trouver un tuto pour faire un agenda sur youtube. J'ai suivi, étape par étape toute les indications mais a l'exécution de mon code, j'ai une erreur "1004" qui ne se produit pas sur le tuto. J'ai bien vérifier le code mainte fois, sans trouver d'erreur : tout est strictement identique au tuto, et pourtant, j'ai une erreur sur cette ligne :

Code :

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

1
2
3
4
5
6
 
Dim texte As String
    Sheets("Feuil1").TextBox1.Select
    texte = Range(onglet & "!" & colonne & Range("A3").Value)
 
    Sheets("Feuil1").TextBox1.Value = texte

Si quelqu'un a une idée pour le débutant que je suis.
Merci d'avanceOrganiser.xlsm

[Docmarti]

Regarde plutot ces 2 tutos.

Référence à des cellules et des plages en utilisant la Notation A1


Guide du développeur pour l'objet de plage Excel

[lionel62620]

Merci Docmartin, mais ca ne m'aide pas du tout

[unparia]

Bonjour

Merci Docmartin, mais ca ne m'aide pas du tout

Et toi : comment veux-tu que l'on puisse t'aider sur la seule base de ce que tu nous montres ici (il est hors de question que j'ouvre un classeur tiers pour découvrir le reste) ?
La moindre des choses serait de :
- nous montrer ou et comment a été déclarée et initialisée la variable onglet et ce qu'elle vaut en mode debug
- nous montrer ou et comment a été déclarée et initialisée la variable colonne et ce qu'elle vaut en mode debug
- nous dire ce que contient en mode debug la cellule A3 de la feuille où tu "puises".

[Docmarti]

Correction.

Les 3 syntaxes suivantes sont correctes en VBA.

Code :

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

1
2
3
4
5
6
 
a = Worksheets("2015").range("E18")
 
a = feuil4.range("E18")
 
a = range("2015!E18")

Je connaissais la premiere et la deuxieme mais je n'avais jamais rencontre la troisieme. Merci de me la faire decouvrir.


Dans ton probleme,

Code :

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

texte = Range("onglet" & "!" & "colonne" & Range("A3").Value)

tu utilises 2 syntaxes : la troisieme - range("onglet!colonne ligne") - et une autre - Range("A3") - celle-ci etant soit la premiere syntaxe, soit la deuxieme. On ne sait pas vraiment laquelle car tu n'y as pas mis de reference a un onglet.


Ceci etant dit, ton code fonctionnerait mieux comme ceci :

Code :

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

1
2
3
4
5
6
 
onglet = "2015"
colonne = "E"
jour = Sheets("Feuil1").Cells(3, 1).Value
 
texte = Range(onglet & "!" & colonne & jour)

Tu vois que les mots onglet, colonne et jour ne sont pas entre parentheses car ces mots ne sont pas du texte mais des variables qui contiennent une valeur.

Personnellement, je prefererais la premiere syntaxe. Question d'habitude je suppose car les autres syntaxes sont tout aussi valables.
J'ecrirais :

Code :

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

texte = Worksheets(onglet).Range(colonne & ligne).Value