XL 2016 bouton lien

richardlion

XLDnaute Occasionnel
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
 

Pièces jointes

  • test pour excel dow.xlsx
    55.5 KB · Affichages: 7

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonsoir Richardlion,
Pas sur d'avoir bien compris. Cependant un essai en PJ avec cette macro :
VB:
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.
 

Pièces jointes

  • test pour excel dow.xlsm
    60.3 KB · Affichages: 6

richardlion

XLDnaute Occasionnel
Bonsoir Richardlion,
Pas sur d'avoir bien compris. Cependant un essai en PJ avec cette macro :
VB:
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
 

Pièces jointes

  • test hotel bis 3.xlsm
    181.2 KB · Affichages: 7

sylvanu

XLDnaute Barbatruc
Supporter XLD
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.
Test.gif

et la macro, qui est événementielle se trouve dans Feuil1 :
1703397049701.png
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 :
VB:
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

XLDnaute Occasionnel
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
 

richardlion

XLDnaute Occasionnel
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

XLDnaute Barbatruc
Supporter XLD
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 :
VB:
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.
 

Statistiques des forums

Discussions
313 258
Messages
2 096 614
Membres
106 684
dernier inscrit
ekouepatrick