Microsoft 365 affecter une macro à un bouton crée suite à une autre macro

yesyes18

XLDnaute Nouveau
Bonjour ,

j'ai crée un bouton suite à la macro suivante:


Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C6")) Is Nothing Then
Call iff
End If
End Sub

Sub iff()

If Range("C6") = "Version validée" Then

    ActiveSheet.Buttons.Add(466.2, 32.4, 89.4, 25.8).Select
  
    Selection.Characters.Text = "validation"
End If
End Sub

ensuite j'ai crée une autre macro ci_dessous afin de l'affecter au bouton validation créer par le biais de la première macro :
Code:
Sub ouvrir_suivi()

Dim suivi As Workbook

exchange_key = Range("cle_echange").Value

suivi_path = "C:\Users\Utilisateur\Desktop\Disque commun\CloudStation\GSMC\TECHNIQUE\PRODUITS\Outil_Tarification\Demandes\2020\suivi_demandes.xlsx"

Set suivi = Workbooks.Open(suivi_path)


search_result = Application.VLookup(exchange_key, ActiveWorkbook.Sheets("suivi").Range("b:b"), 1, False)
    
    If (search_result) = exchange_key Then
      
      Sheets("suivi").Select
      'Sheets("suivi").Range("CC:CC").Select '= "version validée"
      line_to_test = Sheets("tdb").Range("ligne_import").Value
      For i = 1 To line_to_test
       If Sheets("suivi").Range("b" & i + 2).Value = exchange_key Then
        Sheets("suivi").Range("cc" & i + 2).Value = "version validee"
       End If
      Next
      
    
    End If

End Sub

par contre je pense que j'ai oublié quelque code qui me permettras de lier ma deuxième macro à mon bouton validation

le but c'est dés que j'ai le bouton validation qui s'affiche je veux qu'il soit lier avec ma deuxième macro .


merci d'avance
 

Staple1600

XLDnaute Barbatruc
Bonsoir le fil, yesyes18

yesyes18
Je te laisse t'inspirer de ce petit exemple (issu de mes archives)
VB:
Sub ajoutBouton()
Dim Shp As Shape
On Error Resume Next
Feuil1.Shapes("oBtn").Delete
With Cells(1600 / 160).Offset(16) '-< adapter (c'était juste pour le clin d'oeil ;))
Set Shp = _
Feuil1.Shapes.AddFormControl(Type:=0, Left:=.Left, Top:=.Top, Width:=.Width, Height:=.Height)
End With
 With Shp
      .Name = "oBtn"
      .OnAction = "Test"
      With .TextFrame.Characters
      .Caption = "Cliquez!"
          With .Font
              .Name = "Calibri": .FontStyle = "Regular": .Size = 10
          End With
      End With
 End With
End Sub

Sub Test()
MsgBox "Nous sommes le : " & Date, vbInformation, "Bonjour, " & Application.UserName
End Sub
 

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 910
Membres
101 837
dernier inscrit
Ugo