Trasnfert une formule vers une macro

nonossov Messages postés 610 Date d'inscription   Statut Membre Dernière intervention   -  
fabien25000 Messages postés 673 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour mes amis,

Je vouderai avoir une macro qui fait la meme tache de cette formule :

=LIEN_HYPERTEXTE(STXT(CELLULE("nomfichier";A1);1;TROUVE("[";CELLULE("nomfichier";A1))-1)&A1&"")


Cette formule donne un lien hypertexet sur un fichier excel.

Dans la colonne A existe le nom de fichier,

Est ce qu'il est possible de transfert cette formule vers une macro pour que la macro s'applique sur la colonne A,

et je ne serai pas obliger de faire copier coller du formule.

Merci de m'aider SVP,

Merci infinimet


Configuration: Windows / Firefox 52.0
A voir également:

2 réponses

yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 584
 
bonjour, veux-tu simplement que la macro enregistre la formule dans certaines cellules?
0
nonossov Messages postés 610 Date d'inscription   Statut Membre Dernière intervention  
 
ce que je veux au lieu de faire copier coller sur la colonne entiere la macro s'applique la formule sur la colonne C:C jusqu'a la cellule non vide
0
fabien25000 Messages postés 673 Date d'inscription   Statut Membre Dernière intervention   59 > nonossov Messages postés 610 Date d'inscription   Statut Membre Dernière intervention  
 
et étirer la formule n'est pas suffisant comme solution?
0
nonossov Messages postés 610 Date d'inscription   Statut Membre Dernière intervention  
 
Franchement j'ai déja d'autre macro et je veux associer cette macro avec les autres
0
fabien25000 Messages postés 673 Date d'inscription   Statut Membre Dernière intervention   59
 
et ces autres macro font quoi? on a peut être pas besoin de tout ré-écrire mais qu'une ligne à rajouter..?
0
fabien25000 Messages postés 673 Date d'inscription   Statut Membre Dernière intervention   59
 
Worksheets("NOMDETAFEUILLE").Range(ADEFINIRPARTESSOINS).Formula = "=HYPERLINK(MID(CELL("nomfichier";A1);1;FIND("[";CELL("nomfichier";A1))-1)&A1&"")" 

Voilà comment ça s'écrit reste à donner les variables pour les cellules dans la boucle
0