Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 VBA pour faire une boucle

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
E

Emile63

XLDnaute Junior
Bonjour à tous,

Je cherche a faire une boucle par rapport à une zone que j'aurais préalablement sélectionnée à la souris, qu'a chaque cellule soit mis l'hyperlien jusqu'a la fin de la sélection.
au coup par coup, mon code fonctionne (à peu près) par contre je peine avec la sélection "MaZone" à la souris...
La macro consiste à mettre en hyperlien le contenu de la cellule (nom et chemin de fichiers)
Je vous remercie d'avance pour votre support, et vous souhaite une belle journée.
------------------------------------
Sub Clipboard_Hyperlien()
Dim maZone As Range
Set Clipboard = New MSForms.DataObject
Clipboard.GetFromClipboard
strContents = Clipboard.GetText

With ActiveSheet
For Each maZone In Selection

If ActiveCell.Value <> "" Then
Application.ActiveWindow.ActiveCell.Copy
If strContents <> "" Then
strContents = Replace(strContents, Chr(34), "")
If Selection.Hyperlinks.Count > 0 Then Selection.Hyperlinks.Delete
ActiveCell.Hyperlinks.Add Anchor:=ActiveCell, Address:=strContents

With Selection
.HorizontalAlignment = xlLeft
.Font.Size = 12
.Font.TintAndShade = 0
.Font.Underline = xlUnderlineStyleSingle
' .Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
End With
Else
MsgBox "Aucun fichier dans le clipboard", vbInformation + vbOKCancel, "Opération annulée."
End If

Else
End If

Next

End Sub
 
Solution
E
Bonjour AtTheOne,

J'ai itrouvé une autre solution (en cherchant sur le site 🙂 )

LH = Right(LH, Len(LH) - InStrRev(LH, Application.PathSeparator))
fileExt = Split(LH, ".")
LH = fileExt(0)
C.Value = LH
Et du coup ma boucle fonctionne parfaitement.

Encore merci pour ton aide.
Trier par date Trier par votes
Bonjour à tous, bonjour @Emile63

Je n'ai pas trop compris ce que tu faisais avec le presse papier ...
Mais s'il s'agit de créer des liens HT avec le contenu des cellules d'une sélection ce code fait l'affaire :
Enrichi (BBcode): 
Sub Crée_Hyperlien()

     Dim Ma_Zone As Range, C As Range, LH As String
     Set Ma_Zone = Selection
     
     With Ma_Zone
          For Each C In .Cells
               With C
                    If .Value <> "" Then
                         LH = Replace(.Value, Chr(34), "")                                               'Supprimer les " du texte
                         If .Hyperlinks.Count > 0 Then C.Hyperlinks.Delete                               'Supprimer le LH de la cellule s'il existe
                         .Hyperlinks.Add Anchor:=C, Address:=LH, ScreenTip:="Clic pour suivre le lien"   'Créer le Lien HT
                     End If
               End With
          Next
          'Mise en forme sur toute la sélection
          .HorizontalAlignment = xlLeft
          .Font.Size = 12
          '...
     End With
     
End Sub

Voir le fichier joint

Amicalement
Alain
 

Pièces jointes

Vote positif 0 Vote négatif
Bonjour AtTheOne, merci pour ton aide.

ça fonctionne très bien!
Une fois que le lien , je voudrais ajouter à la boucle, de changer le contenu de la cellule active.
Avec la formule suivante je supprime tout le chemin du fichier ainsi que son extension pour ne garder que le nom du fichier, le problème c'est que je n'arrive pas à adapter cette formule au code VBA.

