Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel boucle et fin

boucle et fin

9 réponses
Avatar
DENIS
Bonsoir,

Je souhhaiterais que l'instruction commence en A10.
Un nom de fichier se trouve en cellule A. Un hyperlinks s'ajoute en cellule
G de la meme ligne.
Et que cette action se répète vers le bàs jusqu'à ce qu'il n'y ai plus
d'info (nom de fichier) en colonne A

ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="k:\" &
Cells.Range("a10") & ".jpg"

Ceci doit permettre d'ouvrir un fichier jpg du meme nom sur le disque K:\

Merci
Denis
Signaler un problème avec ce contenu

9 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
h2so4
bonsoir,

sub stopouanchor() :'o)
i=1
while activesheet.cells(i,1)<>""
activesheet.cells(i,7).select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="k:" & _
Cells(i,1) & ".jpg"
i=i+1
wend
end sub

"DENIS" wrote in message
news:
Bonsoir,

Je souhhaiterais que l'instruction commence en A10.
Un nom de fichier se trouve en cellule A. Un hyperlinks s'ajoute en
cellule
G de la meme ligne.
Et que cette action se répète vers le bàs jusqu'à ce qu'il n'y ai plus
d'info (nom de fichier) en colonne A

ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="k:" &
Cells.Range("a10") & ".jpg"

Ceci doit permettre d'ouvrir un fichier jpg du meme nom sur le disque K:

Merci
Denis


Avatar
DENIS
Bonsoir,

Ca ne fonctionne pas. Rien ne se produit.
Pourtant à partir de A10 se trouve un nom de fichier, en A11, A12 etc.
La macro devrait créer un hyperlink "k:"nom du fichier".jpg" en colonne G
de la meme ligne jusqu'a ce qu'aucune info se trouve en colonne A.

pourquoi ?
Merci



bonsoir,

sub stopouanchor() :'o)
i=1
while activesheet.cells(i,1)<>""
activesheet.cells(i,7).select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="k:" & _
Cells(i,1) & ".jpg"
i=i+1
wend
end sub

"DENIS" wrote in message
news:
Bonsoir,

Je souhhaiterais que l'instruction commence en A10.
Un nom de fichier se trouve en cellule A. Un hyperlinks s'ajoute en
cellule
G de la meme ligne.
Et que cette action se répète vers le bàs jusqu'à ce qu'il n'y ai plus
d'info (nom de fichier) en colonne A

ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="k:" &
Cells.Range("a10") & ".jpg"

Ceci doit permettre d'ouvrir un fichier jpg du meme nom sur le disque K:

Merci
Denis







Avatar
h2so4
bonsoir,

à partir de quelle ligne y a-t-il une valeur ?

replace i=1 par i= numéro de la 1ère ligne contenant une valeur .j'ai cru
comprendre que c'était à partir de la ligne 10 ?

donc i



"DENIS" wrote in message
news:
Bonsoir,

Ca ne fonctionne pas. Rien ne se produit.
Pourtant à partir de A10 se trouve un nom de fichier, en A11, A12 etc.
La macro devrait créer un hyperlink "k:"nom du fichier".jpg" en colonne G
de la meme ligne jusqu'a ce qu'aucune info se trouve en colonne A.

pourquoi ?
Merci



bonsoir,

sub stopouanchor() :'o)
i=1
while activesheet.cells(i,1)<>""
activesheet.cells(i,7).select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="k:" & _
Cells(i,1) & ".jpg"
i=i+1
wend
end sub

"DENIS" wrote in message
news:
Bonsoir,

Je souhhaiterais que l'instruction commence en A10.
Un nom de fichier se trouve en cellule A. Un hyperlinks s'ajoute en
cellule
G de la meme ligne.
Et que cette action se répète vers le bàs jusqu'à ce qu'il n'y ai plus
d'info (nom de fichier) en colonne A

ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="k:" &
Cells.Range("a10") & ".jpg"

Ceci doit permettre d'ouvrir un fichier jpg du meme nom sur le disque
K:

Merci
Denis









Avatar
DENIS
oui à partir de la ligne 10 mais ca continue. A10, A11, A12 etc. Il s'agit
d'une base qui grossit au fur à mesure. Donc, que cette opération se répète
de haut en bas à partir de A10, jusqu'a qu'aucune donnée ne se trouve en
cellule A?


bonsoir,

à partir de quelle ligne y a-t-il une valeur ?

replace i=1 par i= numéro de la 1ère ligne contenant une valeur .j'ai cru
comprendre que c'était à partir de la ligne 10 ?

donc i



"DENIS" wrote in message
news:
Bonsoir,

