Office 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
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas