Limiter election à un seul tableau Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
S
Seb276
Jeune membre
Jeune membre
Messages : 25
Inscrit le : 10 octobre 2018
Version d'Excel : 2010

Message par Seb276 » 24 octobre 2018, 09:46

Bonjour au Forum,

J'ai crée une macro permettant de créer un lien hypertext vers un fichier pour chaque ligne d'un tableau.

Pour une question de besoin d'information, j'ai du créer un second tableau en dessous du premier mais je veux que la macro crée le lien hypertext uniquement sur le premier tableau.

Actuellement la macro crée un lien pour chaque ligne, ce qui évidement ne colle pas dans les cases vides et celles où il n'est pas question d'un nom de fichier.

Quelqu'un connait-il le code pour créer les liens uniquement dans le 1er tableau?
(Le nombre de ligne de ce 1er tableau, 6 dans l'exemple, est variable)

Ci joint l'excel avec les tableaux et la macro
Lien archivage.xlsm
(25.25 Kio) Téléchargé 11 fois
Merci par avance :)
Avatar du membre
Jean-Eric
Fanatique d'Excel
Fanatique d'Excel
Messages : 14'759
Appréciations reçues : 443
Inscrit le : 27 août 2012
Version d'Excel : O365 32 bits

Message par Jean-Eric » 24 octobre 2018, 10:03

Bonjour,
Ton fichier en retour.
Cdlt.
Lien archivage.xlsm
(43.88 Kio) Téléchargé 8 fois
Jean-Eric

Je ne réponds pas aux M.P. non sollicités.
Avatar du membre
dhany
Passionné d'Excel
Passionné d'Excel
Messages : 6'698
Appréciations reçues : 646
Inscrit le : 3 octobre 2017
Version d'Excel : 2007 FR

Message par dhany » 24 octobre 2018, 10:09

Screen.jpg
Screen.jpg (16.63 Kio) Vu 99 fois
@Seb276 : c'est pour l'élection du tableau « Miss France » ?  :P :lol:
(faut voter pour l'élection du plus beau tableau Excel)


dhany
Modifié en dernier par dhany le 24 octobre 2018, 10:28, modifié 2 fois.
Avatar du membre
Ausecour
Membre impliqué
Membre impliqué
Messages : 2'398
Appréciations reçues : 262
Inscrit le : 31 mai 2018
Version d'Excel : 2010 FR, 2013 FR

Message par Ausecour » 24 octobre 2018, 10:10

Bonjour,

Avoir la dernière ligne d'un tableau en partant du bas j'adore le faire, je le mets dans plein de programmes, mais ça ne marche pas vraiment comme on veut quand on met deux tableaux dans la colonne où on veut la ligne.

Du coup je suis plutôt partis de ta cellule a4 vers le bas pour prendre la dernière ligne de ton premier tableau, une fois que tu fais ça, tout est reglé :)

For Each cel In Range("A4", Range("A4").End(xlDown))

Le fichier corrigé:
Copie de Lien archivage.xlsm
(22.18 Kio) Téléchargé 6 fois
Plus un sujet a un titre précis, des explications claires, et un fichier Excel bien préparé, plus il a de chances d'avoir une réponse qui répond au besoin, mettez toutes les chances de votre côté :bien:
"100% des gagnants auront tenté leur chance" :trfl:
Avatar du membre
Chbouli04
Membre habitué
Membre habitué
Messages : 100
Appréciations reçues : 8
Inscrit le : 24 juillet 2018
Version d'Excel : 2007 FR

Message par Chbouli04 » 24 octobre 2018, 10:24

Bonjour,
Vu que tu as un vrai tableau la plage que tu veux sélectionner est déjà nommée automatiquement sur excel.

Reste juste à l'appeler.
Je ne me suis pas penché sur le coeur de ton code mais juste sur 3 lignes :

Sub Creation_lien_archivage()

    'Selection de la colonne des N° de plan
    Range("Tableau247[N° de plan]").Select 'Ligne corigé
    
    'remplacement du slach "/" par un tiret "-"
    Application.WindowState = xlMaximized
    Selection.Replace What:="/", Replacement:="-", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    
    
    'création du lien pour chaque ligne
    For Each cel In Range("Tableau247[N° de plan]") 'Ligne corigé
        If cel Like "A*" Then 'si le nom de la cellule commence par A
         cel.Hyperlinks.Add Anchor:=cel.Offset(0, 0), Address:= _
            "G:\Archivage\Petro Assem\" & cel.Value & ".tif", TextToDisplay:=cel.Value
        Else
         cel.Hyperlinks.Add Anchor:=cel.Offset(0, 0), Address:= _
            "G:\Archivage\Petro Moules\" & cel.Value & ".tif", TextToDisplay:=CStr(cel.Value)
        End If

    Next
    
    'modification de la police du lien hypertext
            For Each cel In Range("Tableau247[N° de plan]") 'Ligne corigé
        cel.Offset(0, 1).Select
        If Selection.Font.ColorIndex <> 15 Then
            cel.Font.Bold = True
            cel.Font.ColorIndex = 1
            Else
            cel.Font.ColorIndex = 15
            cel.Font.Underline = xlUnderlineStyleNone
        End If
            Next
End Sub


En espérant avoir solutionné ton problème ^^


:btres:
S
Seb276
Jeune membre
Jeune membre
Messages : 25
Inscrit le : 10 octobre 2018
Version d'Excel : 2010

Message par Seb276 » 24 octobre 2018, 10:32

Jean-Eric a écrit :
24 octobre 2018, 10:03
Bonjour,
Ton fichier en retour.
Cdlt.
Lien archivage.xlsm
Merci Jean-Eric, ce la fonctionne :)
S
Seb276
Jeune membre
Jeune membre
Messages : 25
Inscrit le : 10 octobre 2018
Version d'Excel : 2010

Message par Seb276 » 24 octobre 2018, 10:33

dhany a écrit :
24 octobre 2018, 10:09
Screen.jpg
@Seb276 : c'est pour l'élection du tableau « Miss France » ?  :P :lol:
(faut voter pour l'élection du plus beau tableau Excel)


dhany
Oui je m'en suis rendu compte après.... :mrgreen:
S
Seb276
Jeune membre
Jeune membre
Messages : 25
Inscrit le : 10 octobre 2018
Version d'Excel : 2010

Message par Seb276 » 24 octobre 2018, 10:36

OK merci à tous pour vos réponses,

Elles fonctionnent toutes :good: ,
je n'ai plus qu'à choisir laquelle je préfère ;;)
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message