Syntaxe code

[Benjy]

Bonjour à tous j'ai un petit problème de syntaxe avec ce code :

ActiveWorkbook.Names("Affaires").RefersToR1C1 = _
        "=Listes!R12C5:R20C5"

Le code se lance au démarrage et sera quelque chose du type :

Private Sub Workbook_Open()
Dim T As Integer

T = Range("E65536").End(xlUp).Row
ActiveWorkbook.Names("Affaires").RefersToR1C1 = _
        "=Listes!R12C5:R20C5"
End sub

J'aimerais connaître la syntaxe pour mettre ma variable T dans le code... J'ai tenté :

ActiveWorkbook.Names("Affaires").RefersToR1C1 = _
        "=Listes!R12C5:R & TC5"

Mais ce n'est pas sa.

Merci d'avance,

Ben

 

[bond]

Re : Syntaxe code

Essayes comme ça :
"=Listes!R12C5:R" & T & "C5"

 

[Benjy]

Re : Syntaxe code

Bonjour Bond

Hum aucune erreur à la compilation mais la liste n'est pas modifiée.

 

[job75]

Re : Syntaxe code

Bonjour,

(...) mais la liste n'est pas modifiée.

Ici Londres, les muets parlent aux sourds

A+

 

[Benjy]

Re : Syntaxe code

La manipulation consiste a modifier une liste pour un menu déroulant au démarrage du fichier.

Avant cette manipulation j'ai une autre fonction qui peut ou non suivant conditions m'apporter des nouveau choix dans la liste.

De base la liste est définie de E12 à E25

A l'ouverture du fichier il est donc possible d'avoir des valeurs en E26, E27 etc qui doivent être prisent en compte dans la liste. Il faut donc au démarrage que la liste s'actualise suivant la dernière cellule non vide.

En gros :

T = Range("E65536").End(xlUp).Row
ActiveWorkbook.Names("Affaires").RefersToR1C1 = _
        "=Listes!R12C5:R et [B]dernière cellule non vide[/B]C5"

Je cherche la syntaxe exacte pour écrire ceci.

 

[JNP]

Re : Syntaxe code

Bonjour le fil ,
Histoire de proposer une solution écrite pour les aveugles ...
Pourquoi ne pas passer par une gestion dynamique de la liste en formule ...
Type (il semblerait que ce soit la colonne E qui t'intéresse)

=DECALER(Feuil1!$E$1;;;NBVAL(Feuil1!E:E))

sans entête, ou avec une ligne d'entête

=DECALER(Feuil1!$E$2;;;NBVAL(Feuil1!E:E)-1)

Bonne soirée

 

[job75]

Re : Syntaxe code

Bonjour le forum, salut Jean-Noël

Certains ne jurent que par VBA.

Et il est vrai que la fonction DECALER présente un "inconvénient" : elle est volatile, il y a un message à la fermeture du fichier même sans modification.

Alors dans le code de la feuille Listes (clic droit sur l'onglet et Visualiser le code) :

Private Sub Worksheet_Change(ByVal Target As Range)
Range("E12", [E65536].End(xlUp)).Name = "Affaires"
End Sub

A+

 

[Benjy]

Re : Syntaxe code

Merci le code fonctionne !
Le code de Bond fonctionne également l'erreur venait de moi.

Encore merci,

Ben