Bonjour à tous !
J'aurais une petite question, après plusieurs lectures sur la fonction Hyperlinks(1).Follow je ne comprends toujours pas quelque chose, je suis actuellement en train de creer un petit programme en VBA et pnoyé dans mon code, il y a ce petit tronçon :
Sub renommer()
Dim cpt As Integer
For cpt = 6 To 93
Cells(cpt, 2).Select
Application.CutCopyMode = False
Selection.Copy
Cells(cpt, 2).Select
Selection.Hyperlinks(1).Follow
Range("F4:J4").Select
ActiveSheet.Paste
Sheets(1).Activate
Next cpt
End Sub
cette sub comme son nom l'indique sert a suivre des liens hypertexts sur la feuille 1 de mon classeur afin de naviguer entre toutes les feuilles pour renommer une plage de cellule.
Cependant quand j'arrive à la commande Selection.Hyperlinks(1).Follow mon programme ne suit pas le lien et reste sur la feuille 1. et copie ma valeure de cells(cpt,6) sur la plage F4:J4.
Je ne sais pas si vous acez bien compris ma demande je reste à votre disposition pour les questions et merci d'avance !
J'aurais une petite question, après plusieurs lectures sur la fonction Hyperlinks(1).Follow je ne comprends toujours pas quelque chose, je suis actuellement en train de creer un petit programme en VBA et pnoyé dans mon code, il y a ce petit tronçon :
Sub renommer()
Dim cpt As Integer
For cpt = 6 To 93
Cells(cpt, 2).Select
Application.CutCopyMode = False
Selection.Copy
Cells(cpt, 2).Select
Selection.Hyperlinks(1).Follow
Range("F4:J4").Select
ActiveSheet.Paste
Sheets(1).Activate
Next cpt
End Sub
cette sub comme son nom l'indique sert a suivre des liens hypertexts sur la feuille 1 de mon classeur afin de naviguer entre toutes les feuilles pour renommer une plage de cellule.
Cependant quand j'arrive à la commande Selection.Hyperlinks(1).Follow mon programme ne suit pas le lien et reste sur la feuille 1. et copie ma valeure de cells(cpt,6) sur la plage F4:J4.
Je ne sais pas si vous acez bien compris ma demande je reste à votre disposition pour les questions et merci d'avance !