Ca ne fonctionne pas. Rien ne se produit.
Pourtant à partir de A10 se trouve un nom de fichier, en A11, A12 etc.
La macro devrait créer un hyperlink "k:"nom du fichier".jpg" en colonne G
de la meme ligne jusqu'a ce qu'aucune info se trouve en colonne A.

pourquoi ?
Merci



bonsoir,

sub stopouanchor() :'o)
i=1
while activesheet.cells(i,1)<>""
activesheet.cells(i,7).select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="k:" & _
Cells(i,1) & ".jpg"
i=i+1
wend
end sub

"DENIS" wrote in message
news:
Bonsoir,

Je souhhaiterais que l'instruction commence en A10.
Un nom de fichier se trouve en cellule A. Un hyperlinks s'ajoute en
cellule
G de la meme ligne.
Et que cette action se répète vers le bàs jusqu'à ce qu'il n'y ai plus
d'info (nom de fichier) en colonne A

ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="k:" &
Cells.Range("a10") & ".jpg"

Ceci doit permettre d'ouvrir un fichier jpg du meme nom sur le disque
K:

Merci
Denis














Avatar
anonymousA
Bonjour,

dans ces conditions, au lieu de i=1, tu mets i et ca démarrera à la
ligne 10. La proc communiquée par h2so4 est correcte.
Si tu veux par contre qu'à chaque fois que tu frappes ( valides )
quelque chose en colonne A , il s'inscrive un lien dépendant en colonne
G, il faut écrire dans le module de feuille la procédure suivante.
Attention, le logiciel de messagerie renverra peut-être à la ligne des
instructions qui ne doivent pas l'être.

Private Sub Worksheet_Change(ByVal Target As Range)

With Target
If .Cells.Count = 1 And Not Intersect(Range("A1:A65536"),
.Cells(1)) Is Nothing Then
Me.Hyperlinks.Add Anchor:=.Offset(0, 6), Address:="k:" &
.Value & ".jpg"
End If
End With

End Sub

A+

oui à partir de la ligne 10 mais ca continue. A10, A11, A12 etc. Il s'agit
d'une base qui grossit au fur à mesure. Donc, que cette opération se répète
de haut en bas à partir de A10, jusqu'a qu'aucune donnée ne se trouve en
cellule A?


bonsoir,

à partir de quelle ligne y a-t-il une valeur ?

replace i=1 par i= numéro de la 1ère ligne contenant une valeur .j'ai cru
comprendre que c'était à partir de la ligne 10 ?

donc i



"DENIS" wrote in message
news:
Bonsoir,

Ca ne fonctionne pas. Rien ne se produit.
Pourtant à partir de A10 se trouve un nom de fichier, en A11, A12 etc.
La macro devrait créer un hyperlink "k:"nom du fichier".jpg" en colonne G
de la meme ligne jusqu'a ce qu'aucune info se trouve en colonne A.

pourquoi ?
Merci



bonsoir,

sub stopouanchor() :'o)
i=1
while activesheet.cells(i,1)<>""
activesheet.cells(i,7).select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="k:" & _
Cells(i,1) & ".jpg"
i=i+1
wend
end sub

"DENIS" wrote in message
news:
Bonsoir,

Je souhhaiterais que l'instruction commence en A10.
Un nom de fichier se trouve en cellule A. Un hyperlinks s'ajoute en
cellule
G de la meme ligne.
Et que cette action se répète vers le bàs jusqu'à ce qu'il n'y ai plus
d'info (nom de fichier) en colonne A

ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="k:" &
Cells.Range("a10") & ".jpg"

Ceci doit permettre d'ouvrir un fichier jpg du meme nom sur le disque
K:

Merci
Denis














Avatar
DENIS
bonsoir,

Voici la macro. J'ai des données de A10 à A25 et aucun lien hyperlink ne
s'inscrit en colonne G, de G10 à G25. J'ai pas compris quelque chose, c'est
sur. Mais quoi ?

Sub stopouanchor(): 'o)
i = 10
While ActiveSheet.Cells(i, 10) <> ""
ActiveSheet.Cells(i, 7).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="k:" & Cells(i, 10)
& ".jpg"
i = i + 10
Wend
End Sub

Merci


Bonjour,

dans ces conditions, au lieu de i=1, tu mets i et ca démarrera à la
ligne 10. La proc communiquée par h2so4 est correcte.
Si tu veux par contre qu'à chaque fois que tu frappes ( valides )
quelque chose en colonne A , il s'inscrive un lien dépendant en colonne
G, il faut écrire dans le module de feuille la procédure suivante.
Attention, le logiciel de messagerie renverra peut-être à la ligne des
instructions qui ne doivent pas l'être.

