Transformé du texte en code ?

[Charly88]

Voilà tout est dans le titre, je dois à un moment définir une zone composée plusieurs cellules, par exemple :

Union(Cells(1, 1), Cells(1, 2), Cells(3, 1), Cells(4, 5)).Select

Seulement, cette zone est appelée à varier selon des choix effectués et si la précédente ligne correspond à un choix de 4 (cellules), la suivante serait un choix de 5 :

Union(Cells(1, 1), Cells(1, 2), Cells(3, 1), Cells(4, 5), Cells(6, 6)).Select

N'ayant peur de rien, je me voyais très bien découper ce code en 3 morceaux de texte : début, rajout et fin mais, ça va vous épater, excel n'est pas aussi tordu que moi et que lorsque je lui colle ma valeur (string) suivie de diverses commandes, il ne comprend pas...

Y'a-t-il une solution, un changement de type, un copié-collé de cellule ou que sais-je encore pour "réactiver" mon texte ou bien voyez-vous une toute autre solution ?


Gros merci à ceux qui vont gamberger là-dessus.

 

[Guest]

Re : Transformé du texte en code ?

Bonjour Charly,

La manière la plus simple:

Chaine="A1,B1,A3,D5" 
chaine=chaine & "," & cells(6,6).address(0,0
range(Chaine).select

Ou mettre les adresses dans des constantes en tête de procédure ou modules

Const Plage_Machin="A1,B1,A3,D5"
Const Plage_Truc=Plage_Machin & ",F6"
 
If bidule then
    RAnge(Plage_Machin).Select
Else
    Range(Plage_Truc).Select
End if

A bientôt

 

[wilfried_42]

Re : Transformé du texte en code ?

bonjour

je ne pense pas que tu en soit tres loins

t'est il possible de faire une boucle ? en fonction d'un point de depart et d'un point d'arriver
exemple : cellule selectionee : F6, selection : A1, B2,C3,D4,E5,F6

Dim c as range, i as long
set c = range("A1")
for i = 2 to selection.row
    set c= union(c, cells(i,i))
next i
c.select

ceci n'est qu'un exemple

edit: oups Bonjour Hasco

 

[Charly88]

Re : Transformé du texte en code ?

Merci à tous les deux, je vais m'y attaquer de ce pas. Je pense que je vais commencer par étudier la première solution d'Hasco pour le moment et j'aurais une petite question à ce propos, à quoi sert le address(0,0) ?
Sans, il y a plantage, mais avec, modifié en (1,1) ou (4,2) ou même en laissant seulement Address, rien ne change sur la sélection... ?

 

[Guest]

Re : Transformé du texte en code ?

Bonjour Charly,

Address(0,0) ranvoie une adresse de plage ou de cellule sous la forme A1 (sans les $ de référence absolue)

quand tu as un doute sur la syntaxe d'un mot, place le curseur dessus et fait F1.

A bientôt