createhyperlink d'ub ()
Le faible WS comme feuille de travail
Faible ws1 comme feuille de travail
Faible rng comme gamme
Faible c comme gamme
Faible rng2 comme gamme
Placer le WS = les feuilles (« Sheet1 »)
Placer ws1 = feuilles (« Sheet2 »)
Placer le rng = le ws1.Range (« a2 : » Et ws1.Cells (Cells.Rows.Count, « A »). Extrémité (xlUp). Rangée)
Pour chaque c dans le rng
Si "" <> de c.Value alors
X = c.Value
Placer rng2 = le WS. Colonnes (1).Find (ce qui : =x, ensuite : =ws. Cellules (1), LookIn : =xlFormulas, LookAt : =xlWhole, SearchOrder : =xlByRows, SearchDirection : =xlNext, MatchCase : =False, SearchFormat : =False)
Sinon rng2 n'est rien puis ancre du WS. Hyperlinks.Add : =c, adresse : = "", SubAddress : = "" et le WS. Nom et « ! » et rng2.Address (0, 0) et "", TextToDisplay : =c.Value
Finir si
Prochain c
Sous-marin d'extrémité
|