Private Sub Worksheet_Change(ByVal Target As Range)

With Target
If .Cells.Count = 1 And Not Intersect(Range("A1:A65536"),
..Cells(1)) Is Nothing Then
Me.Hyperlinks.Add Anchor:=.Offset(0, 6), Address:="k:" &
..Value & ".jpg"
End If
End With

End Sub

A+

oui à partir de la ligne 10 mais ca continue. A10, A11, A12 etc. Il s'agit
d'une base qui grossit au fur à mesure. Donc, que cette opération se répète
de haut en bas à partir de A10, jusqu'a qu'aucune donnée ne se trouve en
cellule A?


bonsoir,

à partir de quelle ligne y a-t-il une valeur ?

replace i=1 par i= numéro de la 1ère ligne contenant une valeur .j'ai cru
comprendre que c'était à partir de la ligne 10 ?

donc i



"DENIS" wrote in message
news:
Bonsoir,

Ca ne fonctionne pas. Rien ne se produit.
Pourtant à partir de A10 se trouve un nom de fichier, en A11, A12 etc.
La macro devrait créer un hyperlink "k:"nom du fichier".jpg" en colonne G
de la meme ligne jusqu'a ce qu'aucune info se trouve en colonne A.

pourquoi ?
Merci



bonsoir,

sub stopouanchor() :'o)
i=1
while activesheet.cells(i,1)<>""
activesheet.cells(i,7).select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="k:" & _
Cells(i,1) & ".jpg"
i=i+1
wend
end sub

"DENIS" wrote in message
news:
Bonsoir,

Je souhhaiterais que l'instruction commence en A10.
Un nom de fichier se trouve en cellule A. Un hyperlinks s'ajoute en
cellule
G de la meme ligne.
Et que cette action se répète vers le bàs jusqu'à ce qu'il n'y ai plus
d'info (nom de fichier) en colonne A

ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="k:" &
Cells.Range("a10") & ".jpg"

Ceci doit permettre d'ouvrir un fichier jpg du meme nom sur le disque
K:

Merci
Denis

















Avatar
anonymousA
Ce qui est écrit dans cette proc, c'est que tant que les cellules de la
colonne J à compter de la ligne 10 ( cells(i,10) en partant de la ligne
10 ) ne contiennent pas rien, alors on sélectionne la cellule de la
ligne correspondante à la colonne G et on confectionne un lien
hypertexte avec ce qu'il y a dans la colonne J en tant que valeur à la
ligne correspondante puis on continue en incrémentant les lignes de 10
lignes en 10 lignes.
Il n'y a rien là dedans qui ne fonctionne pas correctement.Regarder si
les cellules de la colonne J contiennent réellement quelque chose ,
exécuter le code en mode pas à pas, utiliser la fenêtre des variables
locales pour suivre la nature des varibales, mettre des espions, bref
faire du débuggage, voilà les quelques conseils que je peux te donner.


A+


bonsoir,

Voici la macro. J'ai des données de A10 à A25 et aucun lien hyperlink ne
s'inscrit en colonne G, de G10 à G25. J'ai pas compris quelque chose, c'est
sur. Mais quoi ?

Sub stopouanchor(): 'o)
i = 10
While ActiveSheet.Cells(i, 10) <> ""
ActiveSheet.Cells(i, 7).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="k:" & Cells(i, 10)
& ".jpg"
i = i + 10
Wend
End Sub

Merci


Bonjour,

dans ces conditions, au lieu de i=1, tu mets i et ca démarrera à la
ligne 10. La proc communiquée par h2so4 est correcte.
Si tu veux par contre qu'à chaque fois que tu frappes ( valides )
quelque chose en colonne A , il s'inscrive un lien dépendant en colonne
G, il faut écrire dans le module de feuille la procédure suivante.
Attention, le logiciel de messagerie renverra peut-être à la ligne des
instructions qui ne doivent pas l'être.

Private Sub Worksheet_Change(ByVal Target As Range)

With Target
If .Cells.Count = 1 And Not Intersect(Range("A1:A65536"),
..Cells(1)) Is Nothing Then
Me.Hyperlinks.Add Anchor:=.Offset(0, 6), Address:="k:" &
..Value & ".jpg"
End If
End With

End Sub

A+

oui à partir de la ligne 10 mais ca continue. A10, A11, A12 etc. Il s'agit
d'une base qui grossit au fur à mesure. Donc, que cette opération se répète
de haut en bas à partir de A10, jusqu'a qu'aucune donnée ne se trouve en
cellule A?


bonsoir,

à partir de quelle ligne y a-t-il une valeur ?