ActiveCell.FormulaR1C1 = _
"=TRIM(MID(RC[-1],SEARCH(""µ"",SUBSTITUTE(RC[-1],""\"",""µ"",LEN(RC[-1])-LEN(SUBSTITUTE(RC[-1],""\"",""""))))+1,LEN(RC[-1])-(SEARCH(""µ"",SUBSTITUTE(RC[-1],""\"",""µ"",LEN(RC[-1])-LEN(SUBSTITUTE(RC[-1],""\"","""")))))-(LEN(RC[-1])-FIND(""."",RC[-1])+1)))"

Un coup de main serait le bienvenu. 🙄
Merci,
Emile
 
Vote positif 0 Vote négatif
Bonjour AtTheOne,

J'ai itrouvé une autre solution (en cherchant sur le site 🙂 )

LH = Right(LH, Len(LH) - InStrRev(LH, Application.PathSeparator))
fileExt = Split(LH, ".")
LH = fileExt(0)
C.Value = LH
Et du coup ma boucle fonctionne parfaitement.

Encore merci pour ton aide.
 
Vote positif 0 Vote négatif
Solution
Bonjour
Emile63 à dit:
J'ai itrouvé une autre solution (en cherchant sur le site 🙂 )
Cliquez pour agrandir...

J'étais en train d'écrire :
Enrichi (BBcode): 
Sub Crée_Hyperlien()

     Dim Ma_Zone As Range, C As Range, LH As String, Nom
     Set Ma_Zone = Selection
   
     With Ma_Zone
          For Each C In .Cells
               With C
                    If .Value <> "" Then
                         LH = Replace(.Value, Chr(34), "")                                              'Supprimer les " du texte
                         Nom = Split(LH, "\")                                                           'Extraire le nom+extension (dernier élément du tableau)
                         Nom = Split(Nom(UBound(Nom)), ".")(0)                                          'Extraire le nom sans extension (premier élément du tableau)
                         If .Hyperlinks.Count > 0 Then C.Hyperlinks.Delete                               'Supprimer le LH de la cellule s'il existe
                         .Hyperlinks.Add Anchor:=C, Address:=LH, ScreenTip:=LH, TextToDisplay:=Nom      'Créer le Lien HT
                     End If
               End With
          Next
          'Mise en forme sur toute la sélection
          .HorizontalAlignment = xlLeft
          .Font.Size = 12
          '...
     End With
   
End Sub
Comme quoi on arrive à peu près à la même solution ...

A bientôt
Modif : Avec le fichier, c'est mieux ...
Alain
 

Pièces jointes

Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 Méthode Evaluate pour se dispenser d'une boucle imbriquée
Réponses
14
Affichages
391
patricktoulon
N
  • Résolu(e)
XL 2021 comment faire recherche dans une colonne et ligne
Réponses
5
Affichages
432
job75
M
  • Question Question
XL 2013 MACRO VBA pour imprimer tous les bulletins d'un établissement scolaire
Réponses
4
Affichages
300
MBEPID
M
L
  • Question Question
VBA : erreur sur boucle
Réponses
2
Affichages
301
Latias
L
  • Question Question
XL 2021 faire évoluer un code VBA
Réponses
3
Affichages
452
Dranreb
B
  • Résolu(e)
Microsoft 365 Besoin d'aide pour faire fonctionner 2 codes VBA ensemble
Réponses
2
Affichages
345
BenExcel
B
  • Question Question
Microsoft 365 Boucle VB pour supprimer les caractères spéciaux et numériques d'une chaîne
Réponses
5
Affichages
438
patricktoulon
  • Question Question
XL 2021 coller une image interne au classeur
2 3
Réponses
33
Affichages
1 K
Jouxte
G
  • Question Question
XL 2016 Extraire des données d'un pdf et les copier dans excel
2
Réponses
19
Affichages
1 K
kiki29
J
  • Question Question
XL 2019 (Résolu) VBA - Mise en surbrillance de ligne (fonction dans ruban)
Réponses
3
Affichages
541
Julien_B
J
L
  • Question Question
Microsoft 365 Insérer une plage Excel en image sous VBA pour envoi mail auto
Réponses
1
Affichages
377
fanch55
  • Question Question
XL 2016 Aide pour maj auto de la date + selection multiple dans une liste déroulante
Réponses
5
Affichages
567
fanch55
S
  • Question Question
Microsoft 365 VBA pour copier une une des données d'une ligne à une autre
Réponses
3
Affichages
660
salma_hayek
S
C
  • Résolu(e)
XL 2021 Aide pour affichage colonne listbox après une recherche par textbox
Réponses
10
Affichages
543
Claudinedu13
C
F
  • Question Question
XL 2010 Boucle PivotTable
Réponses
7
Affichages
716
Staple1600
B
  • Question Question
XL 2016 Interférence entre une boucle et un copie de feuille
Réponses
4
Affichages
539
Oneida
Z
  • Question Question
XL 2021 VBA Prélèvement d'une donnée si une valeur recherchée est identique
Réponses
3
Affichages
420
ZiM
Z
L
  • Question Question
Autres Copier des données d’un fichier sans l’ouvrir juste en le sélectionnant via un UserForm
Réponses
6
Affichages
714
Liner77
L
V
  • Résolu(e)
Microsoft 365 VBA effacer plusieurs cellules en fonctionde la valeur d'une dans une boucle for
2 3
Réponses
39
Affichages
2 K
vincent32
V
M
  • Question Question
XL 2016 Impression d'un rapport PDF depuis une URL avec VBA
Réponses
3
Affichages
868
mrcooll
M
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…