Copier macro dans toutes les cellules

dg62

XLDnaute Barbatruc

• 15 Décembre 2006

• #2

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

 

Vote positif 0 Vote négatif

porcinet82

XLDnaute Barbatruc

• 15 Décembre 2006

• #3

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

Code:

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

 

Vote positif 0 Vote négatif

K

kaelble

Guest

• 15 Décembre 2006

• #4

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.

 

Vote positif 0 Vote négatif

porcinet82

XLDnaute Barbatruc

• 15 Décembre 2006

• #5

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.

Code:

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

@+

 

Vote positif 0 Vote négatif

K

kaelble

Guest

• 15 Décembre 2006

• #6

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

 

Vote positif 0 Vote négatif

dg62

XLDnaute Barbatruc

• 15 Décembre 2006

• #7

Re : Copier macro dans toutes les cellules

Bonjour porcinet

Code:

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

 

Vote positif 0 Vote négatif

K

kaelble

Guest

• 15 Décembre 2006

• #8

Re : Copier macro dans toutes les cellules

Romain

Merci 100 000 fois !

Ca marche !

Serge

 

Vote positif 0 Vote négatif