Formule et liens en boucle

[deni29]

Bonjour a tous

Je viens vers vous afin de pouvoir écrire une formule + un lien hypertexte dans une cellule et en boucle environ 150 fois.
un fichier vaux mieux que les grandes explication, ci joint mon fichier, qui j'espère, comporte les bonne explication.
Grand merci d'avance
SLT
Deni29

 

[Papou-net]

Re : Formule et liens en boucle

Bonjour Deni29,

En modifiant ta macro comme suit, ça devrait te convenir :

Sub Dupliquer()
Dim dLg As Long ' Variable pour stocker le dernière ligne remplie en colonne Q

ScreenUpdating = False
With Sheets("Effectif")
  dLg = .Range("B5").End(xlDown).Row
  For Each cel In .Range("B5:B" & dLg)
    Sheets("Base").Copy After:=Sheets(Sheets.Count)
    ActiveSheet.Name = cel.Value
  Next
End With
Sheets("Effectif").Activate
For Each cel In Range("K5:K" & dLg)
  cel.Select
  Selection.Formula = "='" & Range("B" & cel.Row).Value & "'!C2"
  ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
    "'" & Range("B" & cel.Row).Value & "'!C2"
Next
Application.ScreenUpdating = True
End Sub

Espérant avoir répondu.

Cordialement.

 

[pierrejean]

Re : Formule et liens en boucle

Bonjour Deni

Salut Papou-net

Une autre version

 

[deni29]

Re : Formule et liens en boucle

Bonjour à vous deux,

Je vous remercie tous les deux, vos codes sont parfait à 95%, les 2 font 100%. Avec une très légère modification, c'est exactement
ce qu'il me fallait.
Je vous remercie.
cdl
Deni29