Résolu XL 2016 RESOLU Hypertexte, Select et mémoire

sebastien450

XLDnaute Occasionnel
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
 
Ce fil a été résolu! Aller à la solution…
Dernière édition:

BrunoM45

XLDnaute Barbatruc
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

XLDnaute Occasionnel
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.


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

BrunoM45

XLDnaute Barbatruc
Re,

Voici
VB:
With Sheets("Lancement")
    .Hyperlinks.Add Anchor:=.Cells(L + 1, 11), Address:="", SubAddress:="Planning!" & .Cells(c.Row, c.Column).Address
End With
 
Ce message a été identifié comme étant une solution!

Staple1600

XLDnaute Barbatruc
Bonjour le fil

Un chouia trop vite¸ Marcel32 a dit:
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
 

Staple1600

XLDnaute Barbatruc
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 !
;)
 

Staple1600

XLDnaute Barbatruc
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)
;)
 

Marcel32

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

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

Staple1600

XLDnaute Barbatruc
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 ;)

VB:
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
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas