deathbiscuit
XLDnaute Nouveau
Bonjour tout le monde!
Ce que j'ai déjà:
Dans la feuille 1 l'utilisateur clique sur une cellule d'une plage donnée (S4:S82), un userform s'affiche pour lui demander de saisir un lien pour l'ouverture d'un fichier. Le lien fonctionne et le texte de la cellule devient "Ouvrir le projet".
Dans la feuille je souhaite que la plage J5:J83 contienne automatiquement le contenu de la cellule de la plage de la feuille 1. C'est à dire que le texte de la cellule soit copié ainsi que le lien hypertexte du fichier externe.
J'aimerai bien que le code fonctionne pour toutes les cellules sans faire de boucles. Ni de test supplémentaires si possible. Comme le chemin d'accès, il s'adapte à toutes les cellules de la plage.
Code de ma macro, qui correspond au bouton OK de mon userform:
Merci d'avance!
Ce que j'ai déjà:
Dans la feuille 1 l'utilisateur clique sur une cellule d'une plage donnée (S4:S82), un userform s'affiche pour lui demander de saisir un lien pour l'ouverture d'un fichier. Le lien fonctionne et le texte de la cellule devient "Ouvrir le projet".
Dans la feuille je souhaite que la plage J5:J83 contienne automatiquement le contenu de la cellule de la plage de la feuille 1. C'est à dire que le texte de la cellule soit copié ainsi que le lien hypertexte du fichier externe.
J'aimerai bien que le code fonctionne pour toutes les cellules sans faire de boucles. Ni de test supplémentaires si possible. Comme le chemin d'accès, il s'adapte à toutes les cellules de la plage.
Code de ma macro, qui correspond au bouton OK de mon userform:
Code:
Private Sub CommandButton1_Click()
Dim path As String
path = TextBox1.Value
ActiveCell.Value = "Voir le projet"
ActiveSheet.Hyperlinks.Add Anchor:=ActiveCell, Address:= _
path
ActiveCell.Font.Size = 12
Unload cheminAccesS3
End Sub
Merci d'avance!