Bouton vers page internet

Bonjour

Je cherche à créer un bouton qui renvoie vers une page internet.

Mais auparavant ce lien doit contenir une information du tableau

C'est la où cela bloque

Merci de votre aide

Bonjour CharlesVI

Voici ton fichier avec ce code

Sub AccèsLien()
  Dim Lig As Long
  ' Ligne sélectionnées
  Lig = Selection.Row
  ' Avec la feuille
  With Sheets("Feuil1")
    ' Vérifier si valeur dans tableau
    If .Range("E" & Lig) = "" Then
      MsgBox " Merci de sélectionner une ligne contenant des données", vbCritical, "OUPS..."
      Exit Sub
    End If
    ' Lancer le lien
    ActiveWorkbook.FollowHyperlink Address:="https://" & .Range("E" & Lig) & ".pw/?userup=1&grp=5&uid=4"
  End With
End Sub

@+

Ok ca fonctionne parfaitement, merci

Si j'ai une liste de plusieurs user, je dois donc créer un bouton pour chacun des ID différents?

Re,

Non, un seul suffit, ensuite c'est en fonction de la ligne sélectionnée

@+

Ok ça marche

Je vais donc créer un bouton par ligne car chaque user a un ID différent

Merci 😊

Re,

Je ne comprends pas ton raisonnement

Peux-tu nous expliciter la façon de fonctionner ?

Si un utilisateur choisi sa ligne, en cliquant sur le bouton, cela le connectera avec ses paramètres

Hello,

Voici le fichier avec plus d'explications

Dis moi si ce n'est toujours pas clair

Merci

Re,

Effectivement, c'est mieux expliquer, ce n'était pas le cas dans ton 1er message

C'est "simple"

Sub AccesLien()
  Dim sId As String, Pseudo As String, sLien As String
  Dim Lig As Long
  ' Ligne selectionnees
  Lig = Selection.Row
  ' Avec la feuille
  With Sheets("Feuil1")
    ' Verifier si valeur dans tableau
    If .Range("E" & Lig) = "" Then
      MsgBox " MErci de sélectionner une ligne contenant des donnŽes", vbCritical, "OUPS..."
      Exit Sub
    End If
    sId = .Range("D" & Lig).Value
    Pseudo = .Range("E" & Lig).Value
    ' Lancer le lien
    sLien = "https://xxxxx.pw/?userup=1&grp=5&uid=cellule_xxxxx_id"
    sLien = Replace(sLien, "xxxxx", Pseudo)
    sLien = Replace(sLien, "id", sId)
    ' Lancer le lien
    ActiveWorkbook.FollowHyperlink Address:=sLien
  End With
End Sub

@+

Hello,

Désolé du retard dans ma réponse, alors cela fonction nickel. Merci

Maintenant j'essai d'ajouter un second bouton pour une seconde fonction (différente de la première), mais je n'arrive pas à ajouter une second macro.

Visiblement une seule macro par par feuille

Du coup comment fait on pour add une seconde fonction dans cette feuille ?

Seul le lien change par rapport à ton script :

Sub AccesLien()
  Dim sId As String, Pseudo As String, sLien As String
  Dim Lig As Long
  ' Ligne selectionnees
  Lig = Selection.Row
  ' Avec la feuille
  With Sheets("Feuil1")
    ' Verifier si valeur dans tableau
    If .Range("E" & Lig) = "" Then
      MsgBox " MErci de sélectionner une ligne contenant des donnŽes", vbCritical, "OUPS..."
      Exit Sub
    End If
    sId = .Range("D" & Lig).Value
    Pseudo = .Range("E" & Lig).Value
    ' Lancer le lien
    sLien = "[color=#FF0000][i]https://xxxx.pw/?userup=1&grp=5&uid="cellule_xxxx_id[/i][/color]"
    sLien = Replace(sLien, "xxxxx", Pseudo)
    sLien = Replace(sLien, "id", sId)
    ' Lancer le lien
    ActiveWorkbook.FollowHyperlink Address:=sLien
  End With
End Sub

Donc pour résumer, je cherche à avoir deux boutons avec chacun une action dans une meme macro

Merci d'avance

Bonjour,

CharlesVI a écrit :

Désolé du retard dans ma réponse, alors cela fonction nickel. Merci

No soucy, le principal est le retour

CharlesVI a écrit :

Maintenant j'essai d'ajouter un second bouton pour une seconde fonction (différente de la première), mais je n'arrive pas à ajouter une second macro.

Visiblement une seule macro par par feuille

Absolument pas

Il suffit d'attribuer X macros à X boutons, voir fichier joint

@+

Bonjour @BrunoM245

Merci cela fonctionne parfaitement

Je clos ce sujet

Charles