replace i=1 par i= numéro de la 1ère ligne contenant une valeur .j'ai cru
comprendre que c'était à partir de la ligne 10 ?

donc i



"DENIS" wrote in message
news:
Bonsoir,

Ca ne fonctionne pas. Rien ne se produit.
Pourtant à partir de A10 se trouve un nom de fichier, en A11, A12 etc.
La macro devrait créer un hyperlink "k:"nom du fichier".jpg" en colonne G
de la meme ligne jusqu'a ce qu'aucune info se trouve en colonne A.

pourquoi ?
Merci



bonsoir,

sub stopouanchor() :'o)
i=1
while activesheet.cells(i,1)<>""
activesheet.cells(i,7).select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="k:" & _
Cells(i,1) & ".jpg"
i=i+1
wend
end sub

"DENIS" wrote in message
news:
Bonsoir,

Je souhhaiterais que l'instruction commence en A10.
Un nom de fichier se trouve en cellule A. Un hyperlinks s'ajoute en
cellule
G de la meme ligne.
Et que cette action se répète vers le bàs jusqu'à ce qu'il n'y ai plus
d'info (nom de fichier) en colonne A

ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="k:" &
Cells.Range("a10") & ".jpg"

Ceci doit permettre d'ouvrir un fichier jpg du meme nom sur le disque
K:

Merci
Denis
















Avatar
anonymousA
EnNlève le : 'o) à la droite de Sub stopouanchor(): 'o)

A+


Ce qui est écrit dans cette proc, c'est que tant que les cellules de la
colonne J à compter de la ligne 10 ( cells(i,10) en partant de la ligne
10 ) ne contiennent pas rien, alors on sélectionne la cellule de la
ligne correspondante à la colonne G et on confectionne un lien
hypertexte avec ce qu'il y a dans la colonne J en tant que valeur à la
ligne correspondante puis on continue en incrémentant les lignes de 10
lignes en 10 lignes.
Il n'y a rien là dedans qui ne fonctionne pas correctement.Regarder si
les cellules de la colonne J contiennent réellement quelque chose ,
exécuter le code en mode pas à pas, utiliser la fenêtre des variables
locales pour suivre la nature des varibales, mettre des espions, bref
faire du débuggage, voilà les quelques conseils que je peux te donner.


A+


bonsoir,

Voici la macro. J'ai des données de A10 à A25 et aucun lien hyperlink
ne s'inscrit en colonne G, de G10 à G25. J'ai pas compris quelque
chose, c'est sur. Mais quoi ?

Sub stopouanchor(): 'o)
i = 10
While ActiveSheet.Cells(i, 10) <> ""
ActiveSheet.Cells(i, 7).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="k:" &
Cells(i, 10) & ".jpg"
i = i + 10
Wend
End Sub

Merci


Bonjour,

dans ces conditions, au lieu de i=1, tu mets i et ca démarrera à
la ligne 10. La proc communiquée par h2so4 est correcte.
Si tu veux par contre qu'à chaque fois que tu frappes ( valides )
quelque chose en colonne A , il s'inscrive un lien dépendant en
colonne G, il faut écrire dans le module de feuille la procédure
suivante. Attention, le logiciel de messagerie renverra peut-être à
la ligne des instructions qui ne doivent pas l'être.

Private Sub Worksheet_Change(ByVal Target As Range)

With Target
If .Cells.Count = 1 And Not Intersect(Range("A1:A65536"),
..Cells(1)) Is Nothing Then
Me.Hyperlinks.Add Anchor:=.Offset(0, 6), Address:="k:" &
..Value & ".jpg"
End If
End With

End Sub

A+

oui à partir de la ligne 10 mais ca continue. A10, A11, A12 etc. Il
s'agit d'une base qui grossit au fur à mesure. Donc, que cette
opération se répète de haut en bas à partir de A10, jusqu'a
qu'aucune donnée ne se trouve en cellule A?


bonsoir,

à partir de quelle ligne y a-t-il une valeur ?

replace i=1 par i= numéro de la 1ère ligne contenant une valeur
.j'ai cru comprendre que c'était à partir de la ligne 10 ?

donc i



"DENIS" wrote in message
news:
Bonsoir,

Ca ne fonctionne pas. Rien ne se produit.
Pourtant à partir de A10 se trouve un nom de fichier, en A11, A12
etc.
La macro devrait créer un hyperlink "k:"nom du fichier".jpg" en
colonne G
de la meme ligne jusqu'a ce qu'aucune info se trouve en colonne A.

pourquoi ?
Merci



bonsoir,

