Copier macro dans toutes les cellules

[kaelble]

Bonjour à tous,

J'ai un petit problème qui ne devrait pas être compliqué, je pense à résoudre.
J'ai une macro qui me change le lien hypertexte d'une cellule en reprenant le texte de cette cellule.
Comment faire pour que ce changement se repète sur toutes les cellules d'une colonne.
C'est à dire une macro qui dit faire la macro 1 puis passer à la cellule du dessous faire la macro 1 puis passer à la cellule dessous et ainsi de suite.

Merci

 

[dg62]

Re : Copier macro dans toutes les cellules

bonjour Kaelble


si j'ai bien compris une boucle devrait suffire


for each Cel in range(à définir)

traitement


next Cel


Bonne journée

 

[porcinet82]

Re : Copier macro dans toutes les cellules

Salut,

Ca aurait été plus simple si tu nous avait mis ton code, on aurait pu directement adapter. Mais je dirais quelque chose de ce genre (en supposant que tes données soit dans la colonne A, si cen'est pas le cas, change le 1 de Cells(i,1) ):

Sub ta_macro()
Dim i As Integer
For i = 1 To 100 [COLOR=seagreen]'a toi d'adapter la longueur de ta colonne[/COLOR]
    Cells(i,1).Value=[COLOR=seagreen]'ton code pour faire le lien hypertexte[/COLOR]
Next i
End Sub

@+

Edition : Salut Didier, désolé, pas rafraichit...

 

[kaelble]

Re : Copier macro dans toutes les cellules

merci pour vos réponses

Voici la macro que je voudrais répéter dans toutes les cellules d'une même colonne :

Sub Hyper()
'
Selection.Hyperlinks.Delete
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
"P_" + ActiveCell + ".jpg"
End Sub

Cette macro me permet de changer le lien hypertexte d'une cellule.
Je ne sais pas écrire la boucle qui me permet de répeter cette macro d'une cellule à l'autre. Il y en 2400 dans la feuille et je voudrais pouvoir toutes les changer.

 

[porcinet82]

Re : Copier macro dans toutes les cellules

re,

Je ne comprends pas tres bien le Address:="P_" + ActiveCell + ".jpg" donc je dirais un truc de ce genre. Je pense qu'avec cette base, tu devrais arriver à l'arragner comme tu le souhaites.

Sub Hyper()
Dim i As Integer
Columns(1).Hyperlinks.Delete
For i = 1 To 100
    Cells(i, 1).Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="P_" + ActiveCell + ".jpg"
Next i
End Sub

@+

 

[kaelble]

Re : Copier macro dans toutes les cellules

merci je vais essayer

chaque cellule ouvre une image qui porte le nom inscrit dans la cellule précédé de P_
par exemple pour la cellule table_01
P_table_01.jpg

je suis débutant et c'est peut-etre pas la façon la plus élégante de la faire mais ça marche

 

[dg62]

Re : Copier macro dans toutes les cellules

Bonjour porcinet

For Each c In Range("A5:A20") ' à adapter
ActiveSheet.Hyperlinks.Add Anchor:=c, Address:="P_" + ActiveCell + ".jpg"
Next c

 

[kaelble]

Re : Copier macro dans toutes les cellules

Romain

Merci 100 000 fois !

Ca marche !

Serge