XL 2016 bouton lien

[richardlion]

Bonjour a tous:
je souhaiterais creer un lien avec un bouton.
dans l'exemple de mon fichier en PJ, je souhaiterais pouvoir cliquer sur un bouton dans l'une des cellules de G4 a G8 faire apparaitre en E5 l'information d'une des cellules I4 a I8.

a votre disposition pour échange.

Merci a vous pour votre aide

 

[sylvanu]

Bonsoir Richardlion,
Pas sur d'avoir bien compris. Cependant un essai en PJ avec cette macro :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Fin
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [G4:G8]) Is Nothing Then [E5] = Cells(Target.Row, "I")
Fin:
End Sub

Lorsqu'on clique sur une cellule de G4 à G8 on recopie l'hôtel correspondant dans E5.

 

[richardlion]

Salut sylvanu
quand j'ouvre ton fichier je n'ai aucune infos pas de macros.
je te renvoie mon fichier de travail

a ta disposition

 

[richardlion]

Bonsoir Richardlion,
Pas sur d'avoir bien compris. Cependant un essai en PJ avec cette macro :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Fin
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [G4:G8]) Is Nothing Then [E5] = Cells(Target.Row, "I")
Fin:
End Sub

Lorsqu'on clique sur une cellule de G4 à G8 on recopie l'hôtel correspondant dans E5.

Pour faire suite a mon dernier message j'ai rajoute des bouton de G4 a G8

 

[sylvanu]

Bonjour,
Vous auriez pu lire mon post et faire un essai, c'est un minimum.

Lorsqu'on clique sur une cellule de G4 à G8 on recopie l'hôtel correspondant dans E5.

et la macro, qui est événementielle se trouve dans Feuil1 :

Cette méthode est beaucoup plus légère qu'une macro classique car il n'y a aucun calcul pour détecter le bouton cliqué.
Si vous tennez à vous boutons, essayez :

Private Sub OptionButton1_Click()
    [E4] = [I4]
End Sub
Private Sub OptionButton2_Click()
    [E4] = [I5]
End Sub
Private Sub OptionButton3_Click()
    [E4] = [I6]
End Sub

 

[richardlion]

Bonjour,
Microsoft bloc les macros quand j'ouvre le fichier que vous m'avez envoyé hier. je ne comprends pas pourquoi
je voudrais faire un copier coller de votre macros de ce matin mais il me manque un bout sur le screen de l'avant dernière ligne.
pourriez vous me renvoyer la macro complète pour que je fasse un essai.
merci encore a vous

 

[sylvanu]

Bonjour,
Dans les options, acceptez les macros.

Quand au code, il est en toutes lettres au post #2, à mettre dans Feuil1 comme expliqué au post #5.
Si c'est le second code qui vous intéresse avec les boutons, vous trouverez ce code au post #5 également.

 

[richardlion]

Sylvanu, les macros sont deja activée, mais c'est pas grave j'ai trouvé une solution je pense que c'est du a mon ordi hyper protégé
la macro fonctionne bien.
Y a t'il une méthode simple a partir de mon fichier, de transformer une partie des cellules en PDF pour envoi par mail,

 

[sylvanu]

Y a t'il une méthode simple a partir de mon fichier, de transformer une partie des cellules en PDF

Un exemple parmi d'autres :

Sub ConversionPdf()
Chemin = "C:\Users\PC_PAPA\Desktop\"    ' Dossier à modifier ( se termine par "\" )
NomFichier = "Essai.pdf"                ' Nom du fichier pdf à modifier
Set Plage = Range("D10:J25")            ' Plage à convertir, à modifier
Plage.ExportAsFixedFormat _
    Type:=xlTypePDF, Filename:=Chemin & NomFichier, _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=False, _
    IgnorePrintAreas:=True, From:=1, To:=1
End Sub

Convertit les cellules "Plage" en pdf enregistré sous : Chemin\NomFichier.

 

[richardlion]

Merci Sylvanu pour ton aide, je vais le tester sur mon fichier

Bonne fêtes a vous.