Code VBA pour valeur de cellule dans ecriture

Anais · 5 Novembre 2005

Bonjour,j'ai un petit problème,

Voilà, j'ai appliqué à une image, avec une macro, la destination d'un onglet lorsqu'on clique sur cette image.

Ce cose est le suivant:

Sub Image2_QuandClic()
'
' Image2_QuandClic Macro
' Macro enregistrée le 05/11/2005 par Anais
'

'
Sheets('Arrivée').Select
End Sub

Je me suis dit que dès lors si dans une cellule ( exemple la cellule B4 de l'onglet départ), on pouvait écrire le nom de l'onglet de destination, et que le code VBA faisait référence à cette cellule, dès lors on pouvait changer , la destination pour la macro.

J'ai donc écrit dans le code :

Sub Image2_QuandClic()
'
' Image2_QuandClic Macro
' Macro enregistrée le 05/11/2005 par Anais
'

'
Sheets [B4].Select
End Sub

Mais cela ne fonctionne pas.

Pouvez vous m'aider?

Merci

Anais

Sylvain · 5 Novembre 2005

bonjour,

essaie ça, je sais pas pourquoi ça marche et sheets([b4]).select marche mais uniquement avec des numéros.. :

Sub et()
jl = [b4]
Sheets(jl).Select
End Sub

Anais · 5 Novembre 2005

Merci Sylvain, pour ton aide. Mais je ne sais pas comment l'integrer dan smon code. Ja'i fait comme cela mais çà ne marche pas:

Sub et()
jl = [b4]
Sheets(jl).Select
End Sub

Sub Image2_QuandClic()
'
' Image2_QuandClic Macro
' Macro enregistrée le 05/11/2005 par Anais
'

'
Sheets(jl).Select
End Sub

Je suis débutante. Peux tu m'aider stp?

Merci

Anais

Sylvain · 5 Novembre 2005

OK, jl est une variable dans laquelle j'ai mis la valeur de b4 donc il faut le faire dans ton code :

Sub Image2_QuandClic()
'
' Image2_QuandClic Macro
' Macro enregistrée le 05/11/2005 par Anais
'

'
jl = [b4]
Sheets(jl).Select
End Sub

Anais · 5 Novembre 2005

Ca marche, c'est génial, je te remercie beaucoup.

Sais tu si cela peux marcher pour une destination vers d'autres classseurs?

De toute manière je vais essayer, et je te tiens au courant

Merci

Anais

Anais · 5 Novembre 2005

Cela ne fonctionne pas. Dans la case B4, j''ai inscrit le chemin suivant:

C:\\Test\\essai dossier\\classeur d'arrivée\\feuil2.xls

Cela donne le code suivant:

Sub Image2_QuandClic()
'
' Image2_QuandClic Macro
' Macro enregistrée le 05/11/2005 par Anais
'

'
jl = [b4]
Sheets(jl).Select
End Sub

Mais cela ne fonctionne pas. Que dois je faire?

Merci

Anais

Anais

Sylvain · 5 Novembre 2005

je ne sais pas, il s'agit d'un classeur déjà ouvert ? sinon il faut passer par open
Dans le cas où le classeur est ouvert, le plus simple est quand même d'utiliser 2 cellules, une pour la feuille ou pour le classeur

Sub Image2_QuandClic()
'
' Image2_QuandClic Macro
' Macro enregistrée le 05/11/2005 par Anais
'
nom_cla = [B3]
nom_feuil = [B4]

Workbooks(nom_cla).Activate
Sheets(nom_feuil).Activate

End Sub

Code VBA pour valeur de cellule dans ecriture

Anais

Guest

Sylvain

XLDnaute Occasionnel

Anais

Guest

Sylvain

XLDnaute Occasionnel

Anais

Guest

Anais

Guest

Sylvain

XLDnaute Occasionnel

Discussions similaires