<p><strong>Réponse courte :</strong> vous ne pouvez pas automatiser cela sans VBA.</p>
<p>Méthode manuelle</p>
<p>Ceci est sur un ordinateur Windows 7 ; remplacez simplement les raccourcis par leurs équivalents Mac correspondants.</p>
<ul>
<li>
<p>Mettez en surbrillance une cellule contenant un lien hypertexte.</p>
</li>
<li>
<p>Appuyez sur CTRL+K. Cela ouvre la boîte de dialogue des liens hypertextes (voir l’image ci-dessous). Une fois ouverte, vous constaterez que votre curseur est déjà dans le champ Adresse.</p>
</li>
<li>
<p>Appuyez sur CTRL+A pour mettre en surbrillance l’URL entière.</p>
</li>
<li>
<p>Appuyez sur CTRL+C pour la copier.</p>
</li>
<li>
<p>Appuyez sur Échap ou Entrée pour fermer la boîte de dialogue Lien hypertexte.</p>
</li>
<li>
<p>Collez l’URL quelque part via CTRL + V.</p>
</li>
</ul>
<p>VBA</p>
<p>Voici une solution VBA pour ceux qui peuvent l’utiliser.</p>
<p>Créez un module VBA avec le code suivant :</p>
<pre><code class="lang-auto">Public Function GetURL(c As Range) As String
On Error Resume Next
GetURL = c.Hyperlinks(1).Address
End Function
</code></pre>
<p>Pour l’utiliser, entrez ce qui suit dans n’importe quelle cellule :</p>
<pre><code class="lang-auto">=GetURL(A1)
</code></pre>
<p>où A1 contient un lien hypertexte.</p>
<p>La fonction en action :</p>
