Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Si cellule A = 1 sheets A1.select ?

6 réponses
Avatar
Vincent
Bonsoir.
J'ai un fichier avec dans la colonne A un numéro par ligne de 1 à 30,
comment faire
afin qu'après clic dans la cellule A, puis après clic sur un bouton, cela
sélectionne la page en question, sachant que les pages se nomme A1 à A30,
mais le pb, c'est qu'il y a plein d'autres pages.
Merci beaucoup.

6 réponses

Avatar
Starwing
Salut,

Tu n'as jamais pensé à utiliser le lien hypertexte?

Starwing
Avatar
Vincent
Bonsoir, dans ce cas non !
S'il était possible une proc, mais voilà, je butte sur l'écriture.
merci pour ton aide.
Vincent

"Starwing" a écrit dans le message de
news:323501c4a001$f9b4e590$
Salut,

Tu n'as jamais pensé à utiliser le lien hypertexte?

Starwing
Avatar
claudy
Bonsoir...
en cliquant deux fois dans ta cellule ...

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
Sheets("A" & Selection.Value).Select
End Sub

A+
Claudy
"Vincent" a écrit dans le message de news:
OzRij$$
Bonsoir.
J'ai un fichier avec dans la colonne A un numéro par ligne de 1 à 30,
comment faire
afin qu'après clic dans la cellule A, puis après clic sur un bouton, cela
sélectionne la page en question, sachant que les pages se nomme A1 à A30,
mais le pb, c'est qu'il y a plein d'autres pages.
Merci beaucoup.




Avatar
JpPradier
Bonjour Vincent

Feuille= Activecell.value
Worksheets("A" & Feuille).Activate

j-p
Avatar
Vincent
Merci Claudy, j'y étais presque...
Vincent

"claudy" a écrit dans le message
de news:415069ad$0$844$
Bonsoir...
en cliquant deux fois dans ta cellule ...

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
Sheets("A" & Selection.Value).Select
End Sub

A+
Claudy
"Vincent" a écrit dans le message de news:
OzRij$$
Bonsoir.
J'ai un fichier avec dans la colonne A un numéro par ligne de 1 à 30,
comment faire
afin qu'après clic dans la cellule A, puis après clic sur un bouton,
cela


sélectionne la page en question, sachant que les pages se nomme A1 à
A30,


mais le pb, c'est qu'il y a plein d'autres pages.
Merci beaucoup.








Avatar
Vincent
Merci beaucoup
Vincent

"JpPradier" a écrit dans le message
de news:
Bonjour Vincent

Feuille= Activecell.value
Worksheets("A" & Feuille).Activate

j-p