XL 2016 RESOLU Hypertexte, Select et mémoire

[sebastien450]

Bonjour,
Ci-dessous mon code pour créer des liens hypertextes avec variables qui fonctionne.
J'ai un soucis de "mémoire insuffisante" qui je le pense est liée à la méthode Select.

J'ai cherché, mais je ne sais pas comment éviter le sheets.activate puis cells.select ?

Sheets("Lancement").Activate
Cells(L + 1, 11).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="Planning!" & Cells(c.Row, c.Column).Address
Sheets("Planning").Activate

Merci

Sébastien 450

 

[Compte Supprimé 979]

Bonjour Sébastien450

Je ne pense pas que cela vienne des Select, mais il est clair qu'il faut les éviter

En l'état, ton code n'est pas assez explicite, d'ou vient "c.row"

Nota ; le code se met entre les balises [ code] et [ /code] sans espace après les [

A+[/code]

 

[sebastien450]

Merci de ton retour,
C.Row et C.Column correspondent à des variables, mais j'ai essayé avec des données fixes et le résultat est identique.
Est-ce possible d'éviter les selects car je pense qu'il garde en mémoire des données et comme ma macro balaye pas mal de lignes, je me retrouve avec le message.

Sheets("Lancement").Activate
Cells(1, 11).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="Planning!" & Cells(c.Row, c.Column).Address
Sheets("Planning").Activate

 

[Compte Supprimé 979]

Re,

Voici

With Sheets("Lancement")
    .Hyperlinks.Add Anchor:=.Cells(L + 1, 11), Address:="", SubAddress:="Planning!" & .Cells(c.Row, c.Column).Address
End With

 

[TooFatBoy]

Bonjour,

C.Row et C.Column correspondent à des variables

Est-ce que ce ne serait pas plutôt c qui serait une variable (de type "Range") ?

Si c'est bien le cas, est-ce qu'on ne pourrait pas remplacer .Cells(c.Row, c.Column).Address par .c.Address ?

 

[Staple1600]

Bonjour le fil

Si c'est bien le cas, est-ce qu'on ne pourrait pas remplacer .Cells(c.Row, c.Column).Address par .c.Adress ?

Assurément pas...
mais par c.Address assurément oui.

Ok je sors

 

[TooFatBoy]

Assuémrent pas
mais par c.Address assurément oui

Ah, intéressant. Peux-tu expliquer pourquoi il faut enlever le point, s'il te plait ?
Est-ce que c fait forcément à l'ActiveSheet ?

 

[Staple1600]

Re

•>Marcel32
Relis bien mon message
(et trouve ta coquille )

 

[TooFatBoy]

OK, vu.
Mais il faut le point ou pas ?

 

[Staple1600]

Re

Point ou pas point, c'est pas cela qui m'a interpellé
(c'est le d en moins)
Confiné, pour confiné, j'en suis rendu à signaler une coquille.
Quand est-ce qu'on déconfine !!!
Je ne suis pas une célébrité, mais sortez-moi de là, quand même !

 

[TooFatBoy]

Point ou pas point, c'est pas cela qui m'a interpellé

Si je dis "OK, vu." et que je corrige, c'est probablement que j'ai compris ce que tu voulais dire !
Et cette réponse ne répond pas vraiment à ma question...

 

[Staple1600]

Re

Oui et alors ?
C'est ma réponse
On aura compris que le message#6 n'était là que pour faire la blague.
(Tout comme le message#10)

 

[TooFatBoy]

Oui, ça aussi on l'avait bien compris...
Mais ça ne répond toujours pas à MA question !

Si tu ne sais pas non plus, il suffit de dire "je ne sais pas". Perso, je n'y vois aucune honte.

 

[Staple1600]

Re

La réponse étant dans ta réponse, mais je ne pensais devoir répondre à ta question relative à ma réponse à ta réponse
Bref voici que de quoi finaliser le point

Sub Juste_une_mise_au_Point(Optional Jackie_Quartz)
Dim anche_matin As Worksheet, Lig&, Col&
Lig = 1600
Col = 19
Set anche_matin = ActiveSheet
With anche_matin
Set p = .Cells(Lig, Col)
End With
MsgBox anche_matin.Cells(Lig, Col).Address(0, 1604 - Lig)
MsgBox p.Address(Col * 100 - 300, 0)
End Sub