sub stopouanchor() :'o)
i=1
while activesheet.cells(i,1)<>""
activesheet.cells(i,7).select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="k:" & _
Cells(i,1) & ".jpg"
i=i+1
wend
end sub

"DENIS" wrote in message
news:
Bonsoir,

Je souhhaiterais que l'instruction commence en A10.
Un nom de fichier se trouve en cellule A. Un hyperlinks s'ajoute en
cellule
G de la meme ligne.
Et que cette action se répète vers le bàs jusqu'à ce qu'il n'y
ai plus
d'info (nom de fichier) en colonne A

ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="k:" &
Cells.Range("a10") & ".jpg"

Ceci doit permettre d'ouvrir un fichier jpg du meme nom sur le
disque K:

Merci
Denis


















Avatar
DENIS
oui tout fonctionne. Merci à vous tous pour votre aide très précieuse


Ce qui est écrit dans cette proc, c'est que tant que les cellules de la
colonne J à compter de la ligne 10 ( cells(i,10) en partant de la ligne
10 ) ne contiennent pas rien, alors on sélectionne la cellule de la
ligne correspondante à la colonne G et on confectionne un lien
hypertexte avec ce qu'il y a dans la colonne J en tant que valeur à la
ligne correspondante puis on continue en incrémentant les lignes de 10
lignes en 10 lignes.
Il n'y a rien là dedans qui ne fonctionne pas correctement.Regarder si
les cellules de la colonne J contiennent réellement quelque chose ,
exécuter le code en mode pas à pas, utiliser la fenêtre des variables
locales pour suivre la nature des varibales, mettre des espions, bref
faire du débuggage, voilà les quelques conseils que je peux te donner.


A+


bonsoir,

Voici la macro. J'ai des données de A10 à A25 et aucun lien hyperlink ne
s'inscrit en colonne G, de G10 à G25. J'ai pas compris quelque chose, c'est
sur. Mais quoi ?

Sub stopouanchor(): 'o)
i = 10
While ActiveSheet.Cells(i, 10) <> ""
ActiveSheet.Cells(i, 7).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="k:" & Cells(i, 10)
& ".jpg"
i = i + 10
Wend
End Sub

Merci


Bonjour,

dans ces conditions, au lieu de i=1, tu mets i et ca démarrera à la
ligne 10. La proc communiquée par h2so4 est correcte.
Si tu veux par contre qu'à chaque fois que tu frappes ( valides )
quelque chose en colonne A , il s'inscrive un lien dépendant en colonne
G, il faut écrire dans le module de feuille la procédure suivante.
Attention, le logiciel de messagerie renverra peut-être à la ligne des
instructions qui ne doivent pas l'être.

Private Sub Worksheet_Change(ByVal Target As Range)

With Target
If .Cells.Count = 1 And Not Intersect(Range("A1:A65536"),
..Cells(1)) Is Nothing Then
Me.Hyperlinks.Add Anchor:=.Offset(0, 6), Address:="k:" &
..Value & ".jpg"
End If
End With

End Sub

A+

oui à partir de la ligne 10 mais ca continue. A10, A11, A12 etc. Il s'agit
d'une base qui grossit au fur à mesure. Donc, que cette opération se répète
de haut en bas à partir de A10, jusqu'a qu'aucune donnée ne se trouve en
cellule A?


bonsoir,

à partir de quelle ligne y a-t-il une valeur ?

replace i=1 par i= numéro de la 1ère ligne contenant une valeur .j'ai cru
comprendre que c'était à partir de la ligne 10 ?

donc i



"DENIS" wrote in message
news:
Bonsoir,

Ca ne fonctionne pas. Rien ne se produit.
Pourtant à partir de A10 se trouve un nom de fichier, en A11, A12 etc.
La macro devrait créer un hyperlink "k:"nom du fichier".jpg" en colonne G
de la meme ligne jusqu'a ce qu'aucune info se trouve en colonne A.

pourquoi ?
Merci



bonsoir,

sub stopouanchor() :'o)
i=1
while activesheet.cells(i,1)<>""
activesheet.cells(i,7).select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="k:" & _
Cells(i,1) & ".jpg"
i=i+1
wend
end sub

"DENIS" wrote in message
news:
Bonsoir,

Je souhhaiterais que l'instruction commence en A10.
Un nom de fichier se trouve en cellule A. Un hyperlinks s'ajoute en
cellule
G de la meme ligne.
Et que cette action se répète vers le bàs jusqu'à ce qu'il n'y ai plus
d'info (nom de fichier) en colonne A

ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="k:" &
Cells.Range("a10") & ".jpg"

Ceci doit permettre d'ouvrir un fichier jpg du meme nom sur le disque
K:

Merci